Schriftart ändern

gp · 2008-05-29T12:47:23+00:00

Hallo Zusammen, ich habe folgenden VBA Code For KeyCount = 1 To Len(strTxt) If Mid(Cells(20, 10), KeyCount, 2) = "VT" Then With Cells(20, 10).Characters(Start:=KeyCount, Length:=2).Font.Name = "Arial" .FontStyle = "Fett" End With End If Next KeyCount Das Problem scheint am "If Mid(Cells(20, 10)... ="VT" zu liegen, da Then übersprungen wird. Die Frage ist was muss ich schreiben damit in dem String nach "VT" gesucht wird. Für Hinweise herzlichen Dank. Gruss Gunter

Hallo Gunter,
vielleicht liegt es am falschen Gebrauch der With-Anweisung?
Probier mal


Option Explicit
Sub aTst1()
Dim strTxt As String, KeyCount As Integer
With Cells(20, 10)
strTxt = .Value
For KeyCount = 1 To Len(strTxt) - 1
If Mid(strTxt, KeyCount, 2) = "VT" Then
With .Characters(Start:=KeyCount, Length:=2).Font
.Name = "Arial"
.Bold = True
End With
End If
Next KeyCount
End With
End Sub
Sub aTst2()
Dim KeyCount As Integer
With Cells(20, 10)
For KeyCount = 1 To Len(.Value) - 1
If Mid(.Value, KeyCount, 2) = "VT" Then
With .Characters(KeyCount, 2).Font
.Name = "Arial"
.FontStyle = "Fett"
End With
End If
Next KeyCount
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Renée,
mit Deiner Lösung passiert das gleiche wie bei Erich's. Ich habe den verdacht, das da am Rest von meinem Skript irgend etwas faul ist. Vollständig schaut das Ganze so aus:
Option Explicit


Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
Dim varZ As Variant, lngZ As Long, zz As Long, strTxt As String
Dim KeyCount As Integer, t As Integer, i As Integer
varZ = Application.Match(CDbl(Date), Columns(1), 0)
If IsError(varZ) Then
MsgBox "Heutiges Datum nicht gefunden - Abbruch"
Exit Sub
Else
lngZ = CLng(varZ)
End If
For zz = lngZ To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(zz, 1) = Date Then
varZ = zz
If strTxt > "" Then strTxt = strTxt & "; "
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
End If
Next zz
Tabelle3.Cells(20, 10) = strTxt
For KeyCount = 1 To Len(Cells(20, 10).Value)
If Mid(Cells(20, 10), KeyCount, 2) = "VT" Then
Cells(20, 10).Characters(Start:=KeyCount, Length:=2).Font.Bold = True
End If
Next KeyCount
For zz = lngZ To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(zz, 1) = Date And Cells(zz, 8) > "" Then
varZ = zz
If strTxt > "" Then i = i + 1
strTxt = i
End If
Next zz
Tabelle3.Cells(42, 4) = strTxt
End Sub

Ich hoffe das ist nicht zu viel. Aber irgendwie macht mich das verrückt, dass das nicht funktionieren will
Gruss
Gunter

Forumthread: Schriftart ändern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Schriftart ändern

Forumthread: Schriftart ändern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread