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
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
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...
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
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
damit hat es geklappt:
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks) = "???"
Ciao Mike