Tipps & Tricks
13.03.2006, 10:15 Uhr
Inhalte aus mehreren Excel-Zellen in die Fusszeile übernehmen
Mit Hilfe eines Makros (Webcode 26558) wird der Inhalt einer Zelle in die Fusszeile übernommen. Nun sollen mehrere Inhalte aus verschiedenen Zellen in die Fusszeile übernommen und diese mittels Zeilenumbruch getrennt werden. Wie erreiche ich das?
Die Zellinhalte, die zu verwenden sind, befinden sich im folgenden Beispiel in den Zellen A1 bis A5.
Die Fusszeile ist vorerst noch leer. Sollte etwas drinstehen, würde der Inhalt unweigerlich überschrieben werden.
Verwenden Sie das folgende Makro, um die Daten aus A1-A5 im oberen Teil zusammenzustellen und diese dann in die Fusszeile einzufügen.
Nach dem Ausführen des Makros befinden sich die Zellinhalte wie gewünscht durch Zeilenumbrüche getrennt in der Fusszeile
------------------------------------------
MAKRO ZUM KOPIEREN:
------------------------------------------
Sub Fusszeile_mehrfach()
Dim z1, z2, z3, z4, z5 As String
z1 = Range("A1").Value & Chr(13)
z2 = z1 & Range("A2").Value & Chr(13)
z3 = z2 & Range("A3").Value & Chr(13)
z4 = z3 & Range("A4").Value & Chr(13)
z5 = z4 & Range("A5").Value
ActiveSheet.PageSetup.CenterFooter = z5
End Sub
------------------------------------------
Kommentare
Es sind keine Kommentare vorhanden.
