Sub colorString()
Dim rng As Range
With ActiveSheet
For Each rng In .Range("Q4:Q" & Application.Max(4, .Cells(.Rows.Count, 17).End(xlUp).Row))
rng.Font.ColorIndex = xlAutomatic
If Len(rng) >= 3 + .Cells(rng.Row, 2).Value Then
rng.Characters(3, .Cells(rng.Row, 2).Value).Font.ColorIndex = 3
End If
Next
End With
End Sub
Public Sub colorString()
Dim rng As Range
With ActiveSheet
For Each rng In .Range("Q4:Q" & Application.Max(4, .Cells(.Rows.Count, 17).End(xlUp).Row))
rng.Font.ColorIndex = xlAutomatic
If IsNumeric(rng) Then rng = "'" & rng.Text
rng.Characters(3, 4).Font.ColorIndex = 3
Next
End With
End Sub
Public Sub colorString()
Dim rng As Range
Columns("Q:Q").Select
Selection.NumberFormat = "@"
With ActiveSheet
For Each rng In .Range("Q4:Q" & Application.Max(4, .Cells(.Rows.Count, 17).End(xlUp).Row))
rng.Font.ColorIndex = xlAutomatic
'If IsNumeric(rng) Then rng = "'" & rng.Text
If IsNumeric(rng) Then rng = "" & rng.Text
rng.Characters(3, 4).Font.ColorIndex = 3
Next
End With
Columns("Q:Q").Select
Selection.NumberFormat = "0"
Range("Q7").Select
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen