Ich habe mir eine Tabelle gebastelt die ich als pdf Datei abspeichern möchte. Allerdings mit wechselnder Range, die ich über zwei Textboxen definieren will. Aber irgendwie klappt das nicht so wie ich mir das vorstelle:
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
x = CDbl(TextBox1.Value)
y = CDbl(TextBox2.Value)
ActiveSheet.Range("Bx:Fy").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Dokumente\Liste. _
_
pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Wahlweise wäre natürlich toll wenn in Textbox2 keine Eingabe erfolgt, das alle Zeilen ab Zeilen Textbox1.value ausgewählt werden. Aber das ist schon weitergedacht. Ich wärs ja schon zufrieden wenn ich die Range manuell definieren könnte.
Viele liebe Grüße