Hi,
Beschäftige mich erst seit kurzem mit VBA und würde gerne durch Anklicken einer CheckBox eine Zeile in die erste frei Zeile eines anderen Datenblatts kopieren, Ich bekomme aber ständig eine Fehlermeldung, wenn ihr mir da irgendwie helfen könntet würde ich mich echt freuen.
Ach ja, und da ich die CheckBox in der angegeben Zeile wahrscheinlich nicht mit ins das zweite Datenblatt kopieren kann, würde ich gerne an diese Stelle statt der CheckBox dann ein Textfeld im zweiten Datenblatt einfügen:
Vielen Dank schon mal im voraus
Fes
If CheckBox.Value = True Then
Sheets("Sheet1").Range("1:1").Copy
LZ = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Sheet2").Select
Range("A" & LZ).Select
ActiveSheet.Paste
Sheets("Sheet2").Range("A" & LZ).Select
Application.CutCopyMode = xlCopy |