Herbers Excel-Forum - das Archiv

mit Macro neue Zeile hinzufügen

Bild

Betrifft: mit Macro neue Zeile hinzufügen
von: Fabienne

Geschrieben am: 17.02.2005 12:23:24

Hi,
wie kann man mit einem Macro an eine bestehenden Tabelle ganz unten einen neuen Datensatz einfügen?
Ziel:
Ich trage auf Sheet1 Daten ein, klicke dann auf meinen Command-Button, der eben diese Daten in Sheet2 in Tabbellenform abspeichern.
Geht das?
Danke für Eure Hilfe!
Bild

Betrifft: AW: mit Macro neue Zeile hinzufügen
von: Marcl

Geschrieben am: 17.02.2005 12:44:17
Hallo Fabienne,
wie sieht´s denn aus? In Sheet1 stehen die Daten in einer Zeile nd sollen in Sheet2 in die erste freie Zeile rein?
Sub Makro1()
Rows(ActiveCell.Row).Copy
Sheets("Tabelle2").Select
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub


Gruß
Marcl
 Bild