Automatisch Auffüllen bei fehlender Eingabe

phase10_de · 26. Januar 2010 um 09:33

Wie sieht dir Formel/Funktion aus, wenn die leere Zelle [fehlende Eingabe »)
nicht vorgegeben ist?
siehe Beispieldaten:
A4501 = fehlende Eingabe »
A 4800 = fehlende Eingabe »
usw.

Tobi_s_b8395e · 26. Januar 2010 um 10:35

Erst mal „Hallo“, (so ne Begrüßung hilft auch)

entweder stehe ich auf dem Schlauch oder hier fehlt ein bisschen mehr Info …

Was willst du uns damit sagen???

LG Tobi@s (so ne Unterschrift hilft auch)

phase10_de · 26. Januar 2010 um 10:50

Guten Tag,

Hallo
hier ein Beispiel:
Zelle Wert
A125 3415€
A126 3359€
A127 €
A128 3359€
A129 3393€
A130 3420€
A131 3287€
A132 3338€
A133 €
A134 2579€

Die leeren Zellen sollen automatisch mit den Wert des vorherigen ausgefüllt werden.
Das Problem hierbei ist, es sind fast 1500 Zeilen und die Funktion/Formel soll die Zellen ohne Wert finden und wie oben beschrieben automatisch ausfüllen.

Ich haoffe dass es ein bischen verständlicher ist?

Gruß
der verzweifelte;o)

Reinhard_fb8cb7 · 26. Januar 2010 um 12:19

Die leeren Zellen sollen automatisch mit den Wert des
vorherigen ausgefüllt werden.
Das Problem hierbei ist, es sind fast 1500 Zeilen und die
Funktion/Formel soll die Zellen ohne Wert finden und wie oben
beschrieben automatisch ausfüllen.

Hallo Phase,

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │
───┼─────────┼─────────┤
 1 │ 3.415 € │ 3.415 € │
───┼─────────┼─────────┤
 2 │ 3.359 € │ 3.359 € │
───┼─────────┼─────────┤
 3 │ │ 3.359 € │
───┼─────────┼─────────┤
 4 │ 3.359 € │ 3.359 € │
───┼─────────┼─────────┤
 5 │ 3.393 € │ 3.393 € │
───┼─────────┼─────────┤
 6 │ 3.420 € │ 3.420 € │
───┼─────────┼─────────┤
 7 │ 3.287 € │ 3.287 € │
───┼─────────┼─────────┤
 8 │ 3.338 € │ 3.338 € │
───┼─────────┼─────────┤
 9 │ │ 3.338 € │
───┼─────────┼─────────┤
10 │ 2.579 € │ 2.579 € │
───┴─────────┴─────────┘
Benutzte Formeln:
B1 : =A1
B2 : =WENN(A2="";A1;A2)
B3 : =WENN(A3="";A2;A3)
B4 : =WENN(A4="";A3;A4)
B5 : =WENN(A5="";A4;A5)
B6 : =WENN(A6="";A5;A6)
B7 : =WENN(A7="";A6;A7)
B8 : =WENN(A8="";A7;A8)
B9 : =WENN(A9="";A8;A9)
B10: =WENN(A10="";A9;A10)

A1:B10
haben das Zahlenformat: #.##0 €;[Rot]-#.##0 €

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

Felix_W_9c131d · 26. Januar 2010 um 12:23

Hallo Reinhard,

wenn ich das richtig sehe, geht es nur, wenn nicht zwei leere Zellen aufeinander folgen?

Cheers, Felix

Reinhard_fb8cb7 · 26. Januar 2010 um 12:35

wenn ich das richtig sehe, geht es nur, wenn nicht zwei leere
Zellen aufeinander folgen?

Hallo Felix,

du hast Recht, dann halt mit Hilfe von Excelformeln.de so:

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │
───┼─────────┼─────────┤
 1 │ 3.415 € │ 3.415 € │
───┼─────────┼─────────┤
 2 │ 3.359 € │ 3.359 € │
───┼─────────┼─────────┤
 3 │ │ 3.359 € │
───┼─────────┼─────────┤
 4 │ │ 3.359 € │
───┼─────────┼─────────┤
 5 │ │ 3.359 € │
───┼─────────┼─────────┤
 6 │ 3.420 € │ 3.420 € │
───┼─────────┼─────────┤
 7 │ 3.287 € │ 3.287 € │
───┼─────────┼─────────┤
 8 │ 3.338 € │ 3.338 € │
