Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte automatisch nach unten füllen

Werte automatisch nach unten füllen
18.05.2015 11:07:07
Erlinghagen
Hallo Forum,
in der Anlage ist eine Tabelle, die im Original meine Daten zeigt und im Ergebnis meine Wunschdarstellung. Das Ergebnis würde ich gerne per Fromel, VBA, wie auch immer hinkriegen.
Kennt jemand eine Lösung?
Der Datensatz enthält bis zu 28.000 Zeilen und ist manuell kaum zu bearbeiten.
Warum mache ich das? Damit ich am Ende über Pivot je Name eine Summe der Stunden erhalten.
Anlage:
https://www.herber.de/bbs/user/97696.xls
Vielen Dank im Voraus!
Benjamin

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte automatisch nach unten füllen
18.05.2015 11:32:22
Gerd
Halo Benjamin!
Sub Fill_It()
Dim Rng As Range, L As Long
On Error Resume Next
Set Rng = Columns(1).SpecialCells(xlCellTypeBlanks)
On Error GoTo ENDE
For L = 1 To Rng.Areas.Count
Rng.Areas(L) = Rng.Areas(L)(0, 1)
Next
ENDE:
If Err.Number  0 Then Err.Clear
End Sub

Gruß Gerd

Anzeige
AW: Werte automatisch nach unten füllen
18.05.2015 12:15:53
Erlinghagen
Funktioniert bestens!!! Vielen Dank!

AW: Werte automatisch nach unten füllen mit Formel
18.05.2015 13:09:33
Daniel
Hi
ohne VBA gehts auch einfach:
1. Spalte A markieren
2. markierung mit Start - Bearbeiten - Suchen und Auwählen - Ihalte - Leerzellen auf die Leerzellen reduzieren
3. in die aktive Zelle (ist die erste leere bei dir A4) die Formel eingeben: =A3 (sinngemäß: "Wert aus Zelle obendrüber") und Eingabe mit STRG+ENTER abschließen.
Die Formel wird dann in alle markierten Zellen übernommen.
4. falls Erwünscht, Spalte A markieren und an gleicher Stelle als Wert einfügen.
so gehts auch mit VBA:
With Columns(1)
.SpecialCells(xlcelltypeblanks).FormulaR1C1 = "=R[-1]C"
.Formula = .Value
End with

bei sehr grossen Datenmengen kann auch diese Verfahren an seine Grenzen kommen, dann einfach in einer Hilfsspalte (z.B. Spalte C) folgende Formel eintragen und bis ans Datenende kopieren (Formel ab Zeile2):
=Wenn(A2="";C1;A2)
und dann auch wieder kopieren und in Spalte A als Wert eintragen.
das geht auch als Makro und dürfte bei grossen Datenmengen das beste sein, vorallem wenn es viele einzelne Namen sind.
dim sp as long
dim ze as long
sp = cells.SpecialCells(xlcelltypelastcell).Column + 1
ze = cells.SpecialCells(xlcelltypelastcell).row
With Range(Cells(2, sp), cells(ze, sp))
.FormulaR1c1 = "=IF(RC1="""",R[-1]C,RC1)"
.copy
Cells(2, 1).PasteSpecial xlpastevalues
.ClearContents
End with

Gruß Daniel

Anzeige
AW: Werte automatisch nach unten füllen mit Formel
18.05.2015 13:28:22
Erlinghagen
Der erste Hinweis von Dir Daniel gefällt mir richtig gut!
Besten Dank Euch beiden!
VG
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Werte automatisch nach unten füllen in Excel


Schritt-für-Schritt-Anleitung

  1. Spalte markieren: Wähle die Spalte aus, die du mit Werten nach unten ausfüllen möchtest.
  2. Leerzellen auswählen: Gehe zu Start - Bearbeiten - Suchen und Auswählen - Inhalte - Leerzellen. Dies reduziert deine Auswahl auf die Leerzellen in der markierten Spalte.
  3. Formel eingeben: In der aktiven Zelle (die erste leere Zelle) gib die Formel =A3 ein, um den Wert aus der Zelle darüber zu kopieren. Bestätige mit STRG+ENTER. Die Formel wird automatisch in alle markierten Zellen übernommen.
  4. Werte einfügen: Wenn du die Formeln nicht mehr benötigst, kannst du die Spalte markieren und mit Rechtsklick - Inhalte einfügen - Werte die Formeln in feste Werte umwandeln.

Häufige Fehler und Lösungen

  • Fehler: Die Formel wird nicht in alle Zellen übernommen.

    • Lösung: Stelle sicher, dass die Leerzellen korrekt ausgewählt sind. Überprüfe die Schritte zur Auswahl der Leerzellen.
  • Fehler: Die Werte füllen sich nicht bis zum Ende der Spalte.

    • Lösung: Achte darauf, dass du die richtigen Zellen auswählst und die Formel in der ersten leeren Zelle korrekt eingegeben hast.

Alternative Methoden

  • VBA-Makro: Wenn du eine große Datenmenge hast, kann ein Makro hilfreich sein. Hier ist ein einfaches Beispiel:
Sub Fill_It()
    Dim Rng As Range, L As Long
    On Error Resume Next
    Set Rng = Columns(1).SpecialCells(xlCellTypeBlanks)
    On Error GoTo ENDE
    For L = 1 To Rng.Areas.Count
        Rng.Areas(L) = Rng.Areas(L)(0, 1)
    Next
ENDE:
    If Err.Number <> 0 Then Err.Clear
End Sub
  • Wenn-Funktion: Du kannst auch die Formel =WENN(A2="";C1;A2) verwenden, um die Werte nach unten auszufüllen.

Praktische Beispiele

  1. Einfache Werte ausfüllen: Wenn du eine Liste von Namen hast und die Spalte darunter die gleichen Namen wiederholen soll, kannst du die oben genannten Schritte verwenden, um die Namen nach unten auszufüllen.

  2. Mit Zahlen arbeiten: Um eine Spalte mit Zahlen bis zum Ende zu füllen, kannst du die Formel =A2 verwenden, um die Zahl aus der Zelle darüber zu übernehmen.


Tipps für Profis

  • Nutze die Tastenkombinationen für schnellere Eingaben, insbesondere wenn du viele Daten hast.
  • Überlege, VBA-Makros zu verwenden, wenn du regelmäßig große Datenmengen bearbeitest. Das kann dir viel Zeit sparen.
  • Experimentiere mit der Tabelle als Datenquelle für Pivot-Tabellen, um eine Summe automatisch nach unten zu berechnen.

FAQ: Häufige Fragen

1. Wie kann ich Leerzellen in einer großen Tabelle schnell finden?
Verwende die Funktion Suchen und Auswählen - Inhalte - Leerzellen unter dem Tab „Start“, um alle Leerzellen schnell auszuwählen.

2. Kann ich diese Methoden auch in älteren Excel-Versionen verwenden?
Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und höher.

3. Wie kann ich sicherstellen, dass meine Formeln immer korrekt nach unten ausgefüllt werden?
Achte darauf, die richtigen Zellen auszuwählen und die Formeln mit STRG+ENTER korrekt einzugeben. Du kannst auch VBA-Makros verwenden, um die Arbeit zu automatisieren.

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