Daten aus xltm/xlsm an xlsx
19.08.2016 16:29:07
Aaron
zu meiner letzten Anfrage unter https://www.herber.de/forum/messages/1509659.html ergibt sich nun eine Folgefrage.
Die Daten aus meiner Userform habe ich nun in der xltm/xlsm eingetragen.
Das klappt hervorragend.
Diese xlsm enthält Kundendaten und Rechnungsbeträge.
Die hier übertragenen und zusätzlich ergänzten Daten sollen nun unter anderem in eine vorgegebene xlsx Datei eingetragen werden.
Den ersten Teil des Codes habe ich - so glaube ich - gut hingekommen:
Sub Tippgeberabrechnung_abschließen()
'Vorgang im verborgenen durchführen
Application.ScreenUpdating = False
'# Prozedur speichern der Tippgeberdaten #
'# Zieldatei: "Ziel.xslx" #
'Variablen festlegen
'letzte Zeile
Dim Letzte As Long
'Zieldatei öffnen
Workbooks.Open Filename:= _
"C:\Users\xxxxxxxxx\Desktop\Ziel.xlsx"
'Variablen bestimmen
'letzte Zeile
Letzte = Workbooks("Ziel.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Die Werte übergeben:
With Workbooks("Ziel.xlsx").Sheets("Tabelle1")
.Cells(Letzte, 1) = Sheets("Quelle").Range("B7").Value
.Cells(Letzte, 2) = Sheets("Quelle").Range("B9").Value
End With
End Sub
Ich vermute meinen Fehler hinter dem "=", dass der Bezug zur Quelldatei (ursprünglich xltm, jetzt xlsm) nicht hergestellt werden kann.
Liege ich da richtig?!
Oder habe ich ggf. einen kompletten Denkfehler?
Ich komm nicht weiter und hoffe auf eure Hilfe.
Vielen Dank im Voraus.
Gruß
Aaron