Checkboxen
19.11.2016 16:07:13
Patrick
Ich habe auf meinem Tabellenblatt 5 Zeilen mit Daten die sich täglich ändern.
Des weiteren gibt es 5 Checkboxen und ein Button.
Nun möchte ich beim auswählen einer Checkbox, dass die dazugehörige Zeile in ein anderes Blatt aber nicht mehr in einer Zeile sondern Spalte kopiert wird.
Das klappt bei Einzelauswahl dank Rekorder schon ganz gut.
Was nicht klappt ist, wenn ich mehrere Zeilen auswähle. Wie schaffe ich es, dass wenn ich zb. Checkbox 1, 3, 4 auswähle, die Zeilen dann in das Tabellenblatt kopiert werden.
Private Sub cmb_Anzeigen_Click()
If Sheets("Übersicht").cb1.Value = True Then
Range("A2:BL2").Select
Selection.Copy
Sheets("Tabelle1").Select
Worksheets("Tabelle1").Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Übersicht").Select
End If
End Sub
Dies wäre der Code welcher ganz gut klappt bei Einzelauswahl.Danke für die Hilfe
Lg Patrick