Hallo Zusammen,
irgendwie will es mir nicht gelingen, das folgender Code funzt.
Dim lng As Long
Dim i As Integer
For i = 11 To 17
For lng = 5 To 17
Me("TextBox" & i) = Sheets("Aufwandsentschädigung").Cells(lng, 10)
Next lng
Next i
End Sub
Bei den Zeilen ist nur jede zweite belegt. Ich hatte es mit Step 2 bei lng versucht klappt aber nicht:
Kann jemand helfen, vielen Dank im Voraus.
Gruß Frank H.