Text mit unterschiedlichen Formaten
16.12.2014 19:49:16
siegfried
ich möchte per VBA einen Text aus zwei unterschiedlichen Formaten zusammensetzen
Der fertige Text soll z.B. "A2" heißen.
Der Buchstabenteil ("A") soll mit dem Schrifttyp "Symbol" formatiert werden, während der Zahlenteil ("2") mit dem Schrifttyp "Wingdings" formatiert werden soll.
Sub Zeichen()
Dim n1 As Integer, n2 As Integer
Dim Zeichen1 As Long
Dim Typ1 As String, Typ2 As String, Txt1 As String, Txt2 As String
Zeichen1 = Range("P1").Value
Typ1 = "Symbol"
Typ2 = "Wingdings"
For n1 = 0 To 3
For n2 = 0 To 12
If Len(Range("F11").Offset(n2, 0).Value) = 3 Then
' Typ1
Txt1 = Chr(Range("F11").Offset(n2, 0).Value)
Else
' Typ2
Txt2 = Chr(Range("F11").Offset(n2, 0).Value)
End If
Next n2
Zeichen1 = Zeichen1 + 1
Next n1
End Sub
Was muß ich tun, um den gewünschten Effekt zu erreichen?
Gruß
Siegfried