Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per ComboBox Druckbereich festlegen

Forumthread: per ComboBox Druckbereich festlegen

per ComboBox Druckbereich festlegen
22.10.2007 17:18:32
Dieterlem
Hallo Excelfreunde,
ich habe 3 Bereiche die ich je nach Auswahl über zwei ComboBox'en (cboVon und cboBis) ausdrucken will.
Jahr1 = .Range("A12:C19")
Jahr2 = .Range("A22:C29")
Jahr3 = .Range("A32:C39")
Nun möchte ich, dass ich z.B per ComboBox auswähle:
cboVon = Jahr1 / cboBis = Jahr2 ergibt : Jahr 1 und 2
cboVon = Jahr1 / cboBis = Jahr3 ergibt : Jahr 1 bis 3
cboVon = Jahr2 / cboBis = Jahr2 ergibt : Jahr 2
usw.
Sheets(8).PageSetup.PrintArea = ?
Wie weise ich die Druckbereiche zu?
Gruß
Dieterlem

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: per ComboBox Druckbereich festlegen
22.10.2007 21:26:01
Josef
Hallo Dieter,
das geht zB. so.
Private Sub CommandButton1_Click()
Dim objWS As Worksheet
Dim intI As Integer, intMin As Integer, intMax As Integer
Dim strPrint As String, strTab As String, strName As String

Set objWS = Sheets("Tabelle1") 'Tabellenname

strTab = "'" & objWS.Name & "'!"
strName = "Jahr"

If ComboBox1.ListIndex > -1 Then intMin = ComboBox1.ListIndex + 1
If ComboBox2.ListIndex > -1 Then intMax = ComboBox2.ListIndex + 1

If intMin = 0 Or intMax = 0 Then Exit Sub

For intI = Application.Min(intMin, intMax) To Application.Max(intMin, intMax)
    strPrint = strPrint & strTab & strName & CStr(intI) & ","
Next

If Len(strPrint) > 0 Then
    strPrint = Left(strPrint, Len(strPrint) - 1)
    objWS.PageSetup.PrintArea = strPrint
End If

End Sub

Gruß Sepp

Anzeige
AW: per ComboBox Druckbereich festlegen
23.10.2007 17:58:19
Dieterlem
Hallo Sepp,
danke für die Lösung. Ich konnte deinen Vorschlag an meine Bedürfnisse anpassen und gut in meine Userform einbauen.
Ich wünsche dir einen schönen Tag
Gruß
Dieterlem
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige