Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgewählte Tabellenblätter drucken

Ausgewählte Tabellenblätter drucken
28.06.2006 12:32:57
Robert
Hallo.
Ich habe folgendes Problem:
Ich habe eine Exceldatei mit mehreren Tabellenblättern. Ich möchte auf Tabellenblatt 1 die Namen der Tabellenblätter in Spalte A eintragen. Jetzt möchte ich, dass ich mit Hilfe eines Druckbuttons diese Tabellenblätter drucken kann, bei denen hinter dem Namen (also in Spalte B) ein x steht. Quasi möchte ich so auswählen welche Blätter ich ausdrucken will.
Kann mir da jemand helfen? Ich weiß nicht wie...
Danke schonmal
Grüße
Robert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgewählte Tabellenblätter drucken
28.06.2006 12:39:13
Uduuh
Hallo,

Sub druckenBlätter()
Dim i As Integer
With Sheets(1)
For i = 1 To .Cells(65536, 1).End(xlUp).Row
If .Cells(i, 2) = "x" Then Sheets(.Cells(i, 1)).PrintOut
Next i
End With
End Sub

Gruß aus’m Pott
Udo

Hilfe.. geht noch nicht...
28.06.2006 12:47:07
Robert
Danke erst mal. Aber ich hab noch n Problem:
Ich hab jetzt 3 Tabellenblätter (Tabelle1...Tabelle3)
In Tabelle 1 steht in A1 "Tabelle1" und in B1 ein "x"
in A2 steht "Tabelle2", B1 ist leer. In tabelle1 ist die Schaltfläche der ich den Code zugewiesen habe...
Ich bekomme die Fehlermeldung: Typen unverträgleich
Anzeige
AW: Hilfe.. geht noch nicht...
28.06.2006 12:55:56
Uduuh
Hallo,
versuch's mit
If .Cells(i, 2) = "x" Then Sheets(.Cells(i, 1).Value).PrintOut
Gruß aus’m Pott
Udo

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige