von ActiveCell aus einen Bereich markieren
ActiveCell
ich stelle in der u.a. Suchanfrage den Cursor nach einem gefunden Suchwert immer in Spalte A.
Nun möchte ich gerne ausgehend von der Cursorposition einen Bereich markieren, der immer gleich Groß ist. z. B. in Zeile 8 :
Range("A8:L24"). select
Wer kann mir einmal dabei helfen?
Gruß Reinhardt
Sub such()
Dim suche As String
Dim z As Integer
Sheets("Archiv").Select
suche = InputBox("Welches Datum wollen Sie suchen?", , "01.01.2010")
z = 0 'den Zähler für die Treffer zu Beginn auf Null stellen
[N8].Activate 'hier ändern falls eine andere Spalte durchsucht werden _
soll
If suche = "" Then Exit
Sub 'wenn keine Eingabe in InpuBox erfolgte wird abgebrochen
Do Until ActiveCell = "" 'bis zur ersten leeren Zelle suchen
ActiveCell.Offset(1, 0).Activate 'eine Zeile nach unten gehen
If ActiveCell = suche Then 'wenn die Zelle den gesuchten Wert enthält:
ActiveCell.Offset(-2, -13).Select 'Zeile? Spalte A
Exit Sub
z = z + 1 'dann den Zähler um eins erhöhen
End If
Loop
End Sub