Löschcode Änderung
12.04.2016 22:10:03
Thomas
Ich habe diesen Code und bekomme es nicht hin das er nur in der Zeile mir B:M den Inhalt entfernt nicht aber die ganze Zeile. In Spalte A und N sind Formeln die ich brauche.
~
Private Sub DatensatzLoeschen()
Dim rngExist As Range
With ThisWorkbook.Worksheets("Zusatzrahmen")
'Prüfen ob datensatz vorhanden
Set rngExist = .Range("A:A").Find(ComboBox4 & "*", , xlValues, xlWhole)
If Not rngExist Is Nothing Then
If MsgBox("Eintrag wird gelöscht. Sind sie sicher?", _
vbYesNo + vbDefaultButton2, "Eintarg Löschen?") = vbYes Then
rngExist.EntireRow.Delete In der ComboBox4 steht die Zeilennummer und der Code ist in einer UF.
Ich hoffe es kann mir jemand Helfen, vielen Dank schon mal.
Gruß Thomas
Anzeige