Hilfe, Erklärung eines Makros!!
07.04.2005 15:26:00
Tom
Sub Datensatz_löschen()
Dim strLöschen As String
A = frm3.TextBox1.Value
strLöschen = "B" & A + 7 & ":M" & A + 7
n = MsgBox("Wollen Sie die Daten wirklich löschen?", vbYesNo)
If n = vbYes Then
frm3.Show
Range(strLöschen).Delete
Columns("a").Find("").Select
If n = vbNo Then
Sheets("Tabelle1").Select
End If
End If
End Sub
Grüßle Tom