Hab da ein kleines Problem.
Mein Code schreibt brav in die erste freie Zeile des Blatts. Wenn ich den Code jedoch wiederhole, wird die Zeile überschrieben.
Was mach ich da falsch!! Hat jemand einen Lösungsansatz dafür :-(
Sub Speichern_unter()
Dim varX As Variant, lngIndex As Long, lngRow As Long
varX = Array("C11", "J6", "j8", "c6", "C7", "H17", "H20", "H31", "H32", "H33", "H34", "H37", " _
_
_
H38", "H39", "G43")
With Workbooks.Open("C:\Users\kevin.lambing\Desktop\EXCEL Beispiele\EXCEL\mehereZellen einfügen. _
_
_
xlsx").Worksheets("Tabelle1")
lngRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
For lngIndex = 0 To UBound(varX)
.Cells(lngRow, lngIndex + 5) = ThisWorkbook.Worksheets("Prüfformular").Range(varX( _
lngIndex)).Value
Next
End With
End Sub
Vielen Dank.Gruss
Defence