Microsoft Excel

Herbers Excel/VBA-Archiv

Übereinstimmung mit Wort

Betrifft: Übereinstimmung mit Wort von: Carsten
Geschrieben am: 13.09.2004 12:25:15

Hallo,

ich habe folgende Frage, kann man nach einem bestimmten Wort in einer Zelle suchen, das Bestanteil eines zusmmengesetzen Wortes ist. Dieses Wort wird immer anders geschrieben entweder so:

JA 5,5 JAHRESWARTUNG ( VON HAND ANGELEGT)

oder so

11 JAHRESWARTUNG.

oder so

4,0 J.WARTUNG VON HAND ANGELEGT....

Es kommt immer "Wartung" in der Zusammensetzung vor und dies ist dann auch mein Suchkriterium. Leider ohne Erfolg.

Ich habe es schon versucht mit "*Wartung*"

Range("H1").Select
Do Until ActiveCell.Offset(0, -7) = ""
If ActiveCell.Offset(0, -4) <> "*Wartung*"_
Then
Selection.EntireRow.Cut
Sheets(Blatt4).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets(Blatt5).Select
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Kann jemand helfen? Gruß Carsten

  


Betrifft: AW: Übereinstimmung mit Wort von: ypsilon
Geschrieben am: 13.09.2004 12:33:26

hi Carsten,
schau dir mal "instr" an
If InStr(UCase(ActiveCell.Offset(0, -4)), UCase("Wartung")) <> 0 Then
cu Micha


  


Betrifft: AW: Übereinstimmung mit Wort von: Carsten
Geschrieben am: 13.09.2004 12:39:50

Hi Micha,

vielen Dank für den Tip, hat gleich geholfen!!!


  


Betrifft: AW: Übereinstimmung mit Wort von: Harald Kapp
Geschrieben am: 13.09.2004 12:36:22

Hallo Carsten,

If instr(ActiveCell.Offset(0, -4).text, "Wartung") <> 0 then ...

Unterscheidet aber noch zwischen Groß- und Kleinschreibung.

If instr(UCase(ActiveCell.Offset(0, -4).text), Ucase("Wartung")) <> 0 then ...

Wandelt vorher in Großbuchstaben, ist daher case-insensitive.


Gruß Harald


  


Betrifft: AW: Übereinstimmung mit Wort von: Carsten
Geschrieben am: 13.09.2004 12:41:02

Auch Dir Danke Harald!