Leerzeilen füllen

[wolf ludwig]

Hallo zusammen,

brauche dringend Hilfe, in Saplte A habe ich werte stehen, die in unregelmäßigen Abständen durch Leerzeilen unterbrochen sind. In Spalte C stehen in jeder Zeile Werte, diese sollen nacheinander in die Leerzeilen eingefügt werden (s.Beispiel)

Beispiel:
Spalte A                Spalte C

12345                  aaaaa
12345                  bbbbb
12345                  cccccc
aaaaaa
12345
12345
bbbbb
12345
12345
12345
12345
cccccc
usw.

Das ganze bitte mit VBA.

Gruß
wolf

[Fennek]

Versuche es einmal damit:

Code:

Sub F_en()
Ar = Application.Transpose(ActiveSheet.UsedRange.Columns(3))

For Each c In Columns(1).SpecialCells(xlCellTypeBlanks)
    i = i + 1
    c.Value = Ar(i)
Next c
End Sub

[wolf ludwig]

Perfect, dem Retter ein herzliches Danke und schönen Abend.

Gruß
wolf

[wolf ludwig]

Guten Abend,

kann man den Code so anpassen, daß Werte aus Spalte G in Leerzeilen der Spalte F übertragen werden?

Gruß
wolf

Code:

Sub F_en()
Ar = Application.Transpose(ActiveSheet.UsedRange.Columns(3))

For Each c In Columns(1).SpecialCells(xlCellTypeBlanks)
    i = i + 1
    c.Value = Ar(i)
Next c
End Sub

[WillWissen]

Hi Wolf,

für Folgefragen bitte kein neues Thema aufmachen. Habe die beiden Threads zusammengeführt.

[wolf ludwig]

Sorry, dieses mit dem neuen Thread war mir nicht bekannt.

Zum neuen Code, haut astrein hin, herzlichen Dank

Gruß
wolf