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

Forumthread: Zellen kopieren bis Zelle mit Wert auftaucht

Zellen kopieren bis Zelle mit Wert auftaucht
20.07.2007 11:12:00
Alexander
Hallo ich habe bereits das nächste Problem :(
In Spalte A stehen Kategorien, in Spalte B zu wem sie gehören. Leider kommt aus der Datenbank nur für das erste Auftreten die Kategorie, z.B. Kuchen und in den darunterliegenden stehen Leerzeilen, obwohl dort auch "Kuchen stehen sollte. Im Moment muss ich immer manuell "Kuchen,etc" nach unten in die leeren Zellen kopieren. Die Tabelle wird wöchentlich aktualisiert und daher ist die Anzahl der leerzellen variabel.
Gibt es ein Makro dass den Wert Kuchen solange in die leeren Zellen darunter kopiert, bis ein neue Zelle mit Wert auftaucht?
1 Spalte A Spalte B
2 Kuchen Klaus
3 ______ Peter
4 ______ Ute
5 ______ Frank
6 Obst Klaus
7 ______ Astrid
8 ________ Peter
9 Schokolade Ute
Gruss
Alex

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren bis Zelle mit Wert auftaucht
20.07.2007 12:31:00
Rudi
Hallo,
selbst bei bescheidenen VBA-Kenntnissen sollte man das mit ein wenig Überlegung hinbekommen.

Sub ttt()
Dim lngRow As Long
For lngRow = 2 To Range("B65536").End(xlUp).Row
If Cells(lngRow, 1) = "" Then Cells(lngRow, 1) = Cells(lngRow - 1, 1)
Next
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige