Ich benutze folgenden VBA-Code um die Kopfzeile eines Arbeitsblattes nach Bedarf anzupassen:
Worksheets("blatt1").PageSetup.CenterHeader = Worksheets("blatt2").Cells(2, 1) \' firmenname
Wenn der Name der Firma nun aber zum Beispiel "FIRMA&CO" lautet, hab ich ein Problem, da das "&" als Steuerzeichen aufgefasst wird.
Wie kann ich den Befehl dahingehend anpassen, dass der String auch in diesem Fall korrekt ausgegeben wird?
Uli M martinschneider „Excel - Steuerzeichen in Kopfzeile (kleiner Schönheitsfehler)“
Prinzip, wobei du je nach Xl-Version auch die Funktion Replace einsetzen kannst:
Dim sFirma As String, I As Integer
sFirma = Worksheets("blatt2").Cells(2, 1)
I = InStr(1, sFirma, "&")
If I > 0 Then
sFirma = Left(sFirma, I - 1) & "anderes Zeichen" & Mid(sFirma, I + 1)
End If
Worksheets("blatt1").PageSetup.CenterHeader = sFirma
martinschneider Uli M „Prinzip, wobei du je nach Xl-Version auch die Funktion Replace einsetzen kannst:...“
Vielen Dank!
Die Lösung funktioniert problemlos. Müsste es aber nicht möglich sein, dass Ganze eleganter zu lösen. Ein "&"-Zeichen in der Kopfzeile kann doch nicht zuviel verlangt sein von einem Programm wie Excel, oder?
Sollte man zumindest hoffen!!
