Hallo liebe VBAler,
in der Tabelle Hollern möchte ich bestimmte Daten aus ihren Zellen über den CmdButton in dem Userform löschen.
Über die Kegler-Nummer und Kegler-Name komme ich an die entsprechenden Kegler Daten heran.
Die Stamm Daten belegen die Zellen 1-14. Die Kegeldaten belegen die Zellen 15-116.
Über den CmdButton (Löschen) möchte ich die Zelleninhalte von der Zelle 15 bis 116 im Tabellenblatt löschen.
Mein Vorgehen ist folgender:
Private Sub cmdLoeschen_Click ()
Dim Zeile As Integer
' Falls kein Kegler Name eingetragen
If txtHollernname.Text = "" Then
MsgBox "Fehler: Bitte einen Namen für den Kegler eintragen", vbCritical
Exit Sub
End If
' Sicherheitsabfrage vor dem Löschen
If MsgBox ("Wollen Sie die Ergebnisse wirklich löschen?", vbYesNo Or vbQuestion) = _
vbNo Then
Exit Sub
End If
' Zeile mit ausgewähltem Kegler suchen
Zeile = 2
Do While Cells (Zeile, 1). Value CInt (lblHollernnummer2.Caption)
Zeile = Zeile + 1
Loop
'Teilbereich ab Zellnummer 15 bis Zellnummer 116 löschen
Sheets("Hollern"). Range(lblHollernnummer2) = Cells (Zeile, 15:116). ClearContents
End Sub
Das funktioniert natürlich so noch nicht.
Ich habe im Forum nachgeblättert, um Anreize zur Lösung zu bekommen. Vorschläge zur Lösung gibt es einige. Nur für mein persönliches Vorhaben finde ich keinen.
Meine VBA-Kenntnisse stufe ich als Anfänger ein.
Kann mir einer helfen diesen VBA-Befehl so zu programmieren, dass dieser mir die Zellen für den jeweiligen Datensatz von Zelle 15 bis Zelle 116 löscht?
Gruß Stanley69