bestimmten Text erkennen

Forumthread: bestimmten Text erkennen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: bestimmten Text erkennen

09.05.2007 13:00:46

cNuuuuuu

Hallo zusammen!
Habe mittlerweile alle Probleme selber lösen können nur noch das hier ist offen...
Ich würde gerne, dass das Makro unten nicht nur unmittelbar den Text "blau" erkennt, sondern auch, wenn "blau" in nem Satz steht oder mit Leerzeichen " blau hallo"...
Wäre super wenn mir wer helfen könnte :)

Sub WennDann() If Worksheets("Tabelle1").Range("A1").Value = "blau" Then Range("B1").Select ActiveCell.FormulaR1C1 = "erledigt" Else If Worksheets("Tabelle1").Range("A5").Value = "gelb" Then Range("B1").Select ActiveCell.FormulaR1C1 = "Fehler1" Else Range("B1").Select ActiveCell.FormulaR1C1 = "unbekannter Fehler" End If End If End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: bestimmten Text erkennen

09.05.2007 13:04:00

Mac4
Klappt super! Danke :)

09.05.2007 13:07:54

cNuuuuuu

AW: bestimmten Text erkennen

09.05.2007 13:04:00

Mac4

Hi,
probiers mal mit LIKE:


Sub WennDann()
If Worksheets("Tabelle1").Range("A1").Value Like "*blau*" Then
Range("B1").Select
ActiveCell.FormulaR1C1 = "erledigt"
Else
If Worksheets("Tabelle1").Range("A5").Value Like "gelb" Then
Range("B1").Select
ActiveCell.FormulaR1C1 = "Fehler1"
Else
Range("B1").Select
ActiveCell.FormulaR1C1 = "unbekannter Fehler"
End If
End If
End Sub