Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Größe angabe in vba hinzufügen

Forumthread: Größe angabe in vba hinzufügen

Größe angabe in vba hinzufügen
18.05.2005 10:15:46
sören
Hallo ich habe folgenden script

Sub fusszeile()
With ActiveSheet.PageSetup
dokumentenart = InputBox("Dokumentenart eingeben!", "Dokumentenart")
artikelnummer = InputBox("Artikelnummer eingeben!", "Artikelnummer")
formblattnummer = InputBox("Formblattnummer eingeben!", "Formblatnummer")
datum = InputBox("Das Datum eingeben!", "Datumseingabe", Format(Date, "dd.mm.yyyy"))
If MsgBox("Sollen die Unterschriften eingefügt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
ActiveSheet.PageSetup.CenterFooter = "                         erstellt(PE)_____geprüft(AL)/Datum_________Freigabe(GL)/Datum_________"
Else
ActiveSheet.PageSetup.CenterFooter = ""
End If
.LeftFooter = dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
seite = InputBox("Bitte die Seite eingeben", "Seite")
.RightFooter = "Seite:" & seite
End With
End Sub

ich möchte da noch gerne die größenangabe für jede Fußzeile bestimmen können.
es soll aber ein fester wert sein der in vba hinterlegt wird.
das muss irgendwie mit fonsize gehen, dass weiß ich. nur ich bekomme das da nicht rein
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Größe angabe in vba hinzufügen
18.05.2005 10:19:16
Hajo_Zi
Halo Sören
https://www.herber.de/forum/messages/612670.html
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

Homepage

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Größe angabe in vba hinzufügen
18.05.2005 10:19:18
ino
z.B. so:
.CenterFooter = "&8" & "Seite &P aus &N"
wobei 8 die Schriftgröße ist.
AW: Größe angabe in vba hinzufügen
18.05.2005 10:22:21
MichaV
Hi,
wie Dir Hajo schon geschrieben hat. Für Windings, Fett, Kursiv in Größe 48 wäre das:
.CenterFooter = "&Wingdings,Fett Kursiv&48 erstellt(PE)_____geprüft(AL)/Datum_________Freigabe(GL)/Datum_________"
Tip: Das kriegst Du schnell selber raus, wenn Du den Macrorecorder anwirfst, die Fußzeile in Excel festlegst, den Makrorecorder beendest und im Code guckst, was der Macrorecorder für Dich aufgezeichnet hat.
Gruss- Micha
Anzeige
AW: Größe angabe in vba hinzufügen
18.05.2005 10:40:52
sören
@hajo deine eine atnwort hat nicht viel gebracht udn ich dachte ichj eröffne zum neuen thema ein neues topic damit auch anderen geholfen werden könnte ;)
@Michav mit dem recorder ging nciht so gut excel schreibt ja alleman da was rein.
nur nicht das was mich interessiert
ich habe die lösung von ino umgesetzt
nur ich habe bei dem left footer problem eer macht mir nicht die Schriftgröße 2 sondern 25 wieso?

Sub fusszeile()
With ActiveSheet.PageSetup
dokumentenart = InputBox("Dokumentenart eingeben!", "Dokumentenart")
artikelnummer = InputBox("Artikelnummer eingeben!", "Artikelnummer")
formblattnummer = InputBox("Formblattnummer eingeben!", "Formblatnummer")
datum = InputBox("Das Datum eingeben!", "Datumseingabe", Format(Date, "dd.mm.yyyy"))
If MsgBox("Sollen die Unterschriften eingefügt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
ActiveSheet.PageSetup.CenterFooter = "&4" & "                         erstellt(PE)_____geprüft(AL)/Datum_________Freigabe(GL)/Datum_________"
Else
ActiveSheet.PageSetup.CenterFooter = ""
End If
.LeftFooter = "&2" & dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
seite = InputBox("Bitte die Seite eingeben", "Seite")
.RightFooter = "&4" & "Seite:" & seite
End With
End Sub

Anzeige
AW: Größe angabe in vba hinzufügen
18.05.2005 11:15:33
sören
habe eine Lösung gefunden anscheinend geht nicht wenn man eien variable danach haben möchte habe es nun so gelößt.
.LeftFooter = dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
nicht elegant aber es klappt
Lösung für Schriftgröße in Fußzeile
18.05.2005 20:59:47
Reinhard
Hallo Sören,
So klappt es bei mir mit 9.0:

Sub tt()
ActiveSheet.PageSetup.LeftFooter = """&10"" & ActiveWorkbook.FullName"
ActiveSheet.PageSetup.RightFooter = """&1000"" & ActiveWorkbook.FullName"
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Gruß
Reinhard
ps dafür habe ich höchstens ein Zehntel der Zeit gebraucht wie für mein frisch reingestelltes banales vlookup problem, wo ich festsitze, dabei vlookup schon 100fach benutzt und von "&10" wie es in der Hilfe steht hörte ich noch nie was *tztz*
Auch die nachfolgende Tabelle sah ich erstmalig:
Formatcodes für Kopf- und Fußzeilen
Die folgenden speziellen Formatcodes können in die Kopf- und Fußzeilen aufgenommen werden (LeftHeader, CenterHeader, RightHeader, LeftFooter, CenterFooter, RightFooter).
Formatcode Beschreibung
&L Richtet nachfolgende Zeichen links aus.
&C Zentriert das nachfolgende Zeichen.
&R Richtet nachfolgende Zeichen rechts aus.
&E Schaltet Doppelt Unterstreichen ein oder aus.
&X Schaltet Hochstellen ein oder aus.
&Y Schaltet Tiefstellen ein oder aus.
&B Schaltet Fettdruck ein oder aus.
&I Schaltet Kursivdruck ein oder aus.
&U Schaltet Unterstreichen ein oder aus.
&S Schaltet Durchstreichen ein oder aus.
&D Druckt das aktuelle Datum.
&T Druckt die aktuelle Zeit.
&F Druckt den Namen des Dokuments.
&A Druckt den Namen des Registers einer Arbeitsmappe.
&P Druckt die Seitenzahl.
&P+Zahl Druckt die Seitenzahl zuzüglich der angegebenen Zahl.
&P+Zahl Druckt die Seitenzahl abzüglich der angegebenen Zahl.
&& Druckt ein einzelnes kaufmännisches Und-Zeichen.
&"Schriftart" Druckt die nachfolgenden Zeichen in der angegebenen Schriftart. Schriftart muss von Anführungszeichen eingeschlossen sein.
&nn Druckt die nachfolgenden Zeichen im angegebenen Schriftgrad. Geben Sie eine zweistellige Zahl an, um den Schriftgrad anzugeben.
&N Druckt die Gesamtanzahl der Seiten eines Dokumentes.
Anzeige
Nachtrag zu LeftFooter = """&10""
18.05.2005 21:05:09
Reinhard
Hallo
für Excel ist das das gleiche:
ActiveSheet.PageSetup.LeftFooter = """&10"" & ActiveWorkbook.FullName"
ActiveSheet.PageSetup.LeftFooter = "&10"" & ActiveWorkbook.FullName"
Gruß
Reinhard
;

Forumthreads zu verwandten Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Per VBA eintragen und löschen
HansP

Hallo!
Ich habe ein bzw. mehrere Probleme. Ich muss in Excel eine kleine Verwaltung realisieren. Ich habe mehrere Tabellenblätter, die für die einzelnen Produkte stehen. Benennung ist identisch mit der Gruppe.
Die Tabelle selbst ist so aufgebaut:
lfd. Nr. | Menge | Eingang | Kürz...
06.11.2008 23:36:00
Thread-ID: 1022472
3 Beiträge
Per VBA Namen in Zellbezüge
Nico

Hallo,
nach ewiger - jedoch erfolgloser - Recherche im Web möchte ich mich mit meinem Problem an das Forum wenden.
Aus einer Arbeitsmappe mit ca. 20 Blättern soll ein Blatt kopiert werden, welches separat gespeichert und dann an verschiedene Empfänger verschickt werden soll. Das Blatt v...
07.11.2008 15:05:15
Thread-ID: 1022699
3 Beiträge
VBA abbrechen einfügen
maruseru

Hallo werte Profis
Habe den untenstehend Code übernommen und die Name der Arbeitsblätter angepasst.
Folgendes:
Besteht das Arbeitsblatt 'Selected' bereits, erscheint die Inputbox für die Eingabe des gewünschten Namen.
Wie kann ich diese Inputbox abbrechen?
Danek und Gruss
07.11.2008 15:13:40
Thread-ID: 1022705
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige