Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leere Zelle finden und ausfüllen

Leere Zelle finden und ausfüllen
04.11.2005 10:52:03
Frank
Hallo liebe Excelprofis,
benötige mal´wieder eure Hilfe.
In einer Spalte stehen wie unten aufgeführt PLZ - die auftauchenden leeren Zellen unter einer PLZ sollen mit den darüberstehenden PLZ gefüllt werden - D.h. in "A3" soll 12345 stehen, in "A5" bis "A7" soll 55555 stehen usw.
Wer kann mir weiterhelfen?
Vielen Dank im Voraus
Frank
A1 plz
A2 12345
A3
A4 55555
A5
A6
A7
A8 55555
A9 66666
A10
A11
A12
A13
A14 777777
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Zelle finden und ausfüllen
04.11.2005 10:59:45
UweD
Hallo
so mach ich das.

Sub Fehlende_Spalten_auffüllen()
'   Bereich vorher markieren
R1 = Selection.Row 'erste Reihe
If R1 = 1 Then R1 = 2 'sonst Fehler
S1 = Selection.Column 'erste Spalte
ri = Selection.Rows.Count 'Anzahl Reihen in Selection
Si = Selection.Columns.Count 'Anzahl Spalten in Selection
LR = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Application.ScreenUpdating = False
For I = R1 To ri
If I > LR Then Exit Sub
For j = S1 To S1 + Si
If Cells(I, j) = "" Then
If Cells(I - 1, j) <> "" Then
Cells(I, j) = Cells(I - 1, j)
End If
End If
Next j
Next I
Application.ScreenUpdating = True
[A1].Select
End Sub

Bereich vorher markieren....
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
kürzer...
04.11.2005 11:21:22
UweD
gehts so...

Sub Fehlende_Spalten_auffüllen2()
'   Bereich vorher markieren
For Each Z In Selection.SpecialCells(xlCellTypeBlanks)
If Z.Row = 1 Then GoTo Weiter
Z.Value = Cells(Z.Row - 1, Z.Column)
Weiter:
Next Z
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: kürzer...
04.11.2005 12:16:50
Frank
Hallo UweD
ganz lieben Dank für die schnelle Antwort - funkioniert super
Frank
;

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