ich habe von der CD folgenden Code benutzt:
Sub SuchenUndMarkieren()
Dim rngFind As Range
Dim strBegriff As String
strBegriff = InputBox("Suchbegriff:")
If strBegriff = "" Then Exit Sub
Set rngFind = Columns(1).Find(strBegriff, lookat:=xlWhole, LookIn:=xlFormulas)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
End Sub
Nun möchte aber nicht die ganze Zeile des gefundenen Wertes markiert haben, sondern nur die ersten acht, also A:H. Kann jemand helfen?
Vielen Dank vorraus
Gruss Klaus