Anzeige
Archiv - Navigation
1620to1624
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
Inhaltsverzeichnis

Spalten ergänzen

Spalten ergänzen
08.05.2018 08:01:13
Goeschl
Hallo!
Hat jemand von den Profis eine Idee wie man Spalten ergänzen kann!
Und zwar habe ich z.b. in der Spalte D auf in der Zelle D4 den Wert 6400 stehen in der Zelle D10 steht dann der Wert 7200 dazwischen ist leer! Jetzt würde ich gerne die leeren Zellen bis D10 mit dem Wert 6400 auffüllen und dann ab D10 mit dem Wert 7200 usw...
D
1
2
3
4 6400
5
6
7
8
9
10 7200
11
12
13......

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten ergänzen
09.05.2018 09:17:50
Goeschl
Danke für die Antwort!
Weiß jemand wie man das in einen VBA Code einbauen könnte?
lg Roland
AW: Spalten ergänzen
09.05.2018 10:12:09
Goeschl
Hallo!
Ich habe dazu nun folgenden Code:
Der füllt mir jetzt den letzten Wert bis nach A18000 auf!
Kann ich dem irgendwie sagen das er nur die vorhandenen Zeilen nimmt?
Vielen Dank!
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A4:A18000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige