bestimmte Strings markieren

Hallo Forum,
in Tabelle3 Splate C habe ich Zeile für Zeile String stehen:
zB.:
C3 steht "Keine DFGH1 111236Z 12FDR 335566Z"
C4 steht "TAF 124312Z TFGF 12/25 JHTFD1"
C5 steht "954656Z 125Z SDFGZ DFGRFG 45665FDG 855647Z DFG45"
und so weiter.
Nun soll alles was 6 Zahlen + String Z hat farblich markiert werden.
Also für C3: 111236Z und 335566Z
soll 11 und 33 blau+fett sein
soll 1236 und 5566 rot+fett sein
soll der String Z grün sein.
Für C4: 124312Z
soll 12 blau+fett sein
soll 4312 rot+fett sein
soll der String Z grün sein.
Für C5: 954656Z
soll 95 blau+fett sein
soll 4656 rot+fett sein
soll der String Z grün sein.
Es sollen also alle in Spalte C kommende Strings (2Zahlen+4Zahlen+Z) markiert werden.
Herzlichen Dank
Gruss
mehmet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Umfärben() Dim PosZ As Long Dim txt As String Dim Zelle As Range For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2) PosZ = 0 txt = Zelle.Value Do PosZ = InStr(PosZ + 1, txt, "Z") If PosZ = 0 Then Exit Do If PosZ > 6 Then If IsNumeric(Mid(txt, PosZ - 6, 6)) Then Zelle.Characters(Start:=PosZ - 6, Length:=2).Font.ColorIndex = 5 Zelle.Characters(Start:=PosZ - 4, Length:=4).Font.ColorIndex = 3 Zelle.Characters(Start:=PosZ, Length:=1).Font.ColorIndex = 4 Zelle.Characters(Start:=PosZ - 6, Length:=6).Font.Bold = True End If End If Loop Next End Sub

Sub Umfärben_Schraegstrich() Sheets("Tabelle3").Select Dim PosZ As Long Dim txt As String Dim Zelle As Range For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2) PosZ = 0 txt = Zelle.Value Do PosZ = InStr(PosZ + 1, txt, "/") If PosZ = 0 Then Exit Do If PosZ > 4 Then If IsNumeric(Mid(txt, PosZ - 4, 4)) Then Zelle.Characters(Start:=PosZ - 4, Length:=2).Font.ColorIndex = 5 Zelle.Characters(Start:=PosZ - 4, Length:=4).Font.ColorIndex = 3 Zelle.Characters(Start:=PosZ, Length:=1).Font.ColorIndex = 4 Zelle.Characters(Start:=PosZ - 4, Length:=4).Font.Bold = True End If End If Loop Next End Sub

Hallo Daniel,


Sub Umfärben_Schraegstrich()
Sheets("Tabelle3").Select
Dim PosZ As Long
Dim txt As String
Dim Zelle As Range
For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2)
PosZ = 0
txt = Zelle.Value
Do
PosZ = InStr(PosZ + 1, txt, "/")
If PosZ = 0 Then Exit Do
If PosZ > 4 Then
If IsNumeric(Mid(txt, PosZ - 4, 4)) Then
Zelle.Characters(Start:=PosZ - 4, Length:=2).Font.ColorIndex = 5 'blau
Zelle.Characters(Start:=PosZ - 2, Length:=2).Font.ColorIndex = 3 'rot
Zelle.Characters(Start:=PosZ - 4, Length:=4).Font.Bold = True
Zelle.Characters(Start:=PosZ, Length:=1).Font.ColorIndex = 4 'hellgrün
Zelle.Characters(Start:=PosZ - 0, Length:=4).Font.Bold = True
Zelle.Characters(Start:=PosZ + 1, Length:=2).Font.ColorIndex = 5 'blau
Zelle.Characters(Start:=PosZ + 3, Length:=2).Font.ColorIndex = 3 'rot
Zelle.Characters(Start:=PosZ + 1, Length:=4).Font.Bold = True
End If
End If
Loop
Next
End Sub

Makro läuft so weit.
Aber ist es auch stielistisch!
Gruss
mehmet

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bestimmte Strings markieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread