Wenn A2 leer, dann Wert A1 füllen

Hallo,
ich komme einfach nicht dahinter....
In einer Spalte sind Zellen mit Werten gefüllt und auch LEER. Ich möchte nun, dass immer die nächste leere Zelle gefunden wird und dorthin der Wert der Zelle darüber gefüllt wird. Also z.B. wenn A2=leer, dann A1. A2 hätte dann den Wert von A1. Solange in Spalte A leere Zellen folgen, fülle diese immer mit dem Wert darüber auf.
Beim Auffinden einer Zelle in Spalte A, die nicht leer ist, lass diesen Wert in der Zelle stehen. Finde die nächste leere Zelle und fülle diese wiederrum mit dem Wert der Zelle darüber auf.
Nun, ich finde hierzu keine Formel. Möglicherweise geht dies nur über ein Makro.
Hier ist mal eine Beispieltabelle mit dem gewünschten Ergebnis in der Spalte "Nachher".
https://www.herber.de/bbs/user/78609.xls
Habt Ihr da eine Lösung.
Besten Dank
Karl-Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Nur weil Du schreibst, Du findest dafür keine Formel
So ginge es auch
Tabelle1

	A	B	C	D
1	A1	B1	C1	D1
2	Vorher	Nachher	Vorher	Nachher
3	0015	0015	Müller	Müller
4		0015		Müller
5		0015		Müller
6	0016	0016	Maier	Maier
7		0016		Maier
8		0016		Maier
9		0016		Maier
10		0016		Maier
11		0016		Maier
12		0016		Maier
13		0016		Maier
14		0016		Maier
15		0016		Maier
16		0016		Maier
17		0016		Maier
18		0016		Maier
19		0016		Maier
20	0020	0020	Becker	Becker
21	0027	0027	Lang	Lang
22		0027		Lang

Formeln der Tabelle

Zelle	Formel
B3	=WENN(A3="";B2;A3)
D3	=WENN(C3="";D2;C3)
B4	=WENN(A4="";B3;A4)
D4	=WENN(C4="";D3;C4)
B5	=WENN(A5="";B4;A5)
D5	=WENN(C5="";D4;C5)
B6	=WENN(A6="";B5;A6)
D6	=WENN(C6="";D5;C6)
B7	=WENN(A7="";B6;A7)
D7	=WENN(C7="";D6;C7)
B8	=WENN(A8="";B7;A8)
D8	=WENN(C8="";D7;C8)
B9	=WENN(A9="";B8;A9)
D9	=WENN(C9="";D8;C9)
B10	=WENN(A10="";B9;A10)
D10	=WENN(C10="";D9;C10)
B11	=WENN(A11="";B10;A11)
D11	=WENN(C11="";D10;C11)
B12	=WENN(A12="";B11;A12)
D12	=WENN(C12="";D11;C12)
B13	=WENN(A13="";B12;A13)
D13	=WENN(C13="";D12;C13)
B14	=WENN(A14="";B13;A14)
D14	=WENN(C14="";D13;C14)
B15	=WENN(A15="";B14;A15)
D15	=WENN(C15="";D14;C15)
B16	=WENN(A16="";B15;A16)
D16	=WENN(C16="";D15;C16)
B17	=WENN(A17="";B16;A17)
D17	=WENN(C17="";D16;C17)
B18	=WENN(A18="";B17;A18)
D18	=WENN(C18="";D17;C18)
B19	=WENN(A19="";B18;A19)
D19	=WENN(C19="";D18;C19)
B20	=WENN(A20="";B19;A20)
D20	=WENN(C20="";D19;C20)
B21	=WENN(A21="";B20;A21)
D21	=WENN(C21="";D20;C21)
B22	=WENN(A22="";B21;A22)
D22	=WENN(C22="";D21;C22)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Am Ende könntest Du die Hilfsspalte nach der Orginalspalte kopieren und duch die Werte ersetzen.
Gruß Matthias

