Problem mit der Suchfunktion

hallo Leute,
leider muss ich es wieder erneut versuchen, da bisher keine Lösung gefunden wurde. Ich bitte euch, wenn Möglich, mir Lösungen vorzuschlagen bzw. zu lösen. Dieser Script wurde teilweise von fl618 geschrieben.
https://www.herber.de/bbs/user/23467.xls
1) Das Problem an der mitgelieferten Datei (unter Einträge bearbeiten) liegt darin, dass sich die Farb- und Mengenwerte bei den gleichen Modellen nicht ändern. Es ändert sich nur, wenn ein neuer Artikel anfängt.
2) Das andere Problem ist die Suchfunktion. Werden unter Einträge bearbeiten (aber nur die gesuchten Ergebnisse) Datensätze mit Button Eintrag ändern ausgeführt, dann erfolgt die Änderung nur in Zeile 21 ...
Die Lösung mit j = e_lbxArtikel.ListIndex + 21 hat einfach nicht funktioniert. Bitte helft mir. Es muss doch einen Weg geben.
Danke im voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Roland,
wenn die Auswahl nicht über die Suche eingeschränkt ist, mußt Du mit ListIndex+21 arbeiten. Bei einer Einschränkung mußt Du die Suche entsprechend des Wertes von ListIndex mit der Findnext-Methode wiederholen.
z.B. drittes Element nach Einschränkung durch eine Suche ausgewählt:
ListIndex = 2
Ersten Datensatz mit find suchen und zweimal Findnext aufrufen.
Die Listbox-Change-Prozedur müßte dann wie folgt aussehen:

Private Sub e_lbxArtikel_Change()
Dim j As Integer, k As Integer, l As Integer, iSize As Integer
Dim cell As Range, ctrl As Control
Set Eingabeblatt = Worksheets(Eingabe)
If e_tbxSucher.Text = "" Then
j = e_lbxArtikel.ListIndex + 21
Else
Dim t As Range, x As Integer
Set t = Eingabeblatt.Range("A:A").Find(What:=e_lbxArtikel.Text, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)
If t Is Nothing Then Exit Sub
If e_lbxArtikel.ListIndex > 0 Then
For x = 1 To e_lbxArtikel.ListIndex
Set t = Eingabeblatt.Range("A:A").FindNext(t)
Next x
End If
j = t.Row
Set t = Nothing
End If

Die gleiche Logik mußt Du dann noch in allen anderen Prozeduren einarbeiten, die mit den Datensätzen arbeiten.
Gruß
Gerd

Sub Abfrage() rc = MsgBox("Menge anderer Position hinzuaddieren und alte Pos. löschen (Nein bricht Änderung ab)", vbYesNo) If rc = vbYes Then MsgBox ("Menge wird zu anderer Pos. addiert.") 'Änderung durchführen und alte Pos. löschen Else MsgBox ("Änderung wird verworfen") 'Änderung abbrechen End If End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit der Suchfunktion

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread