Clever-Excel-Forum

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

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

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

Gruß
wolf

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

Hi Wolf,

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

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

Zum neuen Code, haut astrein hin, herzlichen Dank

Gruß
wolf

wolf ludwig

Fennek

wolf ludwig

wolf ludwig

WillWissen

wolf ludwig