Zellen löschen
02.03.2004 13:13:45
helena
kleines Problem dies Macro löscht die Zelle mit Suchbegriff
möchte aber die Zelle + die Linke davon auch löschen
also B+A nach links
c.Delete shift:=xlToLeft(-1) '???? A+B löschen in B war Wert
Sub Suchbegriffelöschen()
Dim Wert As String
Dim suche
Dim c As Range
suche = InputBox("Bitte den Suchbegriff eingeben", "suche nach ..")
Wert = suche
If Wert = "" Then Exit Sub
For Each c In [B1:B1000]
If c = Wert Then
c.Delete shift:=xlToLeft(-1) '???? A+B löschen in B war Wert
End If
Next
End Sub
danke
gruss helena