0
Listbox mit Zeilenubruch, Anklicken führt zum Programm-Absturz
Hallo,
ich habe eine Listbox, die über Rowsource gefüllt wird.
Eine Spalte (.List(.ListIndex, 3) enthält Zeilenumbrüche.
Nun möchte ich die Werte aus der ausgewählten Zeile der Listbox in die Tabelle1 übertragen.
Sobald ich aber die Zeile in der Listbox mit dem Zeilenumbruch anklicke, stürzt das Makro ab.
Könnte mir vielleicht jemand einen Tipp geben, wie ich den u.a. Quellcode ändern muss, damit das Marko nicht mehr abstürzt?
Danke im Voraus
Gruß
ich habe eine Listbox, die über Rowsource gefüllt wird.
Eine Spalte (.List(.ListIndex, 3) enthält Zeilenumbrüche.
Nun möchte ich die Werte aus der ausgewählten Zeile der Listbox in die Tabelle1 übertragen.
Sobald ich aber die Zeile in der Listbox mit dem Zeilenumbruch anklicke, stürzt das Makro ab.
Könnte mir vielleicht jemand einen Tipp geben, wie ich den u.a. Quellcode ändern muss, damit das Marko nicht mehr abstürzt?
Private Sub Listbox1_Click()
Dim wks As Worksheet
Set wks = Workbooks("Test.xlsm").Sheets("Tabelle1")
With UserForm1.Listbox1
wks.Range("A1").Value = .List(.ListIndex, 0) 'Menge
wks.Range("B1").Value = .List(.ListIndex, 1) 'Mengeneinheit
wks.Range("D1").Value = .List(.ListIndex, 2) 'Artikelnummer
wks.Range("E1").Value = .List(.ListIndex, 3) 'Bezeichnung (Text mit Zeilenumbruch / beim Anklicken stürzt das Programm ab)
End With
End SubDanke im Voraus
Gruß
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 448201
Url: https://administrator.de/contentid/448201
Ausgedruckt am: 22.11.2024 um 02:11 Uhr
