Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige