letzte Zelle finden, Leerzellen im Bereich füllen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: letzte Zelle finden, Leerzellen im Bereich füllen
von: MikeS
Geschrieben am: 24.05.2002 - 09:38:13

Hallo Leute,

ich möchte mit nachfolgendem Code die letzte nichtleere Zelle in meiner Tabelle finden und in diesem Bereich alle Leerzellen mit "???" füllen.

Leider klappt es nicht!!!

Was stimmt an meinem Code nicht???


Sub LeerzellenFüllen()
    Dim iZeile As Long
    Dim iSpalte As Integer
    Application.ScreenUpdating = False
    For iZeile = 1 To Cells(Rows.Count).End(xlUp).Row
      For iSpalte = 1 To Cells(Columns.Count).End(xlToLeft).Column
        If Not IsEmpty(Cells(iZeile, iSpalte)) Then
        Exit For
        Else
        Cells(iZeile, iSpalte).Value = "???"
        End If
      Next iSpalte
    Next iZeile
    Application.ScreenUpdating = True
End Sub

Vielen Dank für Eure Hilfe

Ciao MikeS


nach oben   nach unten

Re: letzte Zelle finden, Leerzellen im Bereich füllen
von: MRR
Geschrieben am: 24.05.2002 - 09:49:40

Ich verstehe die Frage wohl nicht so ganz...
Du willst in einem bestimmten Bereich alle (!?) leeren Zellen durch ??? ersetzen? Dann wäre folgende Anweisung sicher einfacher:
Selection.CurrentRegion.Replace What:="", Replacement:="???", LookAt:=xlWhole
Oder was habe ich übersehen und falsch verstanden?
Matthias
nach oben   nach unten

Re: letzte Zelle finden, Leerzellen im Bereich füllen
von: haribo
Geschrieben am: 24.05.2002 - 10:01:53

Also ich versteh dich jetzt so, du hast eine Tabelle mit einem Bereich (sprich z.B. Daten in x spalten und y Zeilen) und du willst in diesem Bereich alle Leerzellen mit "???" auffüllen.
Also ich hab mal dein Code genommen und

Cells(Rows.Count).End(xlUp).Row durch
Worksheets(1).UsedRange.Rows.Count ersetzt.

Desweiteren hab ich dein Exit For rausgenommen.
Ich hoffe ich hab dich nicht falsch verstanden und konnte dir weiterhelfen...


nach oben   nach unten

Re: letzte Zelle finden, Leerzellen im Bereich füllen
von: MikeS
Geschrieben am: 24.05.2002 - 10:03:55

Guten morgen Matthias,

danke für die schnelle Nachricht.

Ich möchte die letzte nichtleere Zelle in einem Bereich finden und dann in diesem Bereich alle Leerzellen mit "???" füllen.

Beispiel:
letzte gefüllte Zeile = b7, letzte gefüllte Spalte c3, Eckdaten des Bereichs A1:C7.

In diesem Bereich sollen dann alle Leerzellen mit "???" gefüllt werden.

Wie müßte ich meinen Code abändern?

Vielen Dank und einen streßfreien Freitag Du Superschwerarbeiter.

Ciao Mike

nach oben   nach unten

Re: letzte Zelle finden, Leerzellen im Bereich füllen
von: MRR
Geschrieben am: 24.05.2002 - 10:09:37

Hi Mike,
na dann: Probier' doch mal meinen Einzeiler aus...
und melde Dich dann wieder - bin auch unter Modilfunk zu erreichen...
Matthias
nach oben   nach unten

Einfachere und schnellere Lösung
von: Martin Beck
Geschrieben am: 24.05.2002 - 10:27:25

Hallo Mike,

das geht ganz einfach ohne Schleifen mit folgendem Einzeiler:

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks) = "???"

für den UsedRange oder mit

Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks) = "???"

wenn Dein Bereich in A1 beginnt.

Gruß
Martin Beck

nach oben   nach unten

Re: Einfachere und schnellere Lösung
von: MikeS
Geschrieben am: 24.05.2002 - 11:39:12

Danke allen Antwortern,

damit hat es geklappt:

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks) = "???"

Ciao Mike

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "letzte Zelle finden, Leerzellen im Bereich füllen"