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