Mittels Inputbox Daten auf einem Sheet selektieren

Hallo zusammen,
ich möchte durch Vorgabe einer Kundennummer in eine Inputbox alle Datensätze für diese Kundennummer selektieren. Leider funktioniert das ganze nicht so wie es soll.
Die KdNr steht in Spalte C, das Makro bleibt in der Zeile:
Selection.AutoFilter Field:=3, Criterial:=KdNr
hängen.
Ich füge mal den Code bei, hoffentlich hat jemand einen Tip
Dim KdNr
KdAuswahl:
On errorlevel GoTo Fehlermeldung
KdNr = InputBox("", "Bitte die Kundennummer eingeben!", "")
If KdNr <> "" Then
Windows("Kopfdaten.XLS").Activate
Sheets("Eingang").Select
Columns("A:F").Select
'
Selection.AutoFilter Field:=3, Criterial:=KdNr

End If
Exit Sub
'
Fehlermeldung:
MsgBox ("Kundennummer bitte prüfen, ggf. korrekt eingeben!")
GoTo KdAuswahl
End Sub
Schon mal besten Dank
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() ' erstellt von Hajo.Ziplies@web.de 12.04.03 Dim Found As Range Dim LoLetzte As Long Dim sSearch As String sSearch = InputBox("Suchbegriff:", , "test") If sSearch = "" Then Exit Sub LoLetzte = 65536 If Range("C65536") = "" Then LoLetzte = Range("C65536").End(xlUp).Row Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , xlNext) If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird Sub verlassen Range(Found.Address).Select End Sub Gruß Hajo Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE. Bitte kein Mail, Probleme sollen im Forum gelöst werden. Microsoft MVP für Excel Das Forum lebt auch von den Rückmeldungen.

Hallo Ralf
es ist mir ein wenig zu aufwendig, mich in Deinen Code einzuarbeiten. Aus meinem Archiv. Mit folgendem Code werden alle Datensätze in einer Userform in einer Listbox dargestellt.


Private Sub UserForm_Initialize()
'   erstellt von Hajo.Ziplies@web.de
Dim Found As Range
Dim FirstAddress As String
Dim Search As String
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = 65536
If Range("B65536") = "" Then LoLetzte = Range("B65536").End(xlUp).Row
Search = InputBox("Welcher Begriff wird gesucht ?")
If Search = "" Then Exit Sub
Me.ListBox1.ColumnCount = 3
With ActiveSheet.Range("B1:B" & LoLetzte)
'   von Peter Haserodt
Set Found = .Find(Search, ActiveSheet.Range("B" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub  'falls nicht gefunden wird sub verlassen
FirstAddress = Found.Address
Me.ListBox1.AddItem Found.Value                   ' Spalte B
Me.ListBox1.List(LoI, 1) = Found.Offset(0, -1) ' Spalte A
Me.ListBox1.List(LoI, 2) = Found.Offset(0, 1)  ' Spalte C
LoI = LoI + 1
Do
Set Found = .FindNext(Found)
If Found.Address = FirstAddress Then Exit Sub
Me.ListBox1.AddItem Found.Value                   ' Spalte B
Me.ListBox1.List(LoI, 1) = Found.Offset(0, -1) ' Spalte A
Me.ListBox1.List(LoI, 2) = Found.Offset(0, 1)  ' Spalte C
If Found.Row = LoLetzte Then Exit Sub
LoI = LoI + 1
Loop While Not Found Is Nothing
End With
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Hans hat Extra den Button Level eingebaut. Benutzt ihn auch, damit auch entsprechend geantwortet werden kann.

Beliebteste Forumthreads (12 Monate)

Mittels Inputbox Daten auf einem Sheet selektieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mittels Inputbox Daten auf einem Sheet selektieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

62 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread