Office: Tabellen dynmisch aus ListBox auswählen und speichern

Bravestar · 8. Februar 2015

Hallo zusammen,

ich hätte da gerne mal wieder ein Problem.
Irgendwie stehe ich auf dem Schlauch.

PROBLEM:
Ich habe eine ListBox, die ich per Schleife mit Werten fülle.
Und zwar lese ich mir in diese ListBox alle Tabellenblätter der Arbeitsmappe ein.
Ausgenommen sind davon aber 3 Tabellenblätter ( 1, 2, 8)
Folgenden Code nutze ich hierfür:

Code:

Private Sub Userform_Initialize()
Dim i As Integer

For i = 1 To Worksheets.Count
If Worksheets(i).Visible = True Then
Select Case i
Case 1, 2, 8
Case Else
Me.ListBox1.AddItem Worksheets(i).name
End Select
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun würde ich es gerne realisieren wollen, die dort in der Liste angezeigten Tabellenblätter per CommandButton als *.PDF Datei abzuspeichern.
Schaffe es aber irgendwie nicht, die dort gelistetet Werte anzusprechen.
Wie kann man aus der ListBox die Werte in ein "Array" packen und als PDF speichern?

Vielleicht kann mir hier jemand einen schups in die richtige Richtung geben?

Im Voraus schon einmal Dankeschön für die Zeit die Ihr diesem Thread schon gewidmet habt.

Gruß
Brave

:)

Beverly · 10. Februar 2015

Hi,

meinst du die in der ListBox ausgewählten Tabellen oder alle? Ist dein ListBox Multiselect?

xlph · 10. Februar 2015

Sollen die gewählten Blätter in einer PDF-Datei gespeichert werden,
oder pro Blatt ein PDF?

Bravestar · 10. Februar 2015

Hallo Ihr Beiden,

@Beverly
ich meine alle in der Listbox dargestellten. Diese sollen auch nicht manuell ausgewählt werden, sondern beim Knopfdruck sollten alle dort angezeigten gedruckt werden.
Ala -> Drücke Knopf -> Wähle alle dargestellten aus -> speicher als pdf
(wobei speicher als pdf auch kein Problem darstellen würde)
Ja es ist eine MultiSelect.

@xlph
Die gewählten Blätter sollten in EINE PDF gespeichert werden.

Beverly · 10. Februar 2015

Hi,

mit PDF-Eestellen kenne ich mich nicht aus, aber wenn du die Tabellen in einem Array benötigst, dann hast du deine Schleife doch vom Prinzip her schon, da du sie ja in die ListBox einliest - nur musst di sie halt ins Array einlesen:

Code:

Sub TabArray()
Dim i As Integer
Dim bytZaehler As Byte
Dim arrTabs()
ReDim arrTabs(0)
For i = 1 To Worksheets.Count
If Worksheets(i).Visible = True Then
Select Case i
Case 1, 2, 8
Case Else
ReDim Preserve arrTabs(0 To bytZaehler)
arrTabs(bytZaehler) = Worksheets(i).Name
bytZaehler = bytZaehler + 1
End Select
End If
Next
' Worksheets(arrTabs()).Select '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 10. Februar 2015

Hallo,

hier eine Variante...

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Integer

Dim TB_Wahl() As String
Dim j As Integer

Dim ActiveSheet_Merker As Worksheet

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve TB_Wahl(j)
TB_Wahl(j) = .List(i)
j = j + 1
End If
Next
End With

If j > 0 Then
Application.ScreenUpdating = False
Set ActiveSheet_Merker = ActiveSheet
Worksheets(TB_Wahl).Select

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\xy.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveSheet_Merker.Activate
Set ActiveSheet_Merker = Nothing
Application.ScreenUpdating = True
Else
MsgBox "Bitte mind. 1 Wahl treffen!"
End If

End Sub

Private Sub Userform_Initialize()
Dim i As Integer

For i = 1 To Worksheets.Count
If Worksheets(i).Visible = True Then
Select Case i
Case 1, 2, 8
Case Else
Me.ListBox1.AddItem Worksheets(i).Name
End Select
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 10. Februar 2015

Hi,

ich habe mich mochmal etwas sachkundig gemacht bezüglich PDF-Export - du müsstest eigentlich nur noch eine Zeile ergänzen:

Code:

Worksheets(arrTabs()).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="I:\Eigene Dokumente\Datei.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achtung: Pfad und Dateinamen anpassen!!

Bravestar · 10. Februar 2015

Hallo Beverly,
Hallo xlph,

bezgl. des Speicherns von PDF Dateien komme ich klar.
Ich hatte halt nur das Verständnisproblem die Werte zu verarbeiten.
Ich habe mir mal Deinen (@Beverly) Code "vorgenommen" und bedanke mich für Deine (und natürlich auch die Hilfestellung von xlph) Hilfe.

Damit komme ich klar und kann das verarbeiten.

Vielen lieben Dank für Eure Hilfe und die damit verbundene Zeit.

Gruß
Brave

Office: Tabellen dynmisch aus ListBox auswählen und speichern

Tabellen dynmisch aus ListBox auswählen und speichern

Tabellen dynmisch aus ListBox auswählen und speichern

Tabellen dynmisch aus ListBox auswählen und speichern

Tabellen dynmisch aus ListBox auswählen und speichern

Tabellen dynmisch aus ListBox auswählen und speichern - Similar Threads - Tabellen dynmisch ListBox

Schriftart einer Tabelle im Unterformular verändern

Tabellenränder beim Druck ausblenden

2 Tabellen nach bestimmten Kriterien synchronisieren

Zusammenfassen von Tabellen

Intelligente Tabelle Filter fixieren

Datenübernahme in andere Tabelle ohne Leerzeilen, Anfänger

Intelligente Tabelle mit Suchfeld durchsuchen?