ich habe letztens einen Beitrag gelesen, wie man Zeilen von einem Tabellenblatt in ein anderes Tabellenblatt verschiebt und dabei die leere Zeile löscht.
Private Sub CommandButton2_Click()
Dim wks2 As Worksheet
Dim lgLetzte As Long
Set wks2 = Sheets(6)
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 30)).Copy wks2.Cells(lgLetzte, 1)
wks2.Cells(lgLetzte, 37).ClearContents
Rows(ActiveCell.Row).Delete
End Sub
Wie kann ich nun eine Sicherheitsabfrage einbauen? Wenn ich auf den Button klicke, soll eine Meldung kommen "Sind Sie sicher? Ja / Nein" und erst dann soll die Zeile verschoben werden.
Dies soll gemacht werden, damit nicht versehentlich ein Datensatz verschoben wird.
Schon mal danke im voraus.
Gruß
Kai Ulrich