|
Ich brauch mal wieder eure Hilfe!
Ich verschiebe ganze markierte Zeilen von einem Tabellenblatt in ein anderes, welches ich mittels einer ComboBox in einem Formular auswählen kann!
Nach dem kopieren wird die markierte Zeile dann gelöscht.
Mein Problem ist nun folgendes: Meine Auswahl im Code nimmt ja nur das was auch wirklich ausgewählt ist. Wenn ich nun ausversehen nur eine Zelle anstatt einer Zeile anklicke, kopiert es mir zwar die eine Zelle ins neue Blatt, der Rest der Zeile wird allerdings gelöscht
Private Sub CommandButton1_Click()
With Selection
.Copy
Sheets(ComboBox1.Value).Cells(Rows.Count, 1).End(xlUp).Offset(2).PasteSpecial xlPasteAll
Application.CutCopyMode = False
.EntireRow.Delete
End With
Unload Me
End Sub
Wie stelle ich es an, das mir trotz einer eventuell angewählten Zelle immer die ganze Zeile kopiert wird?
Danke schonmal für eure Hilfe:
|