|
Hallo zusammen,
ich habe ein Problem und weiß nicht warum. Ich habe eine Aktivität geschrieben, die für sich selbst 100% funktioniert:
ChDir "c:\Users\ckrap\OneDrive\Desktop\FGV-Büro\Interessenten"
Worksheets("Formular_WL").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("L10").Value & "_" & Format(Date, "YYMMDD") & ".pdf", OpenAfterPublish:=True
Das Tabellenblatt wird genau im richtigen Ordner mit der richtigen Namenssyntax gespeichert (Test_250222.pdf)
___________________________________
Wenn ich nun diese Aktivität in eine andere mit einbinde (ich möchte mir dadurch ein Button und 2 Mausklicks ersparen):
Sub InteressentAnlegen_Eingabe_WL()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tbl_Daten_WL.ListObjects(1)
Dim Zeile As Long
'Interessent in Datenbank anlegen
'Zeile hinzufügen
tbl.ListRows.Add
'Zeile in Variable speichern
Zeile = tbl.DataBodyRange.Rows.Count
'Datenbank befüllen
With tbl_Eingabe_WL
tbl.DataBodyRange(Zeile, 1).Value = Range("N8").Value
tbl.DataBodyRange(Zeile, 2).Value = Range("F10").Value
tbl.DataBodyRange(Zeile, 3).Value = Range("I10").Value
tbl.DataBodyRange(Zeile, 4).Value = Range("L10").Value
tbl.DataBodyRange(Zeile, 5).Value = Range("O10").Value
tbl.DataBodyRange(Zeile, 6).Value = Range("F12").Value
tbl.DataBodyRange(Zeile, 7).Value = Range("I12").Value
tbl.DataBodyRange(Zeile, 8).Value = Range("L12").Value
tbl.DataBodyRange(Zeile, 9).Value = Range("O12").Value
tbl.DataBodyRange(Zeile, 10).Value = Range("F17").Value
tbl.DataBodyRange(Zeile, 11).Value = Range("I17").Value
tbl.DataBodyRange(Zeile, 12).Value = Range("L17").Value
tbl.DataBodyRange(Zeile, 13).Value = Range("O17").Value
tbl.DataBodyRange(Zeile, 14).Value = Range("F22").Value
tbl.DataBodyRange(Zeile, 15).Value = Range("I22").Value
tbl.DataBodyRange(Zeile, 16).Value = Range("L22").Value
tbl.DataBodyRange(Zeile, 17).Value = Range("F26").Value
tbl.DataBodyRange(Zeile, 18).Value = Range("I26").Value
tbl.DataBodyRange(Zeile, 19).Value = Range("L26").Value
tbl.DataBodyRange(Zeile, 20).Value = Range("O26").Value
tbl.DataBodyRange(Zeile, 21).Value = Range("Q17").Value
End With
'Navigieren zu Tabellenblatt Datenbank
tbl_Daten_WL.Select
ActiveWindow.ScrollRow = tbl.DataBodyRange(Zeile, 1).Row
'Datei im Ordner speichern und als pdf. öffnen
ChDir "c:\Users\ckrap\OneDrive\Desktop\FGV-Büro\Interessenten"
Worksheets("Formular_WL").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("L10").Value & "_" & Format(Date, "YYMMDD") & ".pdf", OpenAfterPublish:=True
End Sub
Nun wird die Datei im richtigen Ordner aber mit der Namenssyntax (2_250222) gespeichert. Ich habe den Eindruck, dass auf einmal der Namensbezug auf Range ("L10") verloren geht. Keine Ahnung warum...
Wer hat eine Idee, woran das liegt oder ob ich eventuell den Programmcode ändern muss?
Vielen Dank schon mal.
|