https://www.herber.de/bbs/user/91915.txt
Danke im Vorraus Karsten
Dim DBS As ADODB.Recordset
Set DBSMonat = New ADODB.Recordset
Mit "Option Explicit" passiert das nicht.Set DBSOPY = Nothing
Set DBSTOC = Nothing
Brauchst Du nicht.For lngZeile = 6 To .Range("A5").End(xlDown).Row
Für einen sauberen, konkreten Vorschlag solltes Du mehr über den Tabellenaufbau sagen, bzw. eine Beispieldatei hochladen.