AW: Suchen über Spalten
17.05.2006 10:19:37
WernerB.
Hallo Ralf,
wie gefällt Dir das?
Sub Ralf()
Dim SuBe As Range, _
s As String, _
laR As Long, _
i As Byte
s = InputBox(vbCr & vbCr & vbCr & "Artikelnummer eingeben:", _
"Artikelnummer suchen")
If StrPtr(s) = 0 Then
MsgBox "Sie haben ""Abbrechen"" gedrückt !" & vbCr & vbCr & _
" Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
ElseIf s = "" Then
MsgBox "Sie haben keine Eingabe gemacht !" & vbCr & vbCr & _
" Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
laR = Cells(Rows.Count, 3).End(xlUp).Row
For i = 4 To 34
If Cells(Rows.Count, i).End(xlUp).Row > laR Then
laR = Cells(Rows.Count, i).End(xlUp).Row
End If
Next i
Set SuBe = Range("C1:AH" & laR).Find(What:=s, _
After:=Range("AH" & laR), LookAt:=xlWhole)
If Not SuBe Is Nothing Then
MsgBox "Artikelnummer '" & s & "' in Zelle '" & _
SuBe.Address(False, False) & "' gefunden !", 64, _
"Artikelnummer gefunden !"
Set SuBe = Nothing
Else
MsgBox "Artikelnummer '" & s & "' nicht gefunden !", 48, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !