Hallo zusammen,
bin VBA Neuling und habe etwas Blut geleckt. Animiert durch zahlreiche Beispiele im Netz habe ich schon einige VBA basierende Arbeitserleichterung in Excel umsetzen können. Derzeit steh ich aber auf dem Schlauch, komme nicht weiter und hoffe auf Eure Hilfe.
Folgende Aufgabenstellung:
In einer Arbeitsmappe welche eine Tabelle (Schichtübersicht) enthält soll je nach Auswahl der Kalenderwochen auch nur dieser gewählte Tabellenbereich als PDF ausgedruckt werden. Den Bereich lasse ich in einer Zelle (E84) als Text in der Form ausgeben, "A1:E82", "AQ1:DJ82".
Nun möchte ich das im unten stehenden Makro der Inhalt dieser Zelle als Information zum auszudruckender Bereich im Makro genutzt wird. Dies soll variabel erfolgen. Setze ich diesen Text manuell im Makro ein wird die PDF-Datei ordnungsgemäß ausgegeben aber wie bekomme ich das gebacken das dies eben Automatisch aus der Information in der schon genannten Zelle (E84) erfolgt.
Hier ein Teil des Makros was im übrigen von Ron de Bruin stammt,
Sub RDB_Selection_Range_To_PDF_Orginal()
Dim FileName As String
Sheets("Schichtübersicht").Select
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"ungroup the sheets and try the macro again"
Else
'For a fixed range use this line
FileName = RDB_Create_PDF(Range("A1:E82", "AQ1:DJ82"), "C:\Daten\Schicht und Urlaubsplanung\2014\Schichtübersicht.pdf", True, False)
If FileName <> "" Then
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End If
Sheets("Automatik").Select
End Sub
Sheet "Automatik" ist im übrigen das Tabellenblatt in dem ich die zu druckenden Kalenderwochen angebe und den zu druckenden Bereich der Tabelle "Schichtübersicht" ermittle.
Im voraus schon mal vielen Dank für Eure Ideen und Hilfen.
Schönen Gruß,
Ronald
|