vielen Dank für deinen Ansatz bzgl. meiner Anfrage vom 18.05.2020.
Ich habe mir bereits gedacht, dass das schlanker geht, jedoch war das im ersten Schritt, wenn auch aufwendiger, die einfacherere Lösung für mich.
Deinen Ansatz habe ich eingepflegt und soweit an mein Sheet angepasst, jedoch spuckt er mir _ beim Debuggen die Zeile als Fehler aus .Cells(iCount + iRowInput, 1).Value = Range(arrAdr(iCount)).Value . Der Index liegt ausserhalb des gültigen Bereichs. Was muss ich noch ändern?
Sub Daten_ablegen()
Dim iCount, arrAdr, iRowInput%
arrAdr = Array("H11", "L11", "P11", "H12", "L12", "P12", "H13", "L13", "P13", "H14", "L14", _
_
_
_
"P14", "H15", "L15", "P15", "N4", "O4", "P4")
With Worksheets("Datenübertrag")
If .Range("A3") "" Then
iRowInput = .Cells(Rows.Count, 1).End(xlUp).Row + 2
Else
iRowInput = 3
End If
.Cells(iRowInput, 1).Value = Range("B2").Value '* Kunde
For iCount = 1 To 19
.Cells(iCount + iRowInput, 1).Value = Range(arrAdr(iCount)).Value
Next iCount
End With
End Sub
Vielen Dank für die Hilfe. Dein/Euer Forum ist Gold wert.
Mit freundlichen Grüßen
Felix