Fehler in Code
22.09.2022 15:14:10
Henry
ich habe folgenden Code mit dem ich Blatt 2 fülle.
Der Code funktioniert einwandfrei solange ich Blatt 2 angewählt habe.
Wenn ich den Code aber über den Button in Blatt 1 ausführen möchte, kommt eine Fehlermeldung.
Anwendungs- oder objektorienter Fehler.
Es wird folgende Code Zeile markiert.
.Range(Cells(i, "D"), Cells(i, "H")).FillDown
Hat hier jemand einen Rat?
Sub transferdata()
Dim h As Long, i As Long, j As Long, k As Long
h = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
With Sheets(2)
i = .Cells(1, 4).End(xlDown).Row + 1
.Rows(i).Insert
.Cells(i, 3) = Sheets(1).Cells(h, 2)
.Range(Cells(i, "D"), Cells(i, "H")).FillDown
j = Sheets(2).Cells(i + 2, 3).End(xlDown).Row + 1
.Rows(j).Insert
.Cells(j, 3) = Sheets(1).Cells(h, 2)
.Range(Cells(j, "D"), Cells(j, "H")).FillDown
k = .Cells(j + 2, 3).End(xlDown).Row + 1
.Rows(k).Insert
.Cells(k, 3) = Sheets(1).Cells(h, 2)
.Range(Cells(k, "D"), Cells(k, "H")).FillDown
End With
End Sub