AW: Zahlenwert suchen u. Zeile löschen
04.05.2009 14:50:56
Chris
Servus Walli,
alternativ hab ich mal das Makro geschrieben. Mir scheint nämlich deine Zahlenfolge ist nicht ohne Leerstellen aufgebaut (evtl. Text?):
Sub t()
Dim i As Long, rSuche As Range, rFinde As Range, strErste As String, ZeilenArray() As Long, x _
As Long, k As Long, lauf As Long
Set rFinde = Range("A:A")
Set rSuche = rFinde.Find(What:="7", LookAt:=xlPart, LookIn:=xlValues, SearchDirection:=xlNext)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
ReDim Preserve ZeilenArray(x)
ZeilenArray(x) = rSuche.Row
x = x + 1
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address strErste
Else
Exit Sub
End If
For i = UBound(ZeilenArray()) To LBound(ZeilenArray()) Step -1
For k = 1 To Len(Range("A" & ZeilenArray(i)))
If Mid(Range("A" & ZeilenArray(i)), k, 1) " " Then
lauf = lauf + 1
End If
If lauf = 7 And Mid(Range("A" & ZeilenArray(i)), k, 1) = "7" Then
Range("A" & ZeilenArray(i) & ":H" & ZeilenArray(i)).ClearContents
lauf = 0
Exit For
Else
If lauf > 7 Then
lauf = 0
Exit For
End If
End If
Next k
Next i
End Sub
Gruß
Chris