Variable fett/unterstrichen in Kopfzeile
23.04.2009 09:59:09
Peter
ich hätte da gern einmal ein Problem:
Ich soll je nach Tabellenblatt unterschiedliche Texte - z. B. Kosten (Januar 2009) - in der Kopfzeile des Balltes ausgeben. Dabei soll Kosten fett und unterstrichen (Januar 2009) standard und mager ausgegeben werden.
Ich habe es so versucht - die Texte werden aus einem Tabellenblatt entnommen
Select Case ActiveSheet.Name
Case "Köpfe": lZeile = 2
Case "Kosten": lZeile = 3
Case "Stunden": lZeile = 4
Case Else: Exit Sub
End Select
sText = Left(WkSh_Q.Cells(lZeile, 1).Value, InStr(WkSh_Q.Cells(lZeile, 1).Value, "(") - 1)
sMonJahr = Mid(WkSh_Q.Cells(lZeile, 1).Value, InStr(WkSh_Q.Cells(lZeile, 1).Value, "("))
.PageSeActiveSheettup.CenterHeader = _
"&""Arial,Fett""&12&UsText&""Arial,Standard""&10&U &12sMonJahr" }
Das heißt, ich separiere den Text in zwei Variable und versuche ihn dann auszugeben.
Leider gibt das Makro die Variablen-Namen - wie gewünscht fett/unterstrichn und standard/mager - aus,
nicht aber deren Inhalt.
Was mache ich da verkehrt?
Für einen heißen Tipp schon jetzt vielen Dank im voraus.
Gruß Peter
Anzeige