27.06.2023, 12:39
Hallo zusammen,
ich stehe wie der Ochs vor dem Berg. Ich habe eine Tabelle mit einem Wert in bzw. ab A2, nun möchte ich in einem neuen Tabellenblatt die Zeile nach dem Wert einfügen, sprich steht da 3 möchte ich auf dem neuen Tabellenblatt die komplette Zeile 3 mal kopiert haben und dann zur nächsten Zeile. Ich bekomme jedoch einen Laufzeitfehler 13 bei "For i..." Gehe ich das ganze falsch an?
ich stehe wie der Ochs vor dem Berg. Ich habe eine Tabelle mit einem Wert in bzw. ab A2, nun möchte ich in einem neuen Tabellenblatt die Zeile nach dem Wert einfügen, sprich steht da 3 möchte ich auf dem neuen Tabellenblatt die komplette Zeile 3 mal kopiert haben und dann zur nächsten Zeile. Ich bekomme jedoch einen Laufzeitfehler 13 bei "For i..." Gehe ich das ganze falsch an?
Code:
Option Explicit
Public Sub Einf_nach_Menge()
Sheets("HilfstabelleKopieren").Select
Dim aktZeile As Long
Dim aktZielZeile As Long
Dim i, Zeilen
'Set akt_Anzahl = Sheets("HilfstabelleKopieren").Range("A2")
aktZielZeile = 2
With Sheets("HilfstabelleKopieren")
.Rows(1).Copy Sheets("HilfstabelleÜbertragung").Rows(1)
Zeilen = .Range("A" & .Rows.Count).End(xlUp).Row
For aktZeile = 2 To Zeilen
'.Range("D" & .Rows).End(xlUp).Row
For i = 1 To .Range("A" & aktZeile)
.Rows(aktZeile).Copy Sheets("HilfstabelleÜbertragung").Rows(aktZielZeile)
aktZielZeile = aktZielZeile + 1
Next i
Next aktZeile
End With
End Sub