Inhalt ausfüllen bis zur nächsten gefüllten Zelle
Schritt-für-Schritt-Anleitung
Um in Excel Zellen auszufüllen bis zum nächsten Wert, kannst Du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul.
-
Kopiere den folgenden Code in das Modul:
Option Explicit
Sub Jutta()
Dim w As Variant
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A4:A6000")
If c.Value <> "" Then w = c.Value
If c.Value = "" Then c.Value = w
Next c
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle das Makro Jutta und klicke auf Ausführen.
Damit wird der Inhalt von Zelle A4 bis zur nächsten gefüllten Zelle nach unten kopiert.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Funktion „Suchen und Ersetzen“ nutzen:
- Wähle die Zellen aus, die Du auffüllen möchtest.
- Gehe zu
Start -> Bearbeiten -> Suchen & Auswählen -> Gehe zu Spezial.
- Wähle
Leerzellen und klicke auf OK.
- Gib in die aktive Zelle die Formel
=WENN(A1="";A2;A1) ein, wobei A1 die erste Zelle und A2 die nächste gefüllte Zelle ist.
- Drücke
Strg + Enter, um die Verbindung zu den leeren Zellen herzustellen.
Damit kannst Du die Zellen ohne VBA füllen.
Praktische Beispiele
Wenn Du beispielsweise in Zelle A4 den Wert „Test“ hast und Zelle A5 leer ist, wird durch das Skript der Inhalt von A4 in A5 kopiert. Wenn in A6 der Wert „Beispiel“ steht, wird der Wert von A6 in A7 kopiert, bis zur nächsten gefüllten Zelle.
Beispiel:
Nach Ausführung des Skripts wird die Tabelle so aussehen:
| A |
| Test |
| Test |
| Test |
| Beispiel |
| Beispiel |
| Beispiel |
| Beispiel |
Tipps für Profis
- Verwende die Funktion
Application.ScreenUpdating = False, um die Ausführungsgeschwindigkeit des Makros zu erhöhen, indem die Bildschirmaktualisierung während der Verarbeitung deaktiviert wird.
- Wenn Du mehrere Spalten gleichzeitig auffüllen möchtest, passe den Code entsprechend an, indem Du die
Range-Anweisung änderst.
- Experimentiere mit bedingten Formatierungen, um leere Zellen visuell hervorzuheben, bevor Du das Makro ausführst.
FAQ: Häufige Fragen
1. Wie kann ich das Skript anpassen, um eine andere Spalte zu verwenden?
Ändere einfach die Range von Range("A4:A6000") auf die gewünschte Spalte, z. B. Range("B4:B6000").
2. Funktioniert das auch in Excel Online?
Leider sind VBA-Makros nicht in Excel Online verfügbar. Du musst Excel auf Deinem Desktop verwenden, um diese Funktion zu nutzen.
3. Kann ich das Skript auch für andere Bereiche verwenden?
Ja, ändere einfach die Range im Skript, um es auf den gewünschten Bereich anzuwenden.