hallo
ich habe ein sheet mit Name "Artikel"
Nun möchte ich in einem anderen Sheet per VBA einen Artikel suchen und die Daten per Message Box ausgeben
Folgenden Code habe ich bereits, dieser funktioniert aber nur im sheet selbst
Sub Artikel_finden()
n = ActiveCell.SpecialCells(xlLastCell).Row
suchbegriff = InputBox("Bitte Suchbegriff eingeben:")
m = ""
For i = 1 To n
If LCase(Range("B" & i)) Like "*" & LCase(suchbegriff) & "*" Then 'hier wird in Spalte B gesucht
m = m & Chr(13) & Range("A" & i) & vbTab & Range("B" & i) & vbTab & Range("F" & i) 'Spalte A, B und F werden in MSG Box ausgegeben
End If
Next
If m = "" Then
MsgBox "Kein Eintrag zu """ & suchbegriff & """ gefunden."
Else
MsgBox Mid(m, 2, 10000)
End If
End Sub
Danke für eure Hilfe
|