Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage eines Zellwerts- bestimmte Tabelle drucken

Abfrage eines Zellwerts- bestimmte Tabelle drucken
Karl-Ludwig
Hi Zusammen,
ersteinmal muss ich an alle Danke sagen, die mir hier schon geholfen haben. Mit ein wenig Bastelei habe ich alle Probleme lösen können.
Nun habe ich noch zwei Kleinigkeiten:
1. ich habe eine Routine, die ich wenn möglich erweitern möchte

Private Sub CommandButton1_Click()
Dim iCnt As Integer, iLoop As Integer
iCnt = Worksheets("Auftragsdaten").Range("a14").Value
For iLoop = 1 To iCnt
Worksheets("Auftragsdaten").Range("a14") = iLoop
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Fett""&58VE " & _
iLoop & " of " & iCnt
ActiveSheet.PrintOut
Next iLoop
End Sub


Die Zelle A 14 enthält eine Formel (=D5), die mit o.g. Routine überschrieben wird.
Nachdem ich die Seiten gedruckt habe, steht der letzte Wert.
Ist es Möglich am Ende die Zelle A 14 wieder zurückzusetzen?
und 2.
Kann man von einem Zellwert abhängig machen welches Tabellenblatt ausgedruckt wird?
Vielen Dank für die Hilfe
Gruß
KL

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfrage eines Zellwerts- bestimmte Tabelle drucken
25.06.2009 18:01:51
ms22
Hallo Karl,
die Erweiterung, dass am Ende wieder die Formel drinsteht geht so:

Private Sub CommandButton1_Click()
Dim iCnt As Integer, iLoop As Integer, formelauszelle as string
formelauszelle = Worksheets("Auftragsdaten").Range("a14").text
iCnt = Worksheets("Auftragsdaten").Range("a14").Value
For iLoop = 1 To iCnt
Worksheets("Auftragsdaten").Range("a14") = iLoop
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Fett""&58VE " & _
iLoop & " of " & iCnt
ActiveSheet.PrintOut
Next iLoop
Worksheets("Auftragsdaten").Range("a14").Value = formelauszelle
End Sub


Du kannst bestimmt abhängig vom Zellwert ein Tabellenblatt drucken, aber ich denke da findest du auch im archiv etwas darüber.
Viele Grüße
Markus

Anzeige
edit
25.06.2009 18:16:40
ms22
Hi,
sorry, hab mich vertippt: der richtige code für die Formel heißt:
formelauszelle = Worksheets("Auftragsdaten").Range("a14").Formula
Gruß Markus
AW: Abfrage eines Zellwerts- bestimmte Tabelle drucken
26.06.2009 13:56:25
Karl-Ludwig
Hi Markus,
das hat schon mal shr gut eklappt- Danke!
Aber zu meinem 2. Problem habe ich nichts wirklich passendes gefunden :-/
Wenn in der Tabelle1 Zelle D5 ein bestimmter Wert steht, soll Tabelle 3 ausgedruckt werden sonst Tabelle 4.
Hat noch jemand eine Idee hierzu?
Dankeschön+ Gruß
KL
AW: Abfrage eines Zellwerts- bestimmte Tabelle drucken
27.06.2009 06:51:48
Hans
Hallo,
wie folgt:

Sub Drucken()
If Range("D5").Value = 122 Then
Worksheets("Tabelle3").PrintOut
Else
Worksheets("Tabelle4").PrintOut
End If
End Sub


gruss hans

Anzeige
OT: Hallo Hans, schau dir mal bitte...
27.06.2009 12:05:24
Luc:-?
...den Startbeitrag zu diesem Link an. Da taucht dein Beitrag mit angepasstem Betreff auch auf. Beim Hochklicken landet man aber wieder in diesem Thread.
Das deine Forumssoftware nicht mal vor ihrem Meister Respekt hat... ;-)
Schönes WE, Gruß Luc :-?
AW: Abfrage eines Zellwerts- bestimmte Tabelle drucken
27.06.2009 06:54:26
Hans
Hallo,
wie folgt:

Sub Drucken()
If Range("D5").Value = 122 Then
Worksheets("Tabelle3").PrintOut
Else
Worksheets("Tabelle4").PrintOut
End If
End Sub


gruss hans

300 Forumthreads zu ähnlichen Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzeige
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
Berichtsfilterwert auch für andere Pivottabellen
Stefan

Hallo,
habe da eine Frage bzgl. des Berichtsfilters in Pivotabellen. Folgender Sachverhalt:
In einer Datei gibt es auf mehreren Arbeitsblättern Pivottabellen. Alle Pivots haben das Kriterium "Kalenderwoche" im Berichtsfilter. Wie kann ich, wenn ich mir in einer "Master-Pivottabelle" ein...
25.09.2008 10:58:00
Thread-ID: 1012265
2 Beiträge
Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Summe berechnen mit einer Matrixformel
Sibylle

Hallo,
kann man die Summe der Nettobeträge mit einer Matrixformel ermitteln.
Wenn ja, wie muss diese dann aussehen?
Besten Dank im voraus.
Gruß
Sibylle

11.11.2008 10:18:00
Thread-ID: 1023446
12 Beiträge
Autofilter - Filterwerte als Tabellenblatt
gregor

Hallo, ihr da draußen ;-)
Ich stehe vor folgendem Problem: Ich habe eine laaaaange Liste mit Kunden/Produkten, die unter anderem
eine Spalte mit dem Zuständigen Außendienst-Mitarbeiter enthält, also etwa so:
AD_____Kunde_______Produkt_______Menge
Meyer__Gebrüder Gr.__Produkt A__...
19.11.2008 17:33:58
Thread-ID: 1026134
9 Beiträge
AW: Autofilter - Filterwerte als Tabellenblatt
gregor

Hallo!
Erstmal vielen Dank für die vielen Ideen!
@Susanne:
*)Pivot möchte ich nicht machen, weil mir das irgendwie unsympathisch ist
*)Die Idee mit dem Makro aufzeichnen ist mir auch schon gekommen, aber da müsste es ja noch was eleganteres geben... ;-)
@Robert:
Funktion...
20.11.2008 18:20:00
Thread-ID: 1026507
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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