Hallo Mase,

danke für deine Hilfe. Ich bin mit F8 alles durchgegangen und der Ablauf erscheint mir logisch und sinnvoll.

Der Laufzeitfehler 9 ist verschwunden, aber der Code nummeriert Spalte A nicht. Sieht hier jemand den Fehler? Ohne den obigen Programmcode funktioniert alles einwandfrei und macht exakt das, was ich möchte. Es wird lediglich nicht durchnummeriert.

Private Sub CommandButton1_Click()

Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Dim LetzteReiheNeueDaten As Long
Dim LetzteReiheZiel As Long
Dim i As Long
Dim n As Long


Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open("E:\Studium\Masterarbeit\Datenbank\QM_Fehler\K3_Fehlermeldungen - Kopie")

LetzteReiheZiel = wbZiel.Worksheets("Datenbank").Cells(wbZiel.Worksheets("Datenbank").Rows.Count, "D").End(xlUp).Offset(1).Row

wbQuelle.Worksheets(1).Range("A1").Copy Destination:=wbZiel.Worksheets("Datenbank").Range("G" & LetzteReiheZiel)
wbQuelle.Worksheets(1).Range("A1").Copy Destination:=wbZiel.Worksheets("Aktualisieren").Range("D1")


Workbooks("K3_Fehlermeldungen - Kopie").Worksheets(1).Rows("1:4").Delete

Workbooks("K3_Fehlermeldungen - Kopie").Worksheets(1).Columns("A:C").Delete
Workbooks("K3_Fehlermeldungen - Kopie").Worksheets(1).Columns("C:E").Delete
Workbooks("K3_Fehlermeldungen - Kopie").Worksheets(1).Columns("D:E").Delete
Workbooks("K3_Fehlermeldungen - Kopie").Worksheets(1).Columns("E:G").Delete

LetzteReiheNeueDaten = wbQuelle.Worksheets(1).Cells(wbQuelle.Worksheets(1).Rows.Count, "C").End(xlUp).Row
LetzteReiheZiel = wbZiel.Worksheets("Datenbank").Cells(wbZiel.Worksheets("Datenbank").Rows.Count, "D").End(xlUp).Offset(1).Row

wbQuelle.Worksheets(1).Range("A1:E" & LetzteReiheNeueDaten).Copy Destination:=wbZiel.Worksheets("Datenbank").Range("B" & LetzteReiheZiel)


With wbZiel.Worksheets("Datenbank")
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
If .Cells(i, 2) <> "" Then
.Cells(i, 1) = n
n = n + 1
End If
Next
End With

wbQuelle.Close SaveChanges:=False

Set wbQuelle = Nothing
Set wbZiel = Nothing

End Sub