Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopf- und Fusszeile mit VBA

Kopf- und Fusszeile mit VBA
25.03.2015 10:27:32
Norbert
Hallo Spezialisten
ist es möglich, die Kopf- und Fusszeile so zu definieren wie im Bild?
Linke Kopfzeile:
Die gelbmarkierten Felder sollen über eine Messagebox eingefügt werden.
Kann die Messagebox auf einmal 4 Zeilen aufnehmen?
Mittig Kopfzeile:
Preisliste gültig ab als fixer Text, Datum über Messagebox eintragen
Rechte Kopfzeile
4 Zeiliger fixer Text, wobei die 2. Zeile über eine Messagebox abgefragt werden soll
Fusszeile mit Standard Seite von Anzahl Seiten und rechts aktuelle Datum
Userbild

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf- und Fusszeile mit VBA
25.03.2015 11:44:33
UweD
Hallo
Messagebox müsste eine Inputbox sein...
Hier ein Beispiel mit Hilfe einer Userform
Userbild
Private Sub CommandButton1_Click() 'OK
With ActiveSheet.PageSetup
.LeftHeader = _
TextBox1.Value & Chr(10) & _
TextBox2.Value & Chr(10) & _
TextBox3.Value & Chr(10) & _
TextBox4.Value & Chr(10)
.CenterHeader = "&""Arial,Fett""Preisliste gültig ab" & Chr(10) & TextBox5.Value
.RightHeader = "Meine Firma" & Chr(10) & TextBox6.Value & Chr(10) & _
"Meine Strasse" & Chr(10) & "Meine PLZ Stadt"
.LeftFooter = "Seite &P von &N"
End With
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click() 'Abbrechen
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
TextBox6.Value = Application.UserName
End Sub
https://www.herber.de/bbs/user/96623.xlsm
Gruß UweD

Anzeige
AW: Kopf- und Fusszeile mit VBA
25.03.2015 12:25:48
Norbert
Danke für den Input - an die Userform hatte ich nicht gedacht.
Kann der Aufruf des CommandButton auch integriert im vorausgehenden Makro integriert werden?
Das wäre noch das Tüpfelchen auf dem i

AW: Kopf- und Fusszeile mit VBA
25.03.2015 12:38:26
Rudi
Hallo,
ja.
Einfach Userform1.show ans Ende schreiben.
Gruß
Rudi

AW: Kopf- und Fusszeile mit VBA
25.03.2015 12:47:21
Norbert
...alles erledigt, konnte es selber regeln
Nochmals besten Dank

300 Forumthreads zu ähnlichen Themen

Seitenrand bei Kopf und Fusszeile
TomTom

Hi,
ich habe eine ExcelSeite in Queerformat mit vielen Informationen drauf. Die Seite ist so eingestellt, dass der rechte und der linke Seitenrand auf 0,7 eingestellt sind. Nun wollte ich noch eine Kopf und eine Fusszeile einfügen.
Die Kopfzeile ist eine Überschrift (Text) und ich habe...
29.08.2008 10:16:00
Thread-ID: 1005710
2 Beiträge
Anzeige
Kopf- und Fußzeile schützen
Ulla

Hallo,
ich habe in Excel einige Formulare erstellt. Damit niemand die Kopfzeile und die Fußzeile verändern kann, möchte ich einen Schreibschutz drauflegen.
Ist das überhaupt möglich?
Wenn ja, wie?
Vielen Dank für Eure Unterstützung.
Grüße
Ulla
06.04.2010 11:18:07
Thread-ID: 1150296
2 Beiträge
Schutz von Kopf- und Fußzeile
Kopf-

Hallo zusammen,
habe die Strucktur meiner Tabellenblätter geschützt, nur kann trotz vg. Schutz die Kopf- und Fußzeile noch geändert werden, dies sollte jedoch nicht mehr änderbar sein.
Frage: Kann die Kopf- und Fußzeile auch geschützt werden und wenn ja wie?
Bitte um Antwort
Gr...
12.03.2011 07:20:17
Thread-ID: 1205352
5 Beiträge
Anzeige
Kopf- und Fusszeilen setzen
Pepi

Hallo zusammen
Wenn ich mit dem Makrorecorder die Kopf- und Fusszeilen setze, und danach das Makro mit einer neuen Tabelle laufen lasse funktioniert es nicht mehr. (Falsche oder gar keine Werte!)
Ich habe immer wieder neue Tabelle, die die gleiche oder eine ähnliche Seitervormatierung m...
13.04.2012 09:41:44
Thread-ID: 1259000
5 Beiträge
variable Kopf- und Fußzeilen
Hans

Hallo,
um die Fuß- und Kopfzeilen je Tabellenblatt unterschiedlich variabel zu beschriften, habe ich volgenden VBA-Code in der Arbeitsmappe: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet = Sheets("Tabelle1") Then ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("P1"...
23.07.2012 17:09:50
Thread-ID: 1272351
6 Beiträge
Kopf- und Fußzeile
haw

Hallo Excelfreunde,
nun werkel ich schon seit 20 Jahren mit Excel und auch VBA. Ich habe folgenden Code, um die Kopf- und Fußzeile zu definieren:
Application.PrintCommunication = False
ws.PageSetup.PrintTitleRows = "$1:$1"
With ws.PageSetup
.CenterHeader = "&D"
.Righ...
12.09.2013 07:07:58
Thread-ID: 1330423
10 Beiträge
"&"-Zeichen verfälscht Kopf- und Fusszeile
Talia

Guten Morgen,
Ich habe ein Problem mit dem "&"-Zeichen.
In der Zelle A1 stehen Produktnamen z.B. "Dark Nut" oder aber auch "S&S Black".
Auf diese Zelle verweise ich in meinen Kopf-und Fusszeilen in VBA:
.LeftHeader = "&""Arial,Standard""&8" & Range("A1").va...
28.04.2014 08:12:14
Thread-ID: 1358808
12 Beiträge
Kopf und fusszeile übernehmen
Manuel

Hallo!
Gibt es einen einfachen Code der die Kopfzeile und Fusszeile für ein neu erstelltes Arbeitsblatt (Tabelle4) von Tabelle1 übernimmt (mit Grafik)?
Danke!
11.08.2016 09:33:25
Thread-ID: 1508777
5 Beiträge

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
4
1
4
5
9
11
4
12
6
7
2
1
2
2
2
1
2
8
3
3
1
3