Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopfzeile in Abhängigkeit vom Zellinhalt

Kopfzeile in Abhängigkeit vom Zellinhalt
14.03.2018 13:43:52
Ralf
Hallo Forum,
ich erstelle mit folgendem Code einen Eintrag in der Kopfzeile:
Private Sub Workbook_Open()
Dim objWS As Worksheet
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Druck: " & _
Format(Date, "dd. MMMM yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " Uhr von " & Environ("UserName")
Next objWS
End Sub
Jetzt soll aber der Kopfzeileneintrag in Abhängigkeit von einer Zelle stehen.
Der nachfolgende Code funktioniert nicht (ich kann kein VBA), soll aber die funktionsweise erklären.
Private Sub Workbook_Open()
Dim objWS As Worksheet
If Sheets("Sprachauswahl").Range("F2") = 1 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Druck: " & _
Format(Date, "dd. MMMM yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " Uhr von " & Environ("UserName")
Next objWS
If Sheets("Sprachauswahl").Range("F2") = 2 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Print: " & _
Format(Date, "MMMM, dd yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " clock by " & Environ("UserName")
Next objWS
If Sheets("Sprachauswahl").Range("F2") = 3 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "压力: " & _
Format(Date, "yyyy m dd") & " / " & _
Format(Time, "hh:mm:ss") & " 从中 " & Environ("UserName")
Next objWS
End Sub
Eine weitere Frage wäre den Befehl Format(Date, ....) als Druckdatum auszugeben. Geht das?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopfzeile in Abhängigkeit vom Zellinhalt
14.03.2018 15:15:55
Werner
Hallo Ralf,
so: 
Dim objWS As Worksheet
Select Case Sheets("Sprachauswahl").Range("F2").Value
Case 1
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Druck: " & _
Format(Date, "dd. MMMM yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " Uhr von " & Environ("UserName")
Next objWS
Case 2
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Print: " & _
Format(Date, "MMMM, dd yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " clock by " & Environ("UserName")
Next objWS
Case 3
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "?: " & _
Format(Date, "yyyy m dd") & " / " & _
Format(Time, "hh:mm:ss") & " ? " & Environ("UserName")
Next objWS
Case Else
End Select
Gruß Werner
Anzeige
AW: Kopfzeile in Abhängigkeit vom Zellinhalt
14.03.2018 15:26:22
Ralf
Hallo Werner,
Hallo Hanshüsli,
beide Lösungen funktionieren wunderbar.
Einziges Manko: Ich muss nach Änderung der Zelle F2 z. B. von 1 auf 2 die Mappe speichern, schließen und wieder neu öffnen, damit das gewünschte Ergebnis erscheint.
Geht das auch Online, ohne speichern, schließen und wieder öffnen?
Viele Grüße
Ralf
AW: Kopfzeile in Abhängigkeit vom Zellinhalt
14.03.2018 15:46:25
EtoPHG
Hallo Ralf,
Dann teilen wir das auf:
Code in DieseArbeitsmappe: 
Private Sub Workbook_Open()
Sprachauswahl
End Sub

Code in ein Modul: 
Sub Sprachauswahl()
Dim objWS As Worksheet
Dim Prefix As String
Dim FormattedDate As String
Dim FormattedTime As String
Dim PostFix As String
FormattedTime = Format(Time, "hh:mm:ss")
Select Case Worksheets("Sprachauswahl").Cells(2, 6)
Case 1
Prefix = "Druck:"
FormattedDate = Format(Date, "dd. MMMM yyyy")
PostFix = " Uhr von "
Case 2
Prefix = "Print:"
FormattedDate = Format(Date, "MMMM, dd yyyy")
PostFix = " clock by "
Case 3
Prefix = "压力"
FormattedDate = Format(Date, "yyyy m dd")
PostFix = " 从中 "
End Select
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = Prefix & _
FormattedDate & " / " & _
FormattedTime & PostFix & Environ("UserName")
Next objWS
End Sub

Code in das Tabelleblatt "Sprachauswahl": 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then Sprachauswahl
End Sub
Gruess Hansueli
Anzeige
AW: Kopfzeile in Abhängigkeit vom Zellinhalt
15.03.2018 06:57:20
Ralf
Hallo Hansueli,
vielen Dank für Deine Unterstützung.
Bei Änderung der Zelle F2 im Blatt "Sprachauswahl" ändert sich momentan die Kopfzeile nicht.
Kann das an der Art und Weise liegen wie die Sprachauswahl gemacht wird? Ich benutze 3 Optionsfelder die einen Wert in die Zelle F2 schreiben.
Viele Grüße
Ralf
Zeig den Code für die Optionsfelder ! (owT)
15.03.2018 08:18:52
EtoPHG

AW: Zeig den Code für die Optionsfelder ! (owT)
15.03.2018 08:26:33
Ralf
Hallo Hansueli,
welchen Code meinst Du?
Im Tabellenblatt "Sprachauswahl" sieht es so aus:
Userbild
Ich weiß momentan nicht, welche Information ich Dir liefern soll.
Viele Grüße
Ralf
Anzeige
AW: Zeig den Code für die Optionsfelder ! (owT)
15.03.2018 09:16:49
Daniel
Hi
basierend auf dem Vorschlag von HansUeli
1. lösche das Worksheet_Change-Makro im Modul des Tabellenblatts "Sprachauswahl"
2. weise den Optionbuttons das Makro "Sprachauswahl" zu.
hierzu klickst du sie mit der rechten Maustaste an, gehst im Kontextmenü auf "Makro zuweisen" und wählst das Makro aus.
Dieses Makro wird dann ausgeführt, wenn du die Checkbox anklickst.
Gruß Daniel
AW: Zeig den Code für die Optionsfelder ! (owT)
15.03.2018 11:25:57
Ralf
Hallo Daniel,
super, jetzt funktioniert es.
Nur dauert die Sprachumstellung jetzt ein paar Sekunden. Kann man das noch optimieren?
Vielen Dank für die schnelle Hilfe.
Viele Grüße
Ralf
Anzeige
AW: Zeig den Code für die Optionsfelder ! (owT)
16.03.2018 10:51:11
Daniel
Hi
ja, der Zugriff auf die Printeinstellungen dauert, warum auch immer.
Anscheinend halten Computer und Drucker dann ein Kaffekränzchen.
Versuch mal obs schneller geht, wenn du dem ganzen ein:
Application.PrintCommunication = False

voranstellst.
Hinterher wieder einschalten.
Gruß Daniel
AW: Zeig den Code für die Optionsfelder ! (owT)
20.03.2018 10:51:20
Ralf
Hallo Daniel,
ich habe es bislang versäumt, Dir eine Rückmeldung zu geben.
Ich habe Deinen Vorschlag eingearbeitet. Ja, es ist ein wenig schneller geworden. Dann ist es eben so, das man eine Gedenkminute einlegen muss.
Vielen Dank für Deinen Tipp.
Viele Grüße
Ralf
Anzeige
AW: Kopfzeile in Abhängigkeit vom Zellinhalt
14.03.2018 15:17:20
EtoPHG
Hallo Ralf,
z.B. so: ? 
Private Sub Workbook_Open()
Dim objWS As Worksheet
Dim Prefix As String
Dim FormattedDate As String
Dim FormattedTime As String
Dim PostFix As String
FormattedTime = Format(Time, "hh:mm:ss")
Select Case Worksheets("Sprachauswahl").Cells(2, 6)
Case 1
Prefix = "Druck:"
FormattedDate = Format(Date, "dd. MMMM yyyy")
PostFix = " Uhr von "
Case 2
Prefix = "Print:"
FormattedDate = Format(Date, "MMMM, dd yyyy")
PostFix = " clock by "
Case 3
Prefix = "压力"
FormattedDate = Format(Date, "yyyy m dd")
PostFix = " 从中 "
End Select
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = Prefix & _
FormattedDate & " / " & _
FormattedTime & PostFix & Environ("UserName")
Next objWS
End Sub
Gruess Hansueli
Anzeige

167 Forumthreads zu ähnlichen Themen

Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellengröße automatisch anpassen
DockM@ster

Hallo,
über ein Tabellenblatt hole ich mir mit der Funktion "sverweis" die Daten. Dabei gibt es auch ein Feld "Langtext". Hier möchte ich, dass sich die Zelle automatisch an den Text anpasst. Mit den normalen Formatierungsfunktionen geht es nicht. Hat dazu jemand eine Lösung (VBA)?
Dock...
06.11.2008 19:55:00
Thread-ID: 1022412
8 Beiträge
Anzeige
Zelleninhalte verschieben, dann Zeilen löschen?
Selma

Hallo Leute,
wenn...
in Zelle der Spalte E dies "Applikation"
in Zelle der Spalte F dies "Version"
in Zelle der Spalte G dies "Computername"
in Zelle der Spalte H dies "Zuletzt genutzt am"
steht,
dann möchte ich die Zelleninhalte von Spalte A bis Spalte D eine Zei...
06.03.2009 19:02:21
Thread-ID: 1057433
6 Beiträge
Zellinhalt rechts von benannter Zeile abfragen
benannter

Guten Abend
Ich verschiedenen Tabellen hat es benannte Zellen. Rechts von diesen Zellen steht manchmal eine gerade Zahl. Nun möchte ich mit einer Funktion, der ich den String des Namens übergebe, die positive gerade Zahl zwischen 1 und 20 zurückerhalten, falls eine solche in der Zelle recht...
14.03.2009 22:27:08
Thread-ID: 1060299
3 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox OptionButton

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