Nicht alles in der Zeile löschen...
Ina
ich habe ein Problem mit einer Lösch-Funktion.
Bisher konnten im aktiven Tabellenblatt per TextbBox Werte im Bereich B16:T110 gesucht werden.
Durch Klick auf den CommandButton 6 wurden alle Werte einfach durch Löschen der entsprechenden Zeile entfernt... Das klappte auch hervorragend (Dank an Sepp).
Jetzt stehen in einigen Zellen aber auch Formeln, sodaß nur die Werte in den Zellen (nicht aber die ganze Zeile) gelöscht werden darf.
Zellen in denen Formeln stehen: G16:G110, I16:I110, M16:M110, O16:O110, R16:R110, T16:T110
Kann mir vielleicht jemand helfen und den folgenden Code dahingehend modifizieren?
Der bisherige Code:
Private Sub CommandButton6_Click()
If Len(Trim(TextBox1)) = 0 Then MsgBox "Nichts zum Löschen da! ", 64, " Hinweis :-)": _
_
Exit Sub
Dim Mldg, Stil, Titel, Ktxt, Antwort, Text
Beep
Mldg = " Daten wirklich löschen? " & Chr(13) _
Stil = vbYesNo + vbQuestion + vbDefaultButton1
Titel = " Information"
Ktxt = 1000
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
If Antwort = vbNo Then
Text = "Nein"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
ElseIf Antwort = vbYes Then
Text = "Ja"
Dim intZ As Integer
Dim sh As Worksheet
'Set sh = Worksheets("Tabelle1")
Set sh = ActiveSheet
Dim durchsuchen, finden As Range
Set durchsuchen = sh.Range("b16:d" & _
sh.Range("B65536").End(xlUp).Row)
For Each finden In durchsuchen
If finden.Text = TextBox1.Text Then
intZ = finden.Row
Exit For
End If
Next finden
ActiveSheet.Unprotect
sh.Rows(intZ).Delete
ActiveSheet.Protect
For IntC = 1 To 19
Controls("TextBox" & IntC) = ""
Next
MsgBox "Der Datensatz wurde gelöscht. ", 64, " Hinweis :-)"
Exit Sub
End If
End Sub
LG Ina