Bei Kontrollkästchen anhaken > Zeilen kopieren
22.12.2018 19:08:24
Andrea
ich wurde gebeten für meinen Vater ein bisschen was in Excel zu machen, habe aber noch nie mit VBA oder Makros gearbeitet.
Ich habe ein Tabellenblatt in dem in Spalte B Kontrollkästchen sind. Danach folgen in Spalte C bis G Werte. Je nachdem welches der Kontrollkästchen aktiv gesetzt wird, sollen die Werte von C bis G auf ein anderes Tabellenblatt, in die erste freie Zeile von B bis F gesetzt werden.
Ich wollte es folgendermaßen lösen:
Sub Kontrollkästchen1_Klicken()
Dim lgLetzte As Long
With Sheets("Herren Sport")
'Letzte freie Spalte im Sheet Herren Sport finden
lgLetzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
'Die Werte von C bis G aus anderem Tabellenblatt nach B bis F kopieren
.Range("B" & lgLetzte & ":F" & lgLetzte) = Sheets("Alle").Range("C" & ActiveCell.Row & ":G" _
& ActiveCell.Row).Value
End With
End Sub
Ich bekomme leider weder einen Fehler während dem Kompilieren, noch währen der Laufzeit. Es tut einfach nichts.
Hat jemand einen Tipp was ich falsch mache?