AW: Platzhalter, Zelle durchsuchen ob text
09.11.2007 10:42:42
Oberschlumpf
Hi Patrick
Versuchs mal mit einer For/Next-Schleife - und zwar so:
Dim Zaehler As Integer
For Zaehler = DeineStartZeile To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Zaehler, 4) "DeinText" Then
'keine Ahnung, was passieren soll, so lange der gesuchte Text nicht gefunden _
wird
Else
MsgBox "Text gefunden - Suche wird abgebrochen"
Exit For
End If
Next
In der ersten Zeile
For Zaehler = DeineStartZeile To Cells(Rows.Count, 1).End(xlUp).Row
musst du für die 1 (hinter Count,) die Spaltennummer der Spalte angeben, die du durchsuchen willst
1 = Spalte A
2 = Spalte B
3 = Spalte C
...
usw
Wenn in der Zeile
If Cells(Zaehler, 4) "DeinText" Then
anstelle von DeinText wirklich mit einem Platzhalter (Variable) gearbeitet werden soll, dann verwende diesen Code:
Dim Zaehler As Integer, lstrText As String
lstrText = "DeinText" 'oder mit z Bsp lstrText = Range("B20").Value der Textinhalt aus Zelle _
B20
For Zaehler = DeineStartZeile To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Zaehler, 4) lstrText Then
'keine Ahnung, was passieren soll, so lange der gesuchte Text nicht gefunden _
wird
Else
MsgBox "Text gefunden - Suche wird abgebrochen"
Exit For
End If
Next
Hilft das?
Ciao
Thorsten