Hallo,
ich habe gestern ein Code bekommen was ich weiter schreiben soll.
Leider bin ich nicht "sooooo" gut im Programmieren.
Einiges konnte ich entschlüsseln, aber es wäre sehr nett, wenn mir jmd weiterhelfen könnte, indem er mir erklärt was hier genau geschieht.
1)
x = 111
Bereich = "D126:D135"
Set Quelltab = ActiveWorkbook.Worksheets(va)
Set Zieltab = ActiveWorkbook.Worksheets("AT700")
For Each y In Quelltab.Range("D126:D135")
Zieltab.Cells(x, 4) = y
x = x + 1
Next y
2)
Do Until IsEmpty(Worksheets(va).Range("A" & m)) = True
Dev = Worksheets(va).Range("A" & m)
Typ = Worksheets(va).Range("D" & m)
OEM = Worksheets(va).Range("E" & m)
SN = Worksheets(va).Range("F" & m)
Datum = Worksheets(va).Range("G" & m)
|