ich möchte gerne in Spalte D eines Tabellenblattes den Inhalt einer Listboxspalte suchen. Die Listboxspalte ist die Spalte 2.
Wenn der Inhalt gefunden wird, dann soll in dem Tabellenblatt in Spalte F ein Wert eingetragen werden.
Hier ist mein bisheriger Code:
Dim c As Range
' lbl_POS_Eti_Bestand_Neu in Tabellenblatt schreiben ***
With Worksheets("Bestand")
Set c = .Range("D:D").Find(Me.ListBox2.List(LI_listbox2, 1), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
c.Offset(0, 2) = EtiBestandNeu_liste(LI_listbox2)
End If
End With
' Ende ***
Sheets("Start").Select
Es kommt die Fehlermeldung:
Compilerfehler im ausgeblendeten Modul: Auftrag
Dieser Fehler tritt normalerweise nur auf, wenn Code mit der Version, Plattform oder Architektur dieser Anwendung nicht kompatibel ist.
Leider habe ich keine Lösung.
Ich bitte um Mithilfe.
Vielen Dank