Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.05.2008 17:02:38 |
Anfänger |
|
|
|
19.05.2008 18:14:53 |
jh |
|
|
|
20.05.2008 08:21:40 |
Anfänger |
|
|
|
20.05.2008 17:01:25 |
jh |
|
|
Aw:Aw:Aw:Aw:Synthax If-Abfrage Übereinstimmung ers |
20.05.2008 17:38:36 |
Anfänger |
|
|
|
21.05.2008 04:33:47 |
jh |
|
|
|
21.05.2008 08:42:32 |
Anfäger |
|
|
|
21.05.2008 16:23:51 |
jh |
|
|
Von:
Anfänger |
Datum:
20.05.2008 17:38:36 |
Views:
1145 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Synthax If-Abfrage Übereinstimmung ers |
Hallo,
gibt´s denn auch ne Möglichkeit mit dem Ausdruck & "*"?
z.B.:
If Cells(I, 9) = "Hau & "*""
Gruß
Christian
jh schrieb am 20.05.2008 17:01:25:
Hallo,
die richtige Frage stellen will eben auch gelernt sein :-)
Ich hoffe mal, dass jede Zelle der Spalte nur ein Wort enthält,
sonst wird es nämlich noch ein bisschen komplizierter. Man könnte
hier die Find-Methode einsetzten, aber weil damit auch Wörter
gefunden werden, die den Suchtext irgendwo im Innern enthalten,
tut es auch eine simple For-Next-Schleife, wenn die Spalte nicht
gerade bis zur letzten Zeile gefüllt ist. Der folgende Code
durchsucht Spalte A in Tabelle1:
Dim strF As String, lngF() As Long, lngR As Long, l As Long
strF = "Hau"
ReDim lngF(0)
With Worksheets("Tabelle1")
' letzte Zeile bestimmen
lngR = .Range("A65536").End(xlUp).Row
For l = 1 To lngR
If Left$(.Cells(l, 1).Value, 3) = strF Then
ReDim Preserve lngF(UBound(lngF) + 1)
lngF(UBound(lngF)) = l
End If
Next l
End With
Wenn danach UBound(lngF) > 0 ist, enthält das Array, beginnend mit
Index 1 bis UBound(lngF) die Zeilen, in denen das Suchwort gefunden
wurde.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.05.2008 17:02:38 |
Anfänger |
|
|
|
19.05.2008 18:14:53 |
jh |
|
|
|
20.05.2008 08:21:40 |
Anfänger |
|
|
|
20.05.2008 17:01:25 |
jh |
|
|
Aw:Aw:Aw:Aw:Synthax If-Abfrage Übereinstimmung ers |
20.05.2008 17:38:36 |
Anfänger |
|
|
|
21.05.2008 04:33:47 |
jh |
|
|
|
21.05.2008 08:42:32 |
Anfäger |
|
|
|
21.05.2008 16:23:51 |
jh |
|
|