Schriftart ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Sub Fettig() Dim KeyCount As Integer 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 End Sub

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

For KeyCount = 1 To Len(Tabelle3.Cells(20, 10).Value) If Mid(Tabelle3.Cells(20, 10), KeyCount, 2) = "VT" Then Tabelle3.Cells(20, 10).Characters(Start:=KeyCount, Length:=2).Font.Bold = True End If Next KeyCount

...Werner,
ich kenne den Spreewald und Raddusch und das Museumsdorf und die Mücken und auch die alten Tagebaue und ihre Großgeräte. Mit dem Fahrrad könnte ich in 5-6 Stunden bei einer "relativen" Durchschnittsgeschwindigkeit von 20 km/h vor Ort sein (mit 14 war das ein Schulausflug!).
Warum dann nicht angemeldet? Tja, vielleicht bin ich nicht so "vergnügungssüchtig", aber ursprünglich wollte ich (schon aus den von dir genannten Gründen) kommen, aber dann gab's Urlaubs- und andere Querelen und schon war's zu spät... Sind morgen aber in Bautzen und Görlitz - vielleicht reicht's noch zu einem kurzen Abstecher...
Ansonsten viel Spaß an alle Beteiligten!
Gruß Luc :-?
PS: Leider wirst du das wohl erst nach deiner Rückkehr lesen können... Daran ist Kontraste schuld! ;-)

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread