Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

per Makro alle leeren Zellen füllen

per Makro alle leeren Zellen füllen
11.06.2004 11:01:37
alex
HAllo zusammen
ich habe folgendes Problem
ich habe in eine Liste
Bsp:
Spalte a Spalte B
111 555
123
222
145 111
323 123
ich möchte nur von einem MAkro alle Zellen füllen lassen, bis wieder ein Wert in der nächsten Spalte kommt.
Das soll bei allen Spalten von möglich sein.
Ergebnis:
Spalte a Spalte B
111 555
111 123
111 222
145 111
323 123
Vielen Dank für die Hilfe
Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Makro alle leeren Zellen füllen
Christoph
Das sagt der Recorder
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "meintext"
Gruß
Christoph
AW: per Makro alle leeren Zellen füllen
11.06.2004 12:31:46
alex
Hallo Christoph,
leider bin ich mir icht ganz sicher wie ich das Anwenden kann.
Ich bekommen die Meldung, dass dieser Ausdruck nicht bakannt ist.
Ich habe in einer Spalte mehrere solcher Fälle.
Es müssten also alle Zellen einer Spalte abgelaufen werden und dann mit dem letzten Wert oberhalb der Zelle gefüllt werden.
Gruß
Alex
AW: per Makro alle leeren Zellen füllen
Uduuh
Hallo,

Sub Fuellen()
Dim leZeile As Long, Zeile As Long
leZeile = Cells(65536, 1).End(xlUp).Row
For Zeile = 1 To leZeile
If IsEmpty(Cells(Zeile, 2)) Then
Cells(Zeile, 2) = Cells(Zeile, 1)
Cells(Zeile, 1) = Cells(Zeile - 1, 1)
End If
Next Zeile
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige

232 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige