Gruss,
Danny
Option Explicit
Public Sub x()
Dim c As Range
For Each c In [a1:c10]
If c = 2 Then
c.SpecialCells(xlCellTypeConstants, 23).Select
End If
Next
End Sub
Sub x()
Dim c As Range
Dim rng, r As String
For Each c In [a1:c10]
If c = 2 Then
rng = c.AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)
If r = "" Then r = r & rng Else r = r & "," & rng
End If
Next
Range(r).Select
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen