Supportnet / Forum / Tabellenkalkulation
per Makro in Nächste freie Zeile kopieren
Frage
Hallo Exelfreunde,
ich habe zwei Tabellenblätter. In Tabelle1 habe ich etwas in den Feldern A6:A10 sowie B17, E17 und G17 stehen was ich gerne per CommandButton in die nächste frei Zeile in Tabelle2 kopiert hätte. Z.B. in Feld A20,B20,C20, E20, F20, G20 usw. und beim nächsten drücken dann eben in A21, B21 usw.
Ich hoffe das geht und Ihr könnt mir helfen.
Viele Grüße
boris
Antwort 1 von DukeNT
Hi boris,
erstelle auf Blatt1 ein CommandButton und kopiere folgenden Code da rein.
Private Sub CommandButton1_Click()
lz = Sheets(2).Range("A65536").End(xlUp).Row + 1
For a = 1 To 5
Sheets(2).Cells(lz, a) = Sheets(1).Cells(a + 5, 1)
Next a
Sheets(2).Cells(lz, 6) = Sheets(1).Cells(17, 2)
Sheets(2).Cells(lz, 7) = Sheets(1).Cells(17, 5)
Sheets(2).Cells(lz, 8) = Sheets(1).Cells(17, 7)
End Sub
Gruß Niels
erstelle auf Blatt1 ein CommandButton und kopiere folgenden Code da rein.
Private Sub CommandButton1_Click()
lz = Sheets(2).Range("A65536").End(xlUp).Row + 1
For a = 1 To 5
Sheets(2).Cells(lz, a) = Sheets(1).Cells(a + 5, 1)
Next a
Sheets(2).Cells(lz, 6) = Sheets(1).Cells(17, 2)
Sheets(2).Cells(lz, 7) = Sheets(1).Cells(17, 5)
Sheets(2).Cells(lz, 8) = Sheets(1).Cells(17, 7)
End Sub
Gruß Niels
Antwort 2 von bokap1975
Hi Nils,
Danke für Deine Hilfe, hat super funktioniert.
Viele Grüße
Boris
Danke für Deine Hilfe, hat super funktioniert.
Viele Grüße
Boris