Monatliche Excel-Tabelle in vorhandene Vorlage einfügen

[schauan]

Hallöchen,

ich hätte erst mal mal zwei Korrekturen.

oben steht

Const BasisDatei = "Beispiel Basisdatei" 'Hier die Original Mappen angeben!!
Const EinspDatei = "Beispiel Einspielung"

Da ergänzt Du die Dateierweiterung:

Const BasisDatei = "Beispiel Basisdatei.xls" 'Hier die Original Mappen angeben!!
Const EinspDatei = "Beispiel Einspielung.xlsx"


und weiter unten steht

'auszufe?llende Spalte pr?fen ob sie leer ist
lzBA = .Cells(Rows.Count, Spa).End(xlUp).Row
If lzBA > 3 Then MsgBox lzBA & " " & Spa & " - Diese Spalte ist bereits ausgef?llt!": Exit Sub

'LastZell in Tabelle "Daten" Spalte B suchen
lzBA = .Cells(Rows.Count, 2).End(xlUp).Row


da ergänzt Du in zwei Zeilen Pünktchen, vor Rows

'auszufe?llende Spalte pr?fen ob sie leer ist
lzBA = .Cells(.Rows.Count, Spa).End(xlUp).Row
If lzBA > 3 Then MsgBox lzBA & " " & Spa & " - Diese Spalte ist bereits ausgef?llt!": Exit Sub

'LastZell in Tabelle "Daten" Spalte B suchen
lzBA = .Cells(.Rows.Count, 2).End(xlUp).Row