Supportnet / Forum / Tabellenkalkulation

Hallo, mein Problem, in die Fußzeile eines Diagrammes den Inhalt einer Zelle einzutragen wurde durch dieses Forum gelöst. Private Sub CommandButton6_Click() ActiveSheet.PageSetup.CenterFooter = _ Worksheets("Tabelle2").Range("A1") & " " & _ Worksheets("Tabelle2").Range("A2") End Sub Ich habe aber noch zwei weitere Probleme: 1. Schriftart in der Fußzeile In diesem VBA-Macro will ich noch eine spezielle Schriftart (Comic Sans MS) einbringen. Alle Versuche durch Help gesteuert führten nicht zu dem gewünschten Ergebnis bzw. zu Syntax-Fehlern. Wie muss den die korrekte Syntax lauten, wenn ich den obigen Inhalt in der gewünschten Schriftart haben will? 2. Bezug auf einen mit Namen versehenen Zelle Anstelle der festen Verdrahtung zu (in obigem Beispiel den Zellen A1 / A2) möchte ich gern den Namen der Zelle verwenden, um unabhängig zu sein, wenn ich diese Zelle verschiebe. Wie sieht denn dann die Syntax aus? Für eine Lösung bin ich sehr dankbar. Mit freundlichem Gruß fisch

Hi Fisch,

zuächst einmal, warum machst Du einen neuen Beitrag zu Deiner alten Frage auf? Bist Du der Meinung, dann schneller eine Antwort zu erhalten? Dein Vorgehen ist nicht gut. Wenn jemand Deinen Beitrag versucht zu verfolgen, erhält er keine Antwort, bzw. Lösungen mehr in Deinem alten Beitrag, weil alle weiteren Antworten und Lösungen in Deinem neuen Beitrag geschrieben werden. Also unterlasse das besser in Zukunft und warte eventuell ein bisschen bis Du Lösungsvorschläge erhälst. Denn alle, die hier Antworten, haben über den Tag hin bestimmt auch noch andere Aufgaben, als nur hier Lösungen im Forum zu schreiben.

Nachfolgender Code formatiert den Text in die Schriftart Comic Sans MS. Tausche ihn gegen Deinen alten Code aus.

Private Sub CommandButton4_Click()
ActiveSheet.PageSetup.CenterFooter = "&""Comic Sans MS,Standard""" _
& Worksheets("Tabelle2").Range("A1") & " " & _
Worksheets("Tabelle2").Range("A2")
End Sub

Deine zweite Frage verstehe ich nicht. Der Name der Zelle ist A1 und A2. Was meinst Du mit Namen? Erkläre das mal etwas genauer.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi coros,

zunächst meinen Dank für die Lösung von Problem 1.
Ich habe das gleich ausprobiert, klappt prima.

Für meinen Fehler mit dem Öffnen eines neuen Beitrag bitte ich um Entschuldigung. Erst seit gestern kenne ich diese Internet-Seite und kannte mich mit den Gepflogenheiten nicht so richtig aus.

Zu meinem 2. Problem:
Man kann über "Einfügen", "Namen", "Definieren..." einer Zelle einen Namen vergeben. (Beispiel: Zelle "A1" in Blatt "Tabelle1" den Namen "Name"). So kann ich in jeder Funktion anstelle des Verwendung von "Tabelle1!A1" mich einfach auf "Name" beziehen. So ist es besonders bei der Verwendung von Macros nicht erforderlich das Macro anzupassen, wenn man dann anstelle von "A1" "Name" verwendet.
Ich hoffe, meine Erklärung erklärt auch.

Gruß
fisch

Hi Fisch,

sorry, da muss ich passen. Ob so etwas geht, kann ich Dir nicht sagen. Ich habe jedenfalls damit in Makros noch nichts zu tun gehabt. Ich verwende in meinen Makros immer die richtige Zellbezeichnung. Also entweder

Range("A1")

oder

Cells(1, 1).

Das hat bis jetzt immer genügt. Aber vielleicht hat ja schon mal jemand anstelle der richtigen Zellbezeichnung mit den definierten Namen zu tun gehabt und kann Dir da helfen.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Zelleninhalt in Kopfzeile übernehmen
• Fußzeile Farbe
• Zelleninhalt wiederherstellen
• Fußzeile nicht auf der ersten Seite ?
• Excel Fußzeile mit Anzahl der Tabellenblätter