Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen

Forumthread: Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen

Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
18.06.2024 14:13:49
TheJamou
Moin,

ich habe folgendes Format in einer Liste wo Varianten unter Hauptartikel stehen.

Produktnummer
Leerzelle
aaaaa-bbb
aaaaa-ccc
Leerzelle
ddddd-eee
ddddd-fff

Nun würde ich gerne für eine relativ große Menge an Daten es hinbekommen, dass die Leerzelle jeweils mit dem Inhalt der Zelle darunter bis zum (und ausschließlich) Bindestrich gefüllt wird. Im Beispiel sollte also in der ersten Leerzelle aaaaa und in der zweiten Leerzelle ddddd stehen. Kann da jemand helfen? Vielen Dank schonmal im Voraus!

Gruß TheJamou
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
18.06.2024 14:37:23
Onur
dim z,txt

for z=1 to 10000
if cells(z,1)="" then
txt=split(cells(z+1,1);"-")
cells(z,1)=txt(0):cells(z+1,1)=txt(1)
end if
next z
AW: Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
18.06.2024 16:06:44
daniel
Hier

Ohne VBA so:

1. Spalte markieren.
2. Markierung auf Leerzellen einschränken über Start - Besrbeiten - Suchen und auswählen - Inhalte - Leere Zellen
3. Formel Eingeben, Annahme erste leere Zelle ist A2:
=Textvor(A3;"-")
Eingabe mit STRG+ENTER abschließen
4. Spalte markieren, kopieren und als Wert einfügen.


Geht auch als Makro
With Columns(1)

.SpecialCells(xlcelltypeblanks).formulaR1C1local = "=Textvor(Z(1)S;""-"")"
.Formula = .Value
End With


Gruß Daniel
Anzeige
AW: Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
18.06.2024 14:39:26
Onur
Besser so:

dim z,txt

for z=1 to 10000
if cells(z,1)="" and cells(z+1,1) >"" then
txt=split(cells(z+1,1);"-")
cells(z,1)=txt(0):cells(z+1,1)=txt(1)
end if
next z
AW: Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
18.06.2024 14:41:10
TheJamou
Vielen Dank Onur, habe es hinbekommen!
Anzeige
Gerne !
18.06.2024 14:43:34
Onur

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige