Wenn in Zelle folgender String, dann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub test() Dim lngSt As Long Dim rZelle As Range For Each rZelle In Range("G4:G92") With rZelle lngSt = InStr(.Value, "Z ") - 6 .Characters(Start:=lngSt, Length:=2).Font.ColorIndex = 5 lngSt = lngSt + 2 .Characters(Start:=lngSt, Length:=4).Font.ColorIndex = 3 lngSt = lngSt + 4 .Characters(Start:=lngSt, Length:=1).Font.ColorIndex = 4 End With Next rZelle End Sub

Hallo,
teste mal

Option Explicit
 
Sub test()
Dim lngSt As Long
Dim rZelle As Range
Dim strTemp As String
Dim SuchWert As String
 
For Each rZelle In Range("G4:G92")
    With rZelle
        lngSt = InStr(.Value, "Z ") - 6
         .Characters(Start:=lngSt, Length:=2).Font.ColorIndex = 5
        lngSt = lngSt + 2
         .Characters(Start:=lngSt, Length:=4).Font.ColorIndex = 3
        lngSt = lngSt + 4
         .Characters(Start:=lngSt, Length:=1).Font.ColorIndex = 4
    
    'FEW, SCT, BKN oder OVC 
    If InStr(.Value, "FEW") > 0 Then
     SuchWert = "FEW"
    ElseIf InStr(.Value, "OVC") > 0 Then
     SuchWert = "OVC"
    ElseIf InStr(.Value, "SCT") > 0 Then
     SuchWert = "SCT"
    ElseIf InStr(.Value, "BKN") > 0 Then
     SuchWert = "BKN"
    Else
     SuchWert = ""
    End If
        If InStr(.Value, SuchWert) > 0 And SuchWert > "" Then
           strTemp = Right$(.Value, Len(.Value) - InStr(.Value, SuchWert) - 2)
           strTemp = Left$(strTemp, InStr(strTemp, "/") - 1)
            
            If strTemp < 10 Then
             lngSt = InStr(.Value, SuchWert & strTemp)
             .Characters(Start:=lngSt, Length:=3).Font.FontStyle = "Fett"
             .Characters(Start:=lngSt, Length:=Len(SuchWert & strTemp)).Font.ColorIndex = 3
            End If
        
        End If
    
    End With
Next rZelle
 
End Sub

Gruß Tino

www.VBA-Excel.de

Hallo Tino,
Beispiel:
Code: KEWR 061751Z 12008KT 10SM OVC009 26/23 A2982=
Wenn OVC009 kleiner/gleich OVC002 ist, dann rot.
Code: LTBA 061750Z 04011KT CAVOK 24/17 Q1015 NOSIG=
Wenn 04011KT (also die Zahlen 11) grösser 35KT, dann rot.
Code: METAR UMMM 061800Z 15002MPS 5000 BR BKN100 22/18 Q1013 12000060 NOSIG RMK QFE739=
Wenn die Buchstaben (hier: BR) kommen, dann rot (auch rot, wenn die Buchatben TS TSRA BCFG FZFG FZRA kommen).
Code: METAR DTTA 061800Z 20019G29KT 7000 -SHRA SCT026 SCT030CB BKN093 29/17 Q1014 CB. NE .N TEMPO 4000 TS SHRA=
Wenn die Buchstaben 20019G29KT, also die 19G grösser/gleich 30G, dann rot
Code: METAR LDZA 061800Z 24004KT CAVOK 26/16 Q1010 NOSIG=
Wenn die Zahlen 26/16 ganz beianander (-+2) sind rot. Z.B. 15/14 oder 3/4 oder 18/17 oder 13/13.
Code: UUDD 061640Z 061803 18004MPS 3000 BR SCT025 SCT030CB TEMPO 1803 0500 FG VV004 PROB40 TEMPO 1803 TSRA=
Wenn hinter einer 4 stellingen Zahl eine 4 stellige Zahlenfolge kommt, dann die zweite Zahlenreihe rot, wenn kleiner/gleich 500. Hier: TEMPO 1803 0500 FG.
(Nur zum Verständnis: also Temporär 1800Uhr bis 0300Uhr 0500meter Sicht wegen Nebel).
Ich hoffe, dass ich mich Verständlich ausdrücken konnte.
Ich Danke Dir.
Gruss
Mehmet

Beliebteste Forumthreads (12 Monate)

Wenn in Zelle folgender String, dann

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

379 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn in Zelle folgender String, dann

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

379 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread