vba-Prüfen ob ein bestimmter Text vorhanden ist

12/08/2010 - 20:55 von Herbert Clemens | Report spam
Hallo zusammen,

in einem Makro (2003/2007) soll geprüft werden, ob in einer Spalte ein
bestimmter Text (hier: ein Name) vorkommt. Nur dann soll das Makro
fortgesetzt werden.
Was gebe ich ein?

Vielen Dank für Eure Antworten

Herbert Clemens
 

Lesen sie die antworten

#1 Stefan Kunze
13/08/2010 - 08:13 | Warnen spam
"Herbert Clemens" schrieb:
in einem Makro (2003/2007) soll geprüft werden, ob in einer Spalte ein
bestimmter Text (hier: ein Name) vorkommt. Nur dann soll das Makro
fortgesetzt werden.
Was gebe ich ein?



Hallo Herbert,
füge eine Schleife in deinen Code ein, in der die Zellinhalte geprüft
werden.
Beispiel:
'
Dim ra as Range 'Range-Objekt
Dim c as long
Dim sSuchtext AS String, bGefunden AS Boolean

c = 3 'Nummer der Spalte, die durchsucht werden soll
bGefunden = False 'Flag auf Falsch einstellen
For Each ra in ActiveSheet.UsedRange.Columns(c)
If CStr(ra.Value) = sSuchtext Then
bGefunden = True
Exit For 'Ausstieg aus der Schleife, Text gefunden
End if
Next

'weitere Ausführung ist abhànging vom Flag "bGefunden"
If bGefunden Then
'Hier steht der Code, der weiter ausgeführt werden soll
'wenn der Text gefunden wurde
Else
'Hier steht der Code, der weiter ausgeführt werden soll
'wenn der Text NICHT gefunden wurde
End If
' Ende Beispiel -

Viele Grüße
Stefan

Ähnliche fragen