300 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer

Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...

18.08.2008 11:18:24

Thread-ID: 1002534

4 Beiträge

Zelle nichtleer, dann Spalten ausblenden

kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.

20.08.2008 07:29:00

Thread-ID: 1003062

6 Beiträge

MSGBox wenn Zelleninhalt geleert wurde?!

Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...

26.08.2008 15:07:01

Thread-ID: 1004826

6 Beiträge

wenn > Spalte I, dann neue Zeile

Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...

04.09.2008 16:41:00

Thread-ID: 1007458

8 Beiträge

Wenn in Zelle folgender String, dann

mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....

06.09.2008 01:08:00

Thread-ID: 1007801

16 Beiträge

Wenn in Zelle folgende Zeichen, dann

mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...

09.09.2008 09:39:00

Thread-ID: 1008320

6 Beiträge

Infobox zum Thema

EXCEL - VBA: Werte in Zellen schreiben

Was ist die Aufgabe?

Du hast eine Spalte in Excel, in der sowohl leere als auch gefüllte Zellen vorhanden sind. Du möchtest, dass jede leere Zelle den Wert der Zelle direkt darüber erhält. Wenn die Zelle bereits einen Wert hat, soll dieser unverändert bleiben.

Wichtig zu wissen

Dies lässt sich am besten durch ein VBA-Makro realisieren, da Standard-Excel-Formeln nicht in der Lage sind, solche Änderungen in anderen Zellen vorzunehmen.

Einsatzzweck

Diese Funktionalität ist besonders nützlich in Tabellen, in denen Daten unvollständig sind und es wichtig ist, dass leere Zellen durch bestimmte Werte ersetzt werden.

Praktische Anwendungen

Beispielsweise könnte dies in einer Tabelle mit Zeitreihendaten nützlich sein, in der fehlende Werte durch den vorherigen Wert ersetzt werden sollen.

Vorgehensweise

Die effizienteste Art, diese Aufgabe in Excel zu bewältigen, ist die Verwendung von VBA (Visual Basic für Applikationen).

VBA-Beispiel

Das folgende VBA-Makro würde diese Aufgabe erfüllen:

Sub FuellLeereZellen()
    Dim Zelle As Range
    Dim Wert As Variant
    Wert = ""

    For Each Zelle In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Zelle.Value <> "" Then
            Wert = Zelle.Value
        Else
            Zelle.Value = Wert
        End If
    Next Zelle
End Sub

Füge diesen Code in ein VBA-Modul ein und führe das Makro aus, um die leeren Zellen in Spalte A mit dem Wert der Zelle darüber zu füllen.

Tipps

Achte darauf, ein Backup deiner Excel-Datei zu erstellen, bevor du VBA-Code ausführst.
Das Makro arbeitet auf dem aktiven Arbeitsblatt. Stelle sicher, dass du das richtige Arbeitsblatt ausgewählt hast, bevor du das Makro ausführst.

Zusammenfassung

Mit einem VBA-Makro kannst du in Excel leere Zellen in einer Spalte einfach durch den Wert der Zelle darüber ersetzen. Dies ist besonders nützlich für unvollständige oder lückenhafte Datensätze.

Beliebteste Forumthreads (12 Monate)

Wenn A2 leer, dann Wert A1 füllen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Infobox zum Thema

EXCEL - VBA: Werte in Zellen schreiben

Inhaltsverzeichnis

Was ist die Aufgabe?

Wichtig zu wissen

Einsatzzweck

Praktische Anwendungen

Vorgehensweise

VBA-Beispiel

Tipps

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn A2 leer, dann Wert A1 füllen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Beispielen

Infobox zum Thema

EXCEL - VBA: Werte in Zellen schreiben

Inhaltsverzeichnis

Was ist die Aufgabe?

Wichtig zu wissen

Einsatzzweck

Praktische Anwendungen

Vorgehensweise

VBA-Beispiel

Tipps

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread