Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim Schleife As Integer
Dim Last As Integer, First As Integer
Dim eh As String
Dim Suchwert As String
 
MsgBox Target.AddressLocal
 
If InStr(1, Target.AddressLocal, ":") = 0 Then
    MsgBox "Es müssen mehrere Zellen ausgewählt werden"
    Exit Sub
End If
 
'----------------------------------------------------------------
eh = Target.AddressLocal
eh = Mid(eh, InStr(1, eh, ":") + 2)
Last = Mid(eh, InStr(1, eh, "$") + 1)
 
eh = Target.AddressLocal
eh = Mid(eh, InStr(InStr(1, eh, "$") + 1, eh, "$") + 1)
First = Left(eh, InStr(1, eh, ":") - 1)
'----------------------------------------------------------------
 
Suchwert = InputBox("Welchen Wert wollen Sie suchen?")
 
For ee = 1 To (Last - First)
Set curCell = Worksheets(1).Cells(ee, 1)    'Setzt die aktuelle Zelle ___.Cells( 
' Zeile, Spalte)
    If curCell.Value = Suchwert Then        'Wenn die aktuelle Zelle den selben 
    ' Wert hat wie der Suchwert dann MsgBox
        MsgBox "Gefunden in Zeile" & ee
        Exit Sub
    End If
Next ee
 
End Sub