───┼─────────┼─────────┤
 9 │ │ 3.338 € │
───┼─────────┼─────────┤
10 │ 2.579 € │ 2.579 € │
───┴─────────┴─────────┘
Benutzte Formeln:
B1 : =VERWEIS(2;1/($A$1:A1"");A:A)
B2 : =VERWEIS(2;1/($A$1:A2"");A:A)
B3 : =VERWEIS(2;1/($A$1:A3"");A:A)
B4 : =VERWEIS(2;1/($A$1:A4"");A:A)
B5 : =VERWEIS(2;1/($A$1:A5"");A:A)
B6 : =VERWEIS(2;1/($A$1:A6"");A:A)
B7 : =VERWEIS(2;1/($A$1:A7"");A:A)
B8 : =VERWEIS(2;1/($A$1:A8"");A:A)
B9 : =VERWEIS(2;1/($A$1:A9"");A:A)
B10: =VERWEIS(2;1/($A$1:A10"");A:A)

Zahlenformate der Zellen im gewählten Bereich:
A1:A10
haben das Zahlenformat: #.##0 €;[Rot]-#.##0 €
B1:B10
haben das Zahlenformat: #.##0 €;[Rot]#.##0 €

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

phase10_de · 26. Januar 2010 um 13:23

Hallo reinhard, Hallo Felix,
leider funktioniert die Formel nicht.
Ich möchte Euch einen Anhang senden, mit u.a. Beispiel.
Nur wie geh das???
Einheit entspricht hierbei L = Liter
Die betreffende Zellen findet ihr in der Spalte „G“
= keine Kontrollgang
Entweder müssen dort andere Funktionen hinterlegt werden,
oder mir fehlen einige Hirnzellen;o)

Gruß
Andreas

Tobi_s_b8395e · 26. Januar 2010 um 13:51

Guten Tag,

Die leeren Zellen sollen automatisch mit den Wert des
vorherigen ausgefüllt werden.
Das Problem hierbei ist, es sind fast 1500 Zeilen und die
Funktion/Formel soll die Zellen ohne Wert finden und wie oben
beschrieben automatisch ausfüllen.

Ich haoffe dass es ein bischen verständlicher ist?

ja, schon besser

also ich würde hier ein Makro schreiben, denn mit Formeln finde ich es umständlich (und Dateigröße steigt). Außerdem weiß man nicht ob die Zahlen, die bereits da sind per Hand eingetragen werden oder nur Ergebnisse sind aus Formeln oder so.
Von daher ein kleines Makro welches alle Zeilen bis zum Ende durchschaut ob eine Zelle leer ist und den darüber liegenden Wert dann einträgt. Fertig.

So in etwa (ungetestet)

Sub Ausfüllen\_Leerzelle
For Ze = 2 To 1500 'Zahl evtl. anpassen
If Cells(Ze, 1).Value = Empty Then Cells(Ze, 1).Value = Cells(Ze-1,1).Value
Next
End Sub

Gruß
der verzweifelte;o)

LG Tobi@s

Helmut_Mittelbach_35ae24 · 26. Januar 2010 um 14:09

Hallo Andreas,

Schreibe in eine leere Zelle eine Formel, die die darüberliegende Zelle adressiert, also z.B. in D2 :=D1
Markiere den Bereich mit den leeren Zellen und wähle den Befehl Bearbeiten - Gehe zu - Inhalte - Leerzellen
Wähle den Befehl Bearbeiten - Inhalte Einfügen - Formeln

Jetzt steht in jeder ehemalig leeren Zellen der Inhalt der darunterstehhenden.

Tobi_s_b8395e · 26. Januar 2010 um 15:20

Hallo Andreas,

habe mal versucht dem Beispiel zu folgen …

Schreibe in eine leere Zelle eine Formel, die die
darüberliegende Zelle adressiert, also z.B. in D2 :=D1

Markiere den Bereich mit den leeren Zellen und wähle den
Befehl Bearbeiten - Gehe zu - Inhalte - Leerzellen

du meinst „Markiere die leeren Zellen“? Denn „markiere den BEREICH mit den leeren Zellen“ dass ich den kompletten Bereich markieren soll

Wähle den Befehl Bearbeiten - Inhalte Einfügen - Formeln

zuvor sollte die Formel aber auch in die Zwischenablage kopiert werden, sonst geht das nicht.

Jetzt steht in jeder ehemalig leeren Zellen der Inhalt der
darunterstehhenden.

