Supportnet Computer
Planet of Tech

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

Antwort 2 von bokap1975

Hi Nils,

Danke für Deine Hilfe, hat super funktioniert.

Viele Grüße
Boris

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: