Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopf-und Fusszeile

Kopf-und Fusszeile
23.02.2004 13:43:41
Florian
Hallo Leute!
Ich möchte wissen, wie ich bei Excel in der Kopfzeile den Benutzernamen anzeigen kann!
Wäre echt nett wenn mir das jemand erklären kann!
Vielen Dank schon mal im Vorraus.
Mfg
Florian Weinert

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf-und Fusszeile
23.02.2004 13:47:46
geri
Hallo Florian

Sub linke_fusszeile()
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "d.m.yyyy") & " erstellt von " & Application.UserName
Next ws
Application.ScreenUpdating = True
End Sub

evtl. beim starten bereits einbinden, bin nur nicht sicher
ob Off 97 dies mit den Befehlen kann, kanns nicht testen
gruss geri
AW: Kopf-und Fusszeile
23.02.2004 13:51:28
Florian
Hi geri!
danke aber ich kann das voll nicht!könntest du mir erklären wie ich das genau machen muss??
Danke
Mfg flo
AW: Kopf-und Fusszeile
23.02.2004 13:59:32
urs
Hallo Florian
hier ein Beispiel sogar für Multiuser. Ich habe diese Frage erst kürzlich selbst ins Forum gesetzt.
Folgender Code in "Diese arbeitsmappe" eintragen:
Achtung das ganze Macro ist für die linke Fusszeile geschrieben!!!!!!!


Private Sub Workbook_Open()
If footer_left = "" Then
Call ShowUserName
End If
End Sub

In das Modul schreibst Du dann:
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub ShowUserName()
Dim Buffer As String * 100
Dim BuffLen As Long
Dim Signatur As String
Dim Sign As String
BuffLen = 100
GetUserName Buffer, BuffLen
Signatur = Left(Buffer, BuffLen - 1)

If Signatur = "USER1" Then 'angemeldeter USER bei LOGIN
Sign = "U1" 'abkürzung des angemeldeten USERS
End If
If Signatur = "USER2" Then 'weitere User.....
Sign = "U2"
End If
If Signatur = "USER3" Then
Sign = "U3"
End If
If Signatur = "USER4" Then
Sign = "U4"
End If
If Signatur = "USER5" Then
Sign = "U5"
End If

For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "dd.mm.yy") & " Erst.: " & Sign
Next ws
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Kopf-und Fusszeile
23.02.2004 14:27:30
florian
danke!
AW: Kopf-und Fusszeile
23.02.2004 15:25:33
Florian
Sorry wenn ich nochmal störe aber das, was du mir geschickt hast, ist nicht das was ich haben wollt!
Man kann im excel ja einen benutzernamen definieren und der soll in der kopfzeile erscheinen!
Wie mache ich das dann??
Ich verstehe echt null von macros usw.
Danke im vorraus
Danke für Rückmeldung
23.02.2004 16:41:28
urs
Hallo Florian
danke für die Rückmeldung. Ich hoffe es läuft bei Excel 8 Office 97 auch.
Läufts jetzt?
24.02.2004 07:16:20
urs
Hallo Florian
ich habe gesehen,dass Geri Dir eine Kurzversion geschickt hat.
Genau das was Du wolltest. Funktioniert diese mitlerweile bei Dir?
Gruss urs
AW: Läufts jetzt?
26.02.2004 08:05:06
florian
Nein ich habe das nicht hinbekommen!ist jetzt auch egal!
Danke für eure mühe!
Anzeige

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 mit VBA
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...
25.03.2015 10:27:32
Thread-ID: 1417010
5 Beiträge

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
4
12
6
7
2
1
2
2
2
1
2
8
3
3
1