ich würde gerne per Makro in einer Zeile nach einem bestimmten Zellinhalt suchen, die entsprechende Spalte und eine bestimmte Anzahl Spalten rechts davon markieren.
Wie stelle ich das am besten an?
Vielen Dank,
STEFAN
Sub test()
Dim suchbegriff As String, zelle
Dim z As Long
suchbegriff = "test"
' Unter Range den Suchbereich eingeben (hier "A1:J65536").
Set zelle = Range(Cells(1, 1), Cells(65536, 10)).Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
z = zelle.Column
Range(Columns(z), Columns(z + 2)).Select
End If
End Sub