suchbegriff löschen
04.03.2004 07:48:37
helena
Sub Suchbegriffelöschen()
Dim Wert As String
Dim suche
Dim c As Range
suche = InputBox("Bitte den Suchbegriff eingeben", "suche nach zB +SCH1, +SCH2 usw. ..")
Wert = suche
If Wert = "" Then Exit Sub
Worksheets("Zwischenablage1").Activate
Range("a1").Select
For Each c In [B1:B1000]
If c = Wert Then
Range(c.Offset(0, -1), c).Delete shift:=xlToLeft
End If
Next
End Sub
Habe ein kleines Problem, es passiert manchmal das ein SUCHBEGRIFF
nicht gelöscht wird obwohl er sich in Spalte B befindet ???
beim zweiten run i.O
d.h. beim löschen wird ZelleB und die linke Zelle gelöscht
aber eben manchmal .....
weitere Problem
wenn Such begriff nicht gefunden wird sollte MSGBOX kommen
nicht gefunden,"nicht gefunden" und beenden
Danke für Hilfe
helena