Spalte bis Cursorzeile füllen

VBA-Level: befriedigend
Hallo Freunde,
in einer Tabelle sind drei Spalten A, B und C mit insgesamt ca. 500 Zeilen. Die Spalten A und C sind
von oben bis unten ganz gefüllt, in Spalte B klaffen an verschiedenen Stellen Lücken - optisch unsichtbare Zellen, die entweder niemals gefüllt oder nachträglich gelöscht wurden, also z.B. nicht initialisiert oder leer sind bzw. Leerzeichen oder dgl. enthalten.
Aufgabe ist es, die Lücken in Spalte B mit Hilfe eines Makro derart zu füllen, dass in Spalte B
alle Zeilen angefangen bei der auf die letzte mit einem optisch sichtbaren Wert gefüllte Zeile folgenden
Zeile bis zu derjenigen Zeile, in welcher der Cursor steht (dieser soll dabei aber in einer anderen Spalte stehen können), mit demjenigen Wert in Spalte B gefüllt werden,
dessen Zeile der der Cursorzeile - von der Cursorzeile an nach oben gerechnet - am nächsten steht. Der Makro soll sowohl irgendwo innerhalb der Tabelle als auch am Tabellenende funktionieren (Tabellenende bedeutet hier, dass der Cursor in der letzten Zeile der Tabelle steht und die Spalte B nicht bis zur
letzten Zeile reichen).
Wie mache ich das? Problem war hier insbesondere die Behandlung der optisch leeren Zellen in Spalte B.
Wer weiß Rat? Dank!! Werner R.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalte bis Cursorzeile füllen

22.03.2009 11:28:32

Tino

Korrektur...

22.03.2009 11:31:45

Tino

kurze Erläuterung

22.03.2009 11:45:13

Werner

versuche es mal hiermit.

22.03.2009 12:02:25

Tino

Klappt wunderbar!

22.03.2009 12:20:04

Werner

zum Thema

22.03.2009 12:34:13

Werner

zweiter Code problematisch

23.03.2009 04:23:05

Werner

Testumgebung

23.03.2009 08:00:50

Tino

Alles klar!

23.03.2009 13:13:04

Werner

Sub test() Dim VorActive As Range Set VorActive = Cells(ActiveCell.Row, 2) Do While Application.WorksheetFunction.Clean(Trim$(VorActive)) = "" And VorActive.Row > 2 Set VorActive = VorActive.Offset(-1, 0) Loop Range(VorActive, Cells(ActiveCell.Row, 2)).Value = VorActive.Offset(-1, 0).Value End Sub

Sub test() Dim VorActive As Range Set VorActive = Cells(ActiveCell.Row, 2) Do While Application.WorksheetFunction.Clean(Trim$(VorActive)) = "" And VorActive.Row > 1 Set VorActive = VorActive.Offset(-1, 0) Loop Range(VorActive, Cells(ActiveCell.Row, 2)).Value = VorActive.Value End Sub

Sub Test() Dim VorActive As Range, NachActive As Range Set VorActive = Cells(ActiveCell.Row, 2).End(xlUp) Set NachActive = Cells(ActiveCell.Row, 2).End(xlDown) If NachActive.Row > Range("A:C").SpecialCells(xlCellTypeLastCell).Row Then Set NachActive = Cells(Range("A:C").SpecialCells(xlCellTypeLastCell).Row, 2) End If Do While Application.WorksheetFunction.Clean(Trim$(VorActive)) = "" And VorActive.Row > 1 Set VorActive = VorActive.Offset(-1, 0) Loop Do While Application.WorksheetFunction.Clean(Trim$(NachActive)) = "" And NachActive.Row < Rows.Count Set NachActive = NachActive.Offset(1, 0) Loop Range(VorActive, NachActive.Offset(IIf(IsEmpty(NachActive), 0, -1), 0)).Value = VorActive.Value End Sub

Hallo Tino,
es hat etwas gedauert, danke f. deine Geduld. Dein erster Code läuft wunderbar. Natürlich muss man
am Anfang schreiben "...Cells(ActiveCell.Row, 2)" statt ."..Cells(ActiveRow, 2)", dann geht es. Du
hast mein Problem schon richtig erfasst.
Da ich häufig ähnliche Programmierprobleme habe (der Code muss sich mit "Offset" wie ein Affe eine
Spalte von unten nach oben hochhangeln), ist deine Lösung von großen Wert für mich. Jetzt weiß ich, dass man in der auszufüllenden Spalte einen Range ueber die dort leeren Zellen bilden kann, dem man den auszufüllenden Wert zuweist.
Ich hatte in solchen Fällen bisher immer mit einer zweiten Schleife zum Ausfüllen gearbeitet. Deine
Lösung mit dem Range ist aber deutlich besser!
Auch Clean und Trim sind in deinem Makro interessant eingesetzt (wie schon kürzlich in einem etwas
anderem Zusammenhang). Noch einmal meinen besten Dank, durch diesen Code werden einige Denkansätze von mir künftig wohl besser und einfacher ausfallen!
Beste Grüße! Werner R.

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte bis Cursorzeile füllen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread