Hallo liebes Forum,
ich habe eine Makro Herausforderung
In der folgenden Tabelle gibt es Lücken zwischen den Excel Zellen :
Beispiel:
In A2 steht der Wert 101901 und daneben 4 Textspalten.
Nun soll A2 bis A99 der Wert bis zur 3. Position gefüllt werden mit durchlaufender Nummer und die Texte 1:1 kopiert werden von der Zelle.
Excel Zelle |
Wert |
TEXT |
TEXT 2 |
TEXT 3 |
TEXT 4 |
A2 |
101901 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A3 |
103902 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
A4 |
105901 |
Dies ist A4 |
Dies ist A4 |
Dies ist A4 |
Dies ist A4 |
|
|
|
|
|
|
Es soll sowas werden:
Excel Zelle |
Wert |
TEXT |
TEXT 2 |
TEXT 3 |
TEXT 4 |
A2 |
101901 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A3 |
101902 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A4 |
101903 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A5 |
101904 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A6 |
101905 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A7 |
101906 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A8 |
101907 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A9 |
101908 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
bis A99 |
101999 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
Dies ist A2 |
A100 |
103902 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
A101 |
103903 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
bis A197 |
103999 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
Dies ist A3 |
Leider kriege ich nur das hier hin, aber es ist statisch.
Dim i As Integer
For i = 1 To 97
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Next i
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A99"), Type:=xlFillDefault
|