Und nun möchtest du dass er alle 1500 Zeilen prüft wo leere Zellen sind und diese auch noch markiert? Viel Spaß bei der Arbeit

Mein „Urteil“: Interessante Theorie (mit dem „Inhalte Einfügen“ nutze ich zu selten) aber für das Beispiel nicht unbedingt so zu gebrauchen.

LG

Thomas_Ramel · 26. Januar 2010 um 16:19

Grüezi Phase

hier ein Beispiel:
Zelle Wert
A125 3415€
A126 3359€
A127 €
A128 3359€
A129 3393€
A130 3420€
A131 3287€
A132 3338€
A133 €
A134 2579€

Die leeren Zellen sollen automatisch mit den Wert des
vorherigen ausgefüllt werden.
Das Problem hierbei ist, es sind fast 1500 Zeilen und die
Funktion/Formel soll die Zellen ohne Wert finden und wie oben
beschrieben automatisch ausfüllen.

Ich haoffe dass es ein bischen verständlicher ist?

Ja durchaus - folge diesen Schritten hier:

Spalte markieren (auch mehrere möglich)
F5 drücken
[Inhalte…] anklicken
[x] Leerzellen doppelt anklicken
‚=A1‘ eintippen (Adresse unmittelbar über der aktiven weissen Zelle)
STRG+Return zum Abschliessen
Spalte erneut markieren
Strg+C
Rechtsklick auf die markierte Spalte
Inhalte einfügen…
[x] Werte doppelt anklicken

–
Mit freundlichen Grüssen

Thomas Ramel

MVP für MS-Excel -

Helmut_Mittelbach_35ae24 · 26. Januar 2010 um 18:55

Hallo Tobias,
ich meinte meinen Beitrag so, wie ich ihn geschrieben habe.
Also: Schritt2: Den Bereich markieren, der die leeren Zellen enthält, nicht die einzelnen leeren Zellen (das macht dann nämlich der Befehl Gehezu - Inhalte - Leerzellen .
So, und jetzt probier’s doch einfach mal aus!
Gruß Helmut

Reinhard_fb8cb7 · 26. Januar 2010 um 21:01

Ich möchte Euch einen Anhang senden, mit u.a. Beispiel.
Nur wie geh das???

Hallo Andreas,

nimm dir aus FAQ:2606 einen Link und lade darüber hoch, am besten Hostarea, rapidshare baut manchmal Wartezeiten für Freeuser ein und zeige hier den Hochladlink.

Gruß
Reinhard

phase10_de · 27. Januar 2010 um 06:50

Guten Morgen Reinhard,
u.a ist der Link für die Datei mit meinem Problem
http://www.hostarea.de/server-01/Januar-cd6668f25d.xls

Gruß
Andreas

Tobi_s_b8395e · 27. Januar 2010 um 09:49

Cool, wieder was dazugelernt

LG Tobi@s

Reinhard_fb8cb7 · 27. Januar 2010 um 12:18

u.a ist der Link für die Datei mit meinem Problem
http://www.hostarea.de/server-01/Januar-cd6668f25d.xls

Hallo Andreas,

leere die zwei Zellen in G wo du meine Formel eingefügt hast.
Stell dich auf g459 8 und markiere mit Shift+PfeilnachUnten bis runter zu g4724.

Dann wie Thomas schrieb:
F5
Inhalte
Leereilen doppelt anklicken
Oben in der Eingabezeile eingeben: =G4605
Strg+Ok

Dann markierst du wie oben beschrieben nochmals G4598:G4724, Str+c, Bearbeiten—InhalteEinfügen–Werte.

Gruß
Reinhard

phase10_de · 27. Januar 2010 um 14:45

hey suuuuuuuuuuuuuuuuuuuuuper,
es hat funktioniiiiiiiiiiiiieeeeeeeeeeeeeeeeeeeeert

Vielen Dank an Euch Allen

Gruß
Andreas

Thomas_Ramel · 28. Januar 2010 um 11:11

gRÜEZI Tobi@s

Cool, wieder was dazugelernt

Fein, gell

Per VBA kann das im Übrigen so aussehen:

Bereich markieren
Folgenden Code laufen lassen:

Sub Auffuellen()
With Intersect(Selection, ActiveSheet.UsedRange)
If WorksheetFunction.CountBlank(.Cells) > 1 Then
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = „=R[-1]C“
.Value = .Value
End If
End With
End Sub

–
Mit freundlichen Grüssen

Thomas Ramel

MVP für MS-Excel -