Office: Instr() und select case

Hallo Gemeinde

ich muss euch wieder um Rat ersuchen

Ich möchte gern eine Spalte nach Wortbestandteilen durchsuchen (Jede Zelle für sich)

Aber so recht fällt mir keine Syntax ein

mit instr() kann ich ja einen bestimmten wortteil suchen

aber die instr(Suchzelle;suchwert) gibt mir ja die erste stelle des suchwertes zurück (hilft mir also nicht)

mit instr() = true als select case kann ich nur einen Wert suchen

da ich aber verschiedene Wortteile suchen möchte
zb wert oder not komm ich hier nicht weiter

vielleicht weiss ja jemand rat.

Grüße

Und Thanks in advance

:)

 

Suchen kann jeder.
Ich würde mir eher die Frage stellen, was Du mit den gefundenen Zeichenketten genau anfangen willst, danach richtet sich auch ein wenig die Art des Suchverfahrens.
Was sollte also erfolgen, wenn im Ausgangstext zweimal "wert" und einmal "not" auftreten? (Eine Prozedur muss mit Grenzfällen zurecht kommen.)

 

Hallo Eberhard

Danke für deine Antwort.

Also. Was soll passieren
Ich möchte Werte anhand einer Zeichenfolge Kategorisieren
und so soll das in etwa aussehen (ein einfaches suche war mir zu einfach :-D
(Der Code funzt natürlich nicht )

PHP:

         Public Sub art()
With Worksheets("Master+EW")
Dim i  As Integer

For i = 1 To .UsedRange.Rows.Count

Select Case True
Case InStr(.Cells(i, 45).Value, "NOT")

.Cells(i, 46).Value = "Note"

Case InStr(.Cells(i, 45).Value, "Rich")

.Cells(i, 46).Value = "Reichhaltig"

Case "ESP"
Code
End Select

Next i
End With
End Sub


 

Hallo Name?,

die reine Feststellung dieses Zustands hilft wenig bei der Suche nach den Ursachen.

Dass Instr() in der von Dir verwendeten Syntax casesensitiv arbeitet, ist Dir bewusst?
Code:

könnte also zu einem anderen, vielleicht sogar dem gewünschten Ergebnis führen.

Grüße
EarlFred

 

Vergleiche Hilfe zu Instr: Die Funktion gibt keinen Boolean-Wert zurück, sondern die Position des ersten Treffers. Eine Prüfung würde dann etwa so aussehen:
Code:

Und logischerweise bricht das Select Case nach dem ersten Treffer ab und würde daher weitere ignorieren.

 

Hallo Eberhard

Jack ist mein Name :-D

.. das Leben könnte so einfach sein, wenn man sich n bissl besser auskennen würde :-)

Der Tipp mit dem case sensitiv war genau der richtige. der nf. Code läuft jetzt =)

PHP:

         Public Sub art()
With Worksheets("Master+EW")
Dim i  As Integer

For i = 1 To .UsedRange.Rows.Count

Select Case True
Case InStr(LCase(.Cells(i, 45).Value), "not")

MsgBox i & "NOTE"

Case InStr(LCase(.Cells(i, 45).Value), "roch")

MsgBox i & "roch"

Case InStr(LCase(.Cells(i, 45).Value), "rich")
Case Else


End Select

Next i
End With
End Sub


 

Hallo Jack,

eine einfache Suche an Stelle von Select Case wäre vermutlich besser. Je nachdem, ob Du jedes Vorkommen untersuchen willst, oder Dir einer der Bestandteile reicht: Code:

Hang loose, haklesoft

 

Hallo haklesoft

danke für deinen Beitrag

Ist auf jeden Fall ein interessanter Ansatz, ist tatsächlich aber schon "zu viel" (du schreibst die verschiedenen Attribute immer eine Spalte weiter bei mehrfachtreffern innerhalb eines Strings-> das kommt so nicht vor) [okay hatte ich expressis verbis so aber nicht gesagt konntest also nicht wissen] muss also auch nicht abgefragt werden. =)

Ansonsten ist sie vollkommen richtig soweit.

Jetzt kann man im weiteren nur Diskutieren welche die "schönere" & effizientere Lösung ist. Ich finde, meine schöner, da ich relativ unkompliziert cases ergänzen kann, ohne jedes mal eine if schleife zu schreiben. Aber das ist denk ich reine geschmackssache :-D

Grüße