Anzeige
Archiv - Navigation
1344to1348
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

Drucken

Drucken
21.01.2014 21:43:05
Werner
Hallo zusammen,
ich habe folgendes Makro geschrieben:
Private Sub Drucken_Click()
If CheckBox1 = True Then
Sheets("Tabelle1").Range("A2:G36").PrintOut copies:=1, Collate:=Fals
If CheckBox2 = True Then
Sheets("Tabelle1").Range("A38:G72").PrintOut copies:=1, Collate:=Fals
If CheckBox3 = True Then
Sheets("Tabelle1").Range("A74:G108").PrintOut copies:=1, Collate:=Fals
If CheckBox4 = True Then
Sheets("Tabelle1").Range("A110:G144").PrintOut copies:=1, Collate:=Fals
End Sub
Es klappt ganz gut, wenn mind.eine CheckBox Aktiviert wird.
Wenn keine Aktiviert ist und das makro wird ausgelöst gibt es eine Fehlermeldung.
(If Block ohne End If)
Wie kann ich di umgehen.
Gruß Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Drucken
22.01.2014 00:03:43
KlausF
Hallo Werner,
ungetestet:
1. am Ende der Zeile statt Fals bitte False schreiben
2. Alle If-Zeilen in einer Zeile schreiben, also
If CheckBox1 = True Then Sheets("Tabelle1").Range("A2:G36").PrintOut copies:=1, Collate:=False
usw.
3. Schreibe am Ende einfach: If CheckBox4 = False Then Exit Sub
Hoffe, es hilft.
Gruß
Klaus

AW: Drucken
22.01.2014 06:27:26
Werner
Hallo Klaus,
herzlichen Dank für Deine Antwort, genauso funktioniert es.
Gruß Werner

AW: Drucken
22.01.2014 06:31:58
Werner
Hallo Klaus,
es funktioniert super.
Herzlichen Dank.
Gruß Werner

Alternative zu If.. If...
22.01.2014 10:30:20
Rudi
Hallo,
Private Sub Drucken_Click()
Dim rngPrint As Range
With Sheets("Tabelle1")
Select Case True
Case CheckBox1: Set rngPrint = .Cells(2, 1)
Case CheckBox2: Set rngPrint = .Cells(38, 1)
Case CheckBox3: Set rngPrint = .Cells(74, 1)
Case CheckBox4: Set rngPrint = .Cells(110, 1)
End Select
End With
If Not rngPrint Is Nothing Then
rngPrint.Resize(35, 7).PrintOut copies:=1, collate:=False
End If
End Sub

Gruß
Rudi
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige