brauche noch mal Hilfe
Bernd
hier noch mal meine vorherige Frage
ich habe eine Artikelliste mit 500 verschiedenen Artikeln.
die Artikelnummern sind in der Spalte A1:A500. In den weiteren Spalten B,C,D usw.sind jeweils EK, VK, Gewinn. usw. Nun möchte ich wenn ich eine Arikelnummer über eine inputbox suche,das dann nur die gesuchte Zeile angezeigt wird .
Habe auch freundlicherweise von Lydia den nachfolgenden VBACode bekommen.
Doch der Fehler war das ich die Artikelnummer in der Spalte A5:A505 habe, und das die angezeigte Zeile erst ab Zeile A5 beginnen darf .
kann mir noch mal jemand dabei helfen ?
Gruß Bernd
Sub suche()
Dim such As String
Dim n As Long
such = InputBox("Artikelnummer eingeben!")
n = 0
Do
n = n + 1
Loop Until IsEmpty(Cells(n, 1))
n = n - 1
For i = 1 To n
If Cells(i, 1) = such Then
Rows("1:" & i - 1).Select
Selection.EntireRow.Hidden = True
Rows(i + 1 & ":65536").Select
Selection.EntireRow.Hidden = True
Rows(i).Select
Selection.EntireRow.Hidden = False
Cells(i, 1).Select
End If
Next i
End Sub
Anzeige