Leere Zellen finden und füllen



Excel-Version: 97
nach unten

Betrifft: Leere Zellen finden und füllen
von: Peter L
Geschrieben am: 02.05.2002 - 13:29:34

Hallo, Leute !

Ich habe eine Datei, in der in den Spalten A und B leere Zellen sind.
Diese möchte ich mit dem Wert aus den darüberliegenden Zellen füllen.

Das Makro sollte also in etwa so aussehen :

Wenn sowohl "Zelle A2 = leer" als auch "Zelle B2 = leer" als auch "Zelle C2 = nicht leer" ist,
dann kopiere A1 und B1 nach A2 und B2.
Weiter bei A3 bis zum Schluss

Kann mir jemand sagen, wie ich das als Makro eingeben kann ?

Vielen Dank, P.

nach oben   nach unten

Re: Leere Zellen finden und füllen
von: WernerB.
Geschrieben am: 02.05.2002 - 13:45:56

Hallo Peter,

erfüllt dieses Makro Deine Wünsche:


Option Explicit
Sub LeereZellenFuellen()
Dim As Long, laR As Long
    laR = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 2 To laR
      If IsEmpty(Cells(i, 1).Value) And IsEmpty(Cells(i, 2).Value) _
        And Not IsEmpty(Cells(i, 3).Value) Then
        Cells(i, 1).Value = Cells(i - 1, 1).Value
        Cells(i, 2).Value = Cells(i - 1, 2).Value
      End If
    Next i
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Leere Zellen finden und füllen
von: Peter L
Geschrieben am: 02.05.2002 - 14:07:14

Hallo, Werner !

Besten Dank für die superschnelle Antwort, hat funktioniert !!

Schöne Grüsse aus Wien,

Peter L.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Leere Zellen finden und füllen"