Über Listeneinträge Arbeitsblätter ansprechen

Hallo,
ich komme gerade nicht wirklich weiter und hoffe, ihr habt einen Tipp für mich. Ich habe mir in einer Userform zwei Listenfelder angelegt. Im ersten Listenfeld werden alle Arbeitsblätter der Arbeitsmappe eingelesen und als Namen in die Liste aufgenommen. Hieraus kann ich dann auswählen, welche Einträge (also Arbeitsblattnamen) in das zweite Listenfeld übertragen werden. Das klappt soweit auch.
Jetzt möchte ich aber mit der jeweiligen Auswahl im zweiten Listenfeld etwas anstellen z.B. einen Druck der Arbeitsblätter einleiten (bzw. Druckvorschau: Ein Dokument für alle ausgewählten Arbeitsblätter). Da hapert es leider gerade... Ich müsste doch irgendwie aus den Einträgen der zweiten Liste (Namen) wieder Arbeitsblätter ansprechen und das dann in einer Schleife für jeden Listeneintrag abarbeiten, oder?
Hat jemand einen Tipp für mich, würde mich sehr freuen :-) Vielen Dank im Vorfeld Robson

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cmdPrint_Click() Dim strSheets() As String Dim intIndex As Integer, intN As Integer With ListBox1 'Name der Listbox anpassen! For intIndex = 0 To .ListCount - 1 Redim Preserve strSheets(intN) strSheets(intN) = .List(intIndex) intN = intN + 1 Next End With If intN > 0 Then Me.Hide ThisWorkbook.Sheets(strSheets).PrintPreview 'Druckvorschau 'ThisWorkbook.Sheets(strSheets).PrintOut 'Drucken Me.Show End If End Sub

Hallo Robson,
zu 1: Statt Me.Show, Unload Me
Zu 2: ListBox1.Clear
Zu 3:

Private Sub cmdPDF_Click()
Dim strSheets() As Variant
Dim intIndex As Integer, intN As Integer

With ListBox1 'Name der Listbox anpassen!
  For intIndex = 0 To .ListCount - 1
    Redim Preserve strSheets(intN)
    strSheets(intN) = .List(intIndex)
    intN = intN + 1
  Next
End With

If intN > 0 Then
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  Me.Hide
  ThisWorkbook.Sheets(strSheets).Copy
  
  With ActiveWorkbook
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Dein Pfad\Dateiname.pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
    .Close False
  End With
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  Unload Me
End If
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Über Listeneinträge Arbeitsblätter ansprechen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Über Listeneinträge Arbeitsblätter ansprechen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread