Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Leerzeilen füllen
#1
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
Antworten Top
#2
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
Antworten Top
#3
Perfect, dem Retter ein herzliches Danke und schönen Abend.

Gruß
wolf
Antworten Top
#4
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
Antworten Top
#5
Hi Wolf,

für Folgefragen bitte kein neues Thema aufmachen. Habe die beiden Threads zusammengeführt.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#6
Sorry, dieses mit dem neuen Thread war mir nicht bekannt.

Zum neuen Code, haut astrein hin, herzlichen Dank

Gruß
wolf
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste