Office: Erwartet Ausdruck

Mnl_plzl · 29. Mai 2017

Guten Morgen,
ich schreibe gerade ein Adressbuch mit Hilfe von VBA. Auf meiner UserForm befinden sich 2 ComboBoxen. Die erste liest eine Spalte in Excel aus und gibt mir die Teile an (funktioniert auch), die zweite soll nur die Lieferanten anzeigen wo dieses Teil auch liefern. Den code hab ich aber es kommt der Fehler erwartet ausruck. Vill könnt ihr mir ja helfen.
Code:

Private Sub ComboBox2_Change()

End Sub

Private Sub UserForm_Initialize()
Dim tbl As ListObject
Dim cell As Range
Set tbl = ThisWorkbook.Worksheets("Test").ListObjects("Teile")
For Each cell In tbl.ListColumns(1).DataBodyRange
UserForm4.ComboBox1.AddItem (cell.Value)
Next cell
End Sub

Private Sub Filter_Change()
' if the filter changes update the other filter comboboxes
If frmFilter.EnableEvents Then
frmFilter.EnableEvents = False
Call update_filter
frmFilter.EnableEvents = True
End If
End Sub

Sub update_filter()
'Debug.Print "update was fired"
Dim tbl As ListObject
Dim cell As Range

Set tbl = ThisWorkbook.Worksheets("Test").ListObjects("Lieferant")

'delete all old items
Do While UserForm.ComboBox2.ListCount > 0
UserForm.ComboBox2 < spanstyle = "font-family: Arial, Verdana, sans-serif;">.RemoveItem (0)
Loop

For Each cell In tbl.ListColumns(1).DataBodyRange
If cell.Offset(0, 1).Value = UserForm.ComboBox1.Value Then
UserForm.ComboBox2.AddItem (cell.Value)
End If
Next cell

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im rot markierten Satz tritt der Fehler auf.
Grüße
Manu

:)

Hajo_Zi · 30. Mai 2017

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

http://hajo-excel.de/chCounter3/getfile.php?id=105

Der Steuerfuzzi · 30. Mai 2017

Hallo,

das Löschen aller Einträge sollte ohne Schleife ganz einfach so gehen:
Code:

UserForm.ComboBox2.clear
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vorausgesetzt, UserForm ist tatsächlich der richtige Name für das UserForm-Objekt.

Mnl_plzl · 5. Juni 2017

Guten Morgen,
ich werde heute Abend mal eine Beispieldatei hochladen.

Grüße

RPP63 · 9. Februar 2021

Moin!

von Der Steuerfuzzi

Vorausgesetzt, UserForm ist tatsächlich der richtige Name für das UserForm-Objekt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur ergänzend:
Deshalb verwende ich hier immer das Schlüsselwort Me. (oder lasse es gleich ganz weg):
Code:

Me.ComboBox2.Clear
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Der Steuerfuzzi · 9. Februar 2021

Hallo Ralf,

von RPP63neu

Deshalb verwende ich hier immer das Schlüsselwort Me.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Solange der Code auch in der Userform steht würde das funktionieren, aber das wissen wir ja leider nicht, da sein Code nicht in einem offensichtlichen Klassenmodul steht.

RPP63 · 5. Juni 2017

Für mich schon, Michael.

Auf meiner UserForm befinden sich 2 ComboBoxen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dann im Code:
Code:

Private Sub ComboBox2_Change()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber warten wir mal auf die (wohl nicht notwendige) Datei.

Gruß Ralf

Mnl_plzl · 5. Juni 2017

Hey,
also das mit dem löschen hat geklappt *Smilie Danke dir Michael.

Nun habe ich eine anderes Problem. Die zweite ComboBox gibt mir die Lieferanten nicht aus sonder nur die Teile. Tabelle besteht aus zwei spalten einmal Teile und Lieferanten. Vielleicht könnt ihr mir ja helfen. Also es wird die erste Spalte ausgelsen, aber es werden mir die Teile ausgegeben statt den Lieferanten.
Code:

Set tbl = ThisWorkbook.Worksheets("Test").ListObjects("Lieferanten")
UserForm4.ComboBox2.Clear
For Each cell In tbl.ListColumns(1).DataBodyRange
If cell.Offset.Value = UserForm4.ComboBox1.Value Then
UserForm4.ComboBox2.AddItem (cell.Value)
End If
Next cell
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Steuerfuzzi · 5. Juni 2017

Hallo Ralf,

ich habe mich an diesem Teil gestört, der vor dem besagten Code kommt:
Code:

Sub update_filter()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Steuerfuzzi · 5. Juni 2017

Hallo Manu,

ohne Datei kann ich nur raten:
Code:

For Each cell In tbl.ListColumns(2).DataBodyRange
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in dieser Zeile kann dann das Offset weg:
Code:

If cell.Offset.Value = UserForm4.ComboBox1.Value Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Steuerfuzzi · 5. Juni 2017

oder du änderst diese Zeile:
Code:

If cell.Offset(0,1).Value = UserForm4.ComboBox1.Value Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mnl_plzl · 5. Juni 2017

Hallo Michael,

ich habe mich an diesem Teil gestört, der vor dem besagten Code kommt: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub update_filter()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Satz ist schon draußen *biggrin.gif*

Office: Erwartet Ausdruck

Erwartet Ausdruck

Erwartet Ausdruck

Erwartet Ausdruck

Erwartet Ausdruck

Erwartet Ausdruck - Similar Threads - Erwartet Ausdruck

Outlook-Suche fügt beim Verwenden des Menübands nicht den erwarteten lokalisierten Text ein.

Tabelle hat nicht das erwartete Format

Fehlermeldung "End Sub erwartet" trotz Korrektheit

Laufzeitfehler 3274 bei Excel-Export (externe Tabelle hat nicht das erwartete Format)

Benutzerdefinierter Typ anstelle eines Projektes erwartet

Openrecordset: 1 Parameter wurde erwartet ...

Makro Fehlermeldung --> Erwartet Private Sub sssssssss)