Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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.
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?
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ß
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
Anzeige
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

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

VIELEN DANK!!!!
Diana
Danke

307 Forumthreads zu ähnlichen 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
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:33:59
Thread-ID: 1000866
3 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:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
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
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
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
Anzeige

Links zu Excel-Dialogen

TextBox

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
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4