Herbers Excel-Forum - das Archiv

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???

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

Excel-Beispiele zum Thema "letzte Zelle finden, Leerzellen im Bereich füllen"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen