Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Text in Fußzeile aus zwei Zellen

Forumthread: Text in Fußzeile aus zwei Zellen

Text in Fußzeile aus zwei Zellen
18.09.2021 16:02:20
Thomas
Hallo Zusammen,
wie kann ich den Text der in der die Fußzeile angezeigt werden soll aus zwei Zelen holen?
Aus einer klappe es .

Sub PfadInFusszeile()
ActiveSheet.PageSetup.LeftFooter = Range("Deckblatt!D10").Value
End Sub
Danke und Gruß
Thomas
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:05:04
onur
So?

Sub PfadInFusszeile()
Dim txt
txt=Range("Deckblatt!D10").Value & Range("Deckblatt!D11").Value
ActiveSheet.PageSetup.LeftFooter = txt
End Sub

AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:08:05
Thomas
Ja so!
Tausend Dank.
und wie kann ich das auf alle Tebellebblatter eine Datei übertragen?
Danke und Gruß
Thomas
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:08:48
onur
?
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:10:13
Thomas
ok:)
Trotzdem tausend Dank.
Gruß
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:11:56
onur
Sollte heissen: ich verstehe die Frage nicht.
Welche Datei? Was GENAU? Wo ist diese Datei dfenn ?
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:20:10
Thomas
Achso!
Ich habe mehrere Tabellenblätter, und will dass die Fußzeile auf allen Tabellenblättern auftaucht.
hab ebenwas versucht, funktioniert aber noch nicht.

Sub PfadInFusszeile()
Dim ws As Worksheet
Dim txt
For Each ws In ThisWorkbook.Worksheets
ws.Activate
txt = Range("Deckblatt!D10").Value & ", " & Range("Deckblatt!D27").Value
ActiveSheet.PageSetup.LeftFooter = txt
Next ws
End Sub
Danke und Gruß
Thomas
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:26:29
onur
Natürlich
....Sheets("Deckblatt!").Range("D10").Value....
statt
...Range("Deckblatt!D10").Value....
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:35:12
Thomas
?
irgendwo ist noch ein bug.

Sub PfadInFusszeile()
Dim ws As Worksheet
Dim txt
For Each ws In ThisWorkbook.Worksheets
ws.Activate
txt = Sheets("Deckblatt!").Range("D10").Value & ", " & Range("D27").Value
ActiveSheet.PageSetup.LeftFooter = txt
Next ws
End Sub

Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:36:49
onur
Ausrufezeichen muss weg.
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:44:45
Thomas
Tausend Dank.
Aber auch ohne ! funktioniert es bei mir noch nicht:(
Was mache ich falsch?

Sub PfadInFusszeile()
Dim ws As Worksheet
Dim txt
For Each ws In ThisWorkbook.Worksheets
ws.Activate
txt = Sheets("Deckblatt").Range("D10").Value & ", " & Range("D27").Value
ActiveSheet.PageSetup.LeftFooter = txt
Next ws
End Sub

Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:46:43
onur
Wie gesagt: poste die datei, wie soll ich sonst testen?
Teste DAS:
Sheets("Deckblatt").Range("D10").Value & ", " & Sheets("Deckblatt").Range("D27").Value
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 16:58:54
Thomas
ok,
schon mal Danke im Voraus.
das Makro habe ich unter Personal.lxsb gespeichert
https://www.herber.de/bbs/user/148139.xlsx
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 17:05:44
onur 

Dim ws, txt
For Each ws In ThisWorkbook.Worksheets
txt = Sheets("Deckblatt").Range("D10").Value & ", " & Sheets("Deckblatt").Range("D19").Value
ActiveSheet.PageSetup.LeftFooter = txt
Next ws

AW: Text in Fußzeile aus zwei Zellen
18.09.2021 17:15:14
Thomas
Tausend Dank.
Das funktioniert.
Allerdings muss ich das Makro in jeder einzelnen Tabelle neu ausführen.
Gibt es eine Weg das alle Tabelenblätter mit einem Mal die gleiche Fußzeile erhalten?
Danke und Gruß
Thomas
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 17:22:53
onur
Sorry,
ws.PageSetup.LeftFooter = txt
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 17:14:15
Nepumuk
Hallo Thomas,
dann so:

Sub PfadInFusszeile()
Dim ws As Worksheet
Dim txt As String
With ActiveWorkbook
With .Worksheets("Deckblatt")
txt = .Range("D10").Value & ", " & .Range("D27").Value
End With
For Each ws In .Worksheets
ws.PageSetup.LeftFooter = txt
Next ws
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: Text in Fußzeile aus zwei Zellen
18.09.2021 17:25:27
Thomas
Hallo Nepumuk,
tausend Dank, das funktioniert.
Ich über mal noch ein bisschen bei der VBA-Programmierung:)
Danke und Gruß
ThomasW aus W

Forumthreads zu verwandten Themen

Bestimmten Text in Zelle finden und Adresse davon ausgeben
AhoiBrause90
Hallo geschätze Excelkenner,

Ich komme seit 2 Tagen auf keine passende Lösung, für folgende Aufgabe:

In Tabellenblatt1 steht ein Text den ich in Tabellenblatt2 finden möchte. Allerdings steht es dort in zwischen anderen Wörtern in einer Zelle.
Wenn ich es dort gefunden habe möc...
04.04.2024 19:36:00
Thread-ID: 1972316
3 Beiträge
Anzeige
Wörter in Text-Zelle finden und ausgeben
Georg

Hallo zusammen,
ich bin auf der Suche nach einer Formel, die es mir erlaubt nach bestimmten Wörtern zu suchen und diese dann entsprechend in der selben Zeile auszugeben.
Meine Datei ist wie folgt aufgebaut:
In Spalte A stehen Nummern, Spalte B enthälte teilweise sehr lange Texte zu...
22.06.2020 17:02:57
Thread-ID: 1767101
2 Beiträge
Anzeige
Replace Funktion
Torsten

Hallo,
ich möchte per VBA einzelne Wörter in einem Text ersetzten, habe mir dafür die Replace-Funktion rausgepickt.
Ein Ausgangstext wird von Zelle A1 nach A2 kopiert und der Text in A1 bleibt im Original erhalten.
In A3 steht das Suchwort “Otto“ und in A4 ein weiteres Suchwort “Max...
11.03.2019 13:45:55
Thread-ID: 1680602
8 Beiträge
VBA Text in Zelle per Eingabe s und Zeilen kopiere
Michael

Hallo zusammen,
vorab, ich bin ganz neu hier und mir bewusst dass jeder etwaige Helfer seine Unterstützung, zunächst, ohne Gegenleistung anbietet. Dafür möchte ich schon jetzt meinen grössten Dank aussprechen.
Nun zur Thematik,
ich bin Projektleiter in einem grossen Unternehmen und...
19.02.2018 14:32:25
Thread-ID: 1609822
4 Beiträge
Wort aus Zelle in Matrix suchen und anderen wert ausgeben
Nikolaus Pfusterschmid
Ich versuche in Tabelle A bei meiner Buchhaltung wiederkehrende Buchungen in einer Zelle zu finden die in einer anderen Tabelle stehen. Da sich in der Zelle immer eine Zahl mit dem Datum befinden kann, soll nur ein bestimmter Wortteil gesucht werden und dann der Text aus einer anderen Zelle ausgewor...
17.10.2023 13:58:53
Thread-ID: 1949907
7 Beiträge
Textsuche: Spalte und Reihe per Formel finden
Maximilian

Hallo,
in der Zelle B2 steht der Text "test".
Mit welchen beiden Formeln kann ich das Wort "test" in der gesamten Tabelle suchen und jeweils einmal Spalte und einmal Zeile der gefundenen Zelle ausgeben?
Ideal wäre es noch, wenn das ganze Groß- und Kleinschreibung ignoriert, aber das...
20.02.2013 12:21:17
Thread-ID: 1300185
9 Beiträge
Datum bzw. "Heute" finden
Eisi

Guten Morgen,
jetzt dachte ich, dass der Code funktioniert, aber leider doch nicht. Bzw. gestern ging er und heute Morgen nicht mehr.
Folgendes:
Ich habe eine Tabelle in der in Zeile 13:13 mit der >Formel =NH13+1 Meine Fensteransicht ist bei Spalte N fixiert.
Ich möchte, dass...
29.12.2020 10:18:08
Thread-ID: 1802328
8 Beiträge
Suchen in Datenbank
siegfried
Guten Morgen Fachfrauen und Männer,
ich habe eine Datenbank mit 12 Spalten und bis zu 2.500 Datensätze.
Ich suche eine Möglichkeit für das SUCHEN nach Text in der Datenbank, es sollte in Spalte B bis D gesucht werden.
Ich habe mal "FINDEN" angeschaut aber leider nicht das Richtige für mi...
11.02.2023 11:10:23
Thread-ID: 1919813
15 Beiträge
Anzeige
und gleichzeitig noch ne andere Problemfrage
Pascal

Sorry, dass ich jetzt - obwohl ich ein paar Zeilen weiter unten schon ein Problem gepostet habe.... schon wieder poste ! ;-(
Aber....
Ich brauche gleich nochmals (oder schon wieder) … eure profi-Hilfe
Und zwar bei folgendem Code:
Private Sub CommandButton1_Click() 'On Error Resu...
25.01.2011 13:46:37
Thread-ID: 1197229
3 Beiträge
Text suchen und -1 Zelle anderen Text eintragen
albin

Hallo zusammen
Komme mal wieder nicht weiter.
Ich suchen den Text "Geburtstag" in Spalte D, ab Zeile 3. Wenn dieser gefunden wurde, dann schreibe eine Zelle Tiefer, einen anderen Text rein. Der Suchebegriff kann mehrmals vorkommen in D vorkommen.
Wenn ich nur ein Such-Zeichen benütz...
09.05.2017 02:54:26
Thread-ID: 1557131
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum