Kleine kurze Frage. Wie markiere ich alle Felder die einen Inhalt haben?
Ich hab unter der Range Funktion gesucht aber leider nichts gefunden.
Vielen Dank schaon mal
Gruß
Atti
Sub AuswahlZellen(Optional was As String = "FK")
Dim rngB As Range, rngC As Range, rngF As Range
Set rngB = Cells.SpecialCells(xlCellTypeBlanks)
Set rngC = Cells.SpecialCells(xlCellTypeConstants)
Set rngF = Cells.SpecialCells(xlCellTypeFormulas)
Select Case UCase(was)
Case "LK" 'leere Zellen und Zellen mit Konstanten
Union(rngB, rngC).Select
Case "LF" 'leere Zellen und Zellen mit Formeln
Union(rngB, rngF).Select
Case "FK" 'Zellen mit Formeln und Konstanten
Union(rngC, rngF).Select
Case Else
Union(rngB, rngC, rngF).Select
End Select
End Sub