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"