Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in Textbox oder Fußzeile schreiben

Forumthread: Wert in Textbox oder Fußzeile schreiben

Wert in Textbox oder Fußzeile schreiben
22.02.2005 14:48:00
Diana
Hallo,
ich versuche gerade folgendes Problem zu lösen. Ich habe eine Excel-Datei mit mehreren Arbeitsblättern und möchte gern auf jedem Arbeitsblatt in der Fußzeile z.B. links einen Namen ausgeben, der in einer Zelle definiert ist. Z.B. gebe ich auf dem Arbeitsblatt "1" in Zelle A1 den Namen eines Betriebes ein, dieser soll dann auf allen Arbeitsblättern (und Diagrammblättern) in der Fußzeile erscheinen.
Gibt es dafür eine Lösung?
Gruß aus Hannover
Diana
Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
we
Hallo Diana,
kannst Du nicht einfach die Arbeitsblätter entspechen benamen? Anschließend in der Fußzeile Tabellenblatt einfügen
we
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 14:55:45
Diana
Nein leider nicht, da es sich um eine Datei handelt, die ich für jeden Betrieb nehme, ich verändere nur einige Daten und dann werden bestimmte Ergebnisse in den Diagrammen und Tabellenblättern dargestellt. Wenn ich nun diese Blätter ausdrucken möchte, gebe ich natürlich den Betriebsnamen an, damit ich nachher noch weiß, was für Ausdrucke das sind und welchem Betrieb sie zuzuordnen sind.
Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
u_
Hallo,
in das Klassenmodul der Tabelle 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
For Each sh In Worksheets
sh.PageSetup.LeftFooter = Target
Next sh
End If
End Sub

Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 15:06:32
Diana
Habe ich eingefügt
In welches Tabellblatt gebe ich den Betriebsnamen in Zelle A1 ein?
AW: Wert in Textbox oder Fußzeile schreiben
u_
in das Blatt, in dessen Klassenmodul der Code steht.
Gruß
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 15:16:55
Diana
Ich weiß nicht woran es liegt, aber ich kann ja mal beschreiben, was ich gemacht habe. Ich habe den Code in das Klassenmodul Klasse 1 eingetragen. Die Tabellenblätter haben alle benutzerdefinierte Namen ... aber eines ist im VBA-Fenster als Tabelle1 (HBD Daten) gekennzeichnet. Gebe ich dort in A1 den Betriebsnamen ein, passiert nichts. Was mache ich falsch?
Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
u_
Hallo,
Das ist falsch. Du hast ein eigenes Klassenmodul hinzugefügt.
im VBA-Editor Doppelklick auf Tabelle1 (HBD Daten). Den Code in das rechte Fenster kopieren. Dann sollte es klappen.
Oder in Excel Rechtsklick auf das Register dr Tab, Code anzeigen wählen und den Code in das sich öffnende Fenster kopieren (ist das gleiche).
Gruß
Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 15:27:01
Diana
Jetzt klappt es, aber nur für Tabellenblätter ... Diagramm haben keinen Eintrag in der Fußzeile
Geht das noch zu erweitern?
Vielen liebe Dank schon einmal für die Hilfe ... sehr kompetent und schnell!!!
Gruß Diana
AW: Wert in Textbox oder Fußzeile schreiben
u_
so sollte es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
For Each sh In Sheets
sh.PageSetup.LeftFooter = Target
Next sh
End If
End Sub

Gruß
Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 15:36:00
Diana
Nein macht er nicht ... im Gegenteil es gibt jetzt auch eine Fehlermeldung, dass er darüber stolpert.
Tut mir leid, wenn ich soviel ärger verursache
AW: Wert in Textbox oder Fußzeile schreiben
u_
Tschuldigung. Mea culpa.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Sheet
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
For Each sh In Sheets
sh.PageSetup.LeftFooter = Target
Next sh
End If
End Sub

Anzeige
AW: Wert in Textbox oder Fußzeile schreiben
22.02.2005 15:49:54
Diana
Das geht leider auch nicht, das hatte ich schon probiert ... auch mit Dim sh As Sheets
aber es geht nicht.
Nur wenn du wirklich noch zeit und lust hast, wäre eine Antwort super ..
Vielen Dank bisher
Diana
kannst du die Mappe hochladen? oT
u_
AW: kannst du die Mappe hochladen? oT
22.02.2005 15:57:22
Diana
Die Originaldatei darf ich nicht hochladen, aber ich habe eine Datei zum Testen erstellt. Diese hat in light dieselben Funktionen .. Tabellenblätter und Diagramm.
Gruß Diana
Anzeige
AW: kannst du die Mappe hochladen? oT
u_
das kommt davon, wenn man blind Codes schreibt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Integer
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
For sh = 1 To Sheets.Count
Sheets(sh).PageSetup.LeftFooter = Target
Next sh
End If
End Sub

Anzeige
VIELEN DANK!!!!
Diana
Danke
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 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