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

Beiträge aus den Excel-Beispielen zum Thema "Automatische Berechnung einer Zahlenreihe"