title image


Smiley Re: Formular mit unterschiedlich vielen Einträgen ...
Sub Tabzeile()

'

' Zeile hinzufügen Makro

' Nachfrage neue Zeile

response = MsgBox("Neue Zeile?", vbQuestion + vbYesNo)



' Wenn ja neue Zeile einfügen mit Formularfeldern

If response = vbYes Then

Dim i As Integer

' Dokumentschutz entfernen

ActiveDocument.Unprotect

' Makro aus der letzten Zelle entfernen

Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = ""

' Neue Zeile einfügen

Selection.InsertRowsBelow 1

Selection.Collapse (wdCollapseStart)

' Formularfelder in die Zellen einfügen

For i = 2 To Selection.Tables(1).Columns.Count

Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput

Selection.MoveRight Unit:=wdCell

Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput

Next i

' Makro in die letzte Zelle einfügen

Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "Tabzeile"

' zweite Zelle der letzten Zeile aktivieren

Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, 2).Range.FormFields(1).Select

' Protect document

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End If

End Sub









versuche es mal mit diesem Code. Hier wird nachgefragt, ob eine neue Zeile eingefügt werden soll. Gebe den Code im VBEditor als Modul ein und gib in der Eigenschaft der letzten Zelle in der Tabelle dieses Makro beim Beenden ausführen ein.


Gruß Lisa

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: