Wie kann ich mit einem Makro in einem Tabellenbaltt sämtliche Zellen markieren, die einen Werte enthalten.
Besten Dank für eure Hilfe.
Thomy
Sub allesel()
ActiveSheet.UsedRange.Select
End Sub
gruß Chris
Wie kann ich mit einem Makro in einem Tabellenbaltt sämtliche Zellen markieren, die einen Werte enthalten.
Alle Zellen mit Zahlen, egal ob Konstanten oder aus Formel:
Sub ttt()
Dim rng As Range
Set rng = Union(Cells.SpecialCells(xlCellTypeConstants, xlNumbers), _
Cells.SpecialCells(xlCellTypeFormulas, xlNumbers))
rng.Select
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub Besetzte_Zellen_markieren()
Set Con = Cells.SpecialCells(xlCellTypeConstants, 23)
Set Frm = Cells.SpecialCells(xlCellTypeFormulas, 23)
Union(Con, Frm).Select
End Sub
Wenn Du nur konstante Werte meinst reicht die Codezeile
Cells.SpecialCells(xlCellTypeConstants, 23).Select
Gruß
Martin