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

Zelle richtig füllen

Forumthread: Zelle richtig füllen

Zelle richtig füllen
06.11.2017 14:21:54
Nadine
Hallo,
ich arbeite an einem Makro, dass alle leeren Zellen in meinem benutzten Bereich füllen soll. Die Daten sind nach Spalten zugehörig, also wird einfach bei einer leeren Zelle der Wert der vorherigen kopiert. Da sich in den ersten beiden Zeilen allerdings jeweils Text befindet, ist das für die 3. Zeile (also der ersten Zeile mit Zahlen) nicht möglich, also sollte dort der Wert der 1. gefüllten Zelle in der selben Spalte kopiert werden :)
  • 
    Sub LeereZellekopieren()
    Dim MyRange As Range, Zelle As Range
    Set MyRange = ActiveSheet.UsedRange.Offset(2, 1)
    For Each Zelle In MyRange.SpecialCells(xlCellTypeBlanks)
    If Zelle 'In 3. Zeile then Zelle = nächste nicht leere Zelle in Spalte
    Else: Zelle = Zelle.Offset(-1, 0)
    End If
    Next Zelle
    End Sub
    


  • Bis auf die If-Zeile funktioniert das schon ganz gut,
    allerdings weiß ich nicht wie man "if Zelle.row = 3" oder "if Zelle = Cells(3, *)" schreibt bzw. wüsste nicht wie man die erste gefüllte Zelle findet.
    Bei Zelle = Zelle.Offset(1, 0 ) würde es nämlich leider ein Problem geben, wenn die 4. Zeile ebenfalls leer ist..
    Ich hoffe mein Problem ist verständlich :)
    Nadine
    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    Beispieldatei
    06.11.2017 16:24:53
    Michael
    Hallo!
    Ich hoffe mein Problem ist verständlich
    Ehrlich gesagt, für mich nicht. Kannst Du anhand einer Beispiel-Mappe aufzeigen, wie Deine Ausgangssituation ist, und wie Du Dir das Ziel vorstellst?
    LG
    Michael
    AW: Beispieldatei
    06.11.2017 17:19:13
    Nadine
    Hallo Michael,
    hier ein Bild von meinem Beispiel:
    https://imgur.com/a/jdoY3
    Bei meinem Ausgangspunkt sind die grau markierten Zellen leer.
    Spalte A: wird nicht berücksichtigt
    Spalte B: Hier sieht man das Problem. ist Zeile 3 leer wird ein Text übernommen.
    Spalte C: Ist die Lücke in von Zahlen umgeben, arbeitet das Makro wie gewollt
    Spalte D: So sollte es aussehen! Obwohl sowohl Zeile 3 als auch die darunter leer sind, findet das Makro die nächste Zahl
    LG und danke schon einmal für deine Rückmeldung! :)
    Anzeige
    Vielleicht so
    06.11.2017 23:49:17
    KlausF
    Hallo Nadine,
    probier mal:
    Sub LeereZellekopieren()
    Dim MyRange As Range, Zelle As Range
    Dim findRow As Long
    Set MyRange = ActiveSheet.UsedRange.Offset(2, 1)
    On Error Resume Next
    For Each Zelle In MyRange.SpecialCells(xlCellTypeBlanks)
    If Zelle.Row = 3 Then
    findRow = IIf(IsEmpty(Cells(3, Zelle.Column)), Cells(3, Zelle.Column).End(xlDown).Row, 3)
    Zelle = Cells(findRow, Zelle.Column)
    Else: Zelle = Zelle.Offset(-1, 0)
    End If
    Next Zelle
    On Error GoTo 0
    Set MyRange = Nothing
    End Sub
    
    Gruß
    Klaus
    Anzeige
    AW: Vielleicht so
    07.11.2017 12:19:49
    Nadine
    das sieht ganz fantastisch aus Klaus, vielen vielen Dank!!
    LG
    Danke für die Rückmeldung
    08.11.2017 15:06:19
    KlausF
    Hallo Nadine,
    gerne und Danke für die Rückmeldung.
    Gruß
    Klaus
    ;

    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