Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1308to1312
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
Inhaltsverzeichnis

bestimmte Tabelleblätter drucken, wenn B1=100

bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 11:11:14
Trudi
Schönen Vormittag
Ich versuche seit Tagen es zu lösen, alles abgesucht,
mein Chef meckert schon:
Excel 2010 und FreePDF Drucker
ca. 50 Tabellenblätter:
Hoch und Querformat unterschiedlich
Seitenansicht eingestellt
folgendes x mal versucht, finde keine Lösung:
Sub DruckenSeiten()
Dim i As Long
Dim x As Boolean
x = True
For i = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(i).Cells(1, 2).Value > 0 Then
Worksheets(i).Select x .........HIER IST IMMER EIN DEBUGGEN?
x = False
End If
Next
ActiveWindow.SelectedSheets.PrintOut
End Sub

oder das:

Sub DruckenAusgewählteSeiten()
For Each wks In ActiveWorkbook.Worksheets
If Len(Trim(wks.Cells(1, 2).Text)) > 0 Then
wks.PrintOut
End If
Next
End Sub

Wer hat ein Lösung, vielen Dank.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 11:40:07
Rudi
Hallo,
mein Chef meckert schon:
Dann sollte er dir mal nen VBA-Kurs spendieren.
Sub aaa()
Dim wks As Worksheet, objWKS As Object
Set objWKS = CreateObject("Scripting.Dictionary")
For Each wks In Worksheets
If wks.Range("B1") = 100 Then
objWKS(wks.Name) = 0
End If
Next
If objWKS.Count Then
Sheets(objWKS.keys).Select
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

Gruß
Rudi

AW: bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 13:36:30
Trudi
Vielen vielen Dank Rudi
Schönes Wochenende

AW: bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 11:48:30
GuentherH
bei welchem Wert für i erhälst Du die Fehlermeldung?
bei meiner Datei funktioniert das nämlich.
beste Grüße,
Günther

Anzeige
AW: bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 13:37:48
Trudi
Hallo Günther
das bekomme ich nicht raus,
der Tipp von Rudi hat alles gelöst
super
und danke für die rasche Hilfe.

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige