Herbers Excel-Forum - das Archiv

Like mit *

Bild

Betrifft: Like mit *
von: Christian

Geschrieben am: 15.12.2006 15:44:52
Hallo zusammen,
ich habe folgende Abfrage:
If Not Worksheets(target_sheet).Cells(n, 2) Like "*" Then
...
end if
Aussen herum ist eine Schleife, welche die enzelnen Zeilen von oben nach unten durchgeht. Jetzt moechte aber, dass die if Bedingung nur wahr ist wenn in der geprueften Zelle kein '*' steht. Der 'Stern' ist eigentlich immer das erste Zeichen.
Normalerweise macht man sowas doch mit like "...*". Aber in diesem Fall klappt es nicht weil das Zeichen nach dem ich suche selbst der '*' ist!
Gibt es da eine andere Loesung?
Danke,
Christian
Bild

Betrifft: AW: Like mit *
von: Matthias G
Geschrieben am: 15.12.2006 15:49:15
Hallo Christian,
mit InStr():
If InStr(Worksheets(target_sheet).Cells(n, 2), "*") = 0 Then

Gruß Matthias
Bild

Betrifft: AW: Like mit *
von: Christian
Geschrieben am: 15.12.2006 15:54:34
Hallo Matthias,
sehr gut! Klappt wunderwar.
Auf euch kann man sich doch immer verlassen.
Vielen dank,
Christian
 Bild