Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
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

Zusätzliche Schleife in Druckmakro - Code dabei

Zusätzliche Schleife in Druckmakro - Code dabei
lutz
Hallo Excel Spezialisten,
ich bin leider mal wieder zu blöd für eine weitere Schleife... Kann mir da jemand helfen?
Ich habe ein Druckmakro:
Sub BonDruckenEingabeButtonT()
Range("H3").Select
Sheets("BonTK").Select
Dim Bereich As Range
With Worksheets("BonTK")
Set Bereich = .Range("H9:H40")
For Each Zelle In Bereich.Cells
If Zelle.Value = "Tableau" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("H9:H40").EntireRow.Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub
Das geht auch ganz toll und es gibt noch ein 2tes welches auf "Karree" abfragt. Es werden alle Zeilen ausgeblendet und nur das richtige gedruckt.
Aber ein Problem habe ich noch: manchmal gibt es nur Tableau oder nur Karree und dann druckt er eine leere Seite aus.
Wie kann ich davor schalten, das gar nicht gedruckt wird wenn in dem Bereich H9:H40 der gesuchte Begriff (hier Tableau) gar nicht vorkommt?
Vielen Dank für Eure Hilfe
Viele Grüße Lutz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zusätzliche Schleife in Druckmakro - Code dabei
15.12.2010 19:43:56
Lutz
Hallo Lutz,
versuchs doch mal damit:
Option Explicit
Sub BonDruckenEingabeButtonT()
Range("H3").Select
Sheets("BonTK").Select
Dim Bereich As Range
Dim intz1 As Integer
Dim bol1 As Boolean
Dim Zelle As Range
With Worksheets("BonTK")
bol1 = False
For intz1 = 9 To 40
If .Cells(intz1, 8) = "Tableau" Then bol1 = True
Next
If bol1 = False Then Exit Sub
Set Bereich = .Range("H9:H40")
For Each Zelle In Bereich
If Zelle.Value = "Tableau" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
'MsgBox "drucken"
.Range("H9:H40").EntireRow.Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub
M.f.G.
Lutz
Anzeige
AW: Zusätzliche Schleife in Druckmakro - Code dabei
15.12.2010 21:01:29
lutz
Hallo Lutz,
vielen Dank - klappt wie verrückt.
Danke und noch einen schönen Abend.
Viele Grüße Lutz

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige