Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListBox Laufzeitfehler 381

Forumthread: ListBox Laufzeitfehler 381

ListBox Laufzeitfehler 381
21.08.2007 23:17:00
Mike
Hallo liebes Forum.
Ich habe mir aus dem Archiv eine ListBox zusammen gestellt.
Leider komme ich jetzt nicht mehr weiter, weil ich nicht weis, wo der Fehler liegt.
Ich möchte mir in einer ListBox 2 Spalten anzeigen lassen. Ich habe es soweit geschafft, mir nur die Daten (ohne Leerzellen in der 1 Spalte) anzeigen zu lassen, die auch vorhanden sind. Dann kann ich die Daten über einen Button sortieren. Funktioniert auch prima. Aber ich bekomme leider die zweite Spalte nicht hin. Dort wird mir immer nur ein Wert angezeigt.
Vielleicht kann mir ja jemand helfen. Fürs bessere Verständnis hier meine Test Datei
https://www.herber.de/bbs/user/45253.xls
Danke im voraus für die Hilfe.
Gruß, Mike

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox Laufzeitfehler 381
22.08.2007 03:19:24
fcs
Hallo Mike,
du muss deine Prozedur zum Initialisieren des Userforms wie folgt anpassen, damit auch die 2. Spalte mit eingelesen wird.
Leider funktioniert dann die Sortierfunktion nicht mehr korrekt.
Es gibt hier im Forum eine Super-Lösung zum sortieren von mehrspaltigen Listboxen. leider ist mir der Link dorthin abhanden gekommen Suche mal unter den Stichworten Listbox +sortieren im Archiv. Dort solltest du fündig werden.
Gruß
Franz

Private Sub UserForm_initialize()                'in UserForm1 > ShowModal = False setzen
Dim i As Integer
Dim sh As Worksheet
Set sh = Sheets("Übersicht")
'ListBox1.ColumnCount = 2                            '2 = Anzahl Spalten
'ListBox2.ColumnCount = 2                            '2 = Anzahl Spalten
'ListBox3.ColumnCount = 2                            '2 = Anzahl Spalten
For i = 4 To 103
If sh.Cells(i, 5)  "" And sh.Cells(i, 4)  "" And Month(Cells(i, 5)) = Month(Date) - 1  _
Then
ListBox1.AddItem sh.Cells(i, 5)         '5 = Spalte E
ListBox1.List(ListBox1.ListCount - 1, 1) = sh.Cells(i, 4)  '4 = Spalte D
End If
If sh.Cells(i, 5)  "" And sh.Cells(i, 4)  "" And Month(Cells(i, 5)) = Month(Date) Then
ListBox2.AddItem sh.Cells(i, 5)         '5 = Spalte E
ListBox2.List(ListBox2.ListCount - 1, 1) = sh.Cells(i, 4)  '4 = Spalte D
End If
If sh.Cells(i, 5)  "" And sh.Cells(i, 4)  "" And Month(Cells(i, 5)) = Month(Date) + 1  _
Then
ListBox3.AddItem sh.Cells(i, 5)         '5 = Spalte E
ListBox3.List(ListBox3.ListCount - 1, 1) = sh.Cells(i, 4)  '4 = Spalte D
End If
Next i
End Sub


Anzeige
AW: ListBox Laufzeitfehler 381
22.08.2007 09:09:00
Mike
Hallo Franz.
Das war genau das was ich brauchte.
Den "ListBox1.List(ListBox1.ListCount - 1, 1)" hatte ich zwar schon mal gehabt, funktionierte bei mir nur nicht.
Das mit dem sortieren ist mir klar, dass ich das noch anpassen muß. Es liegt noch einiges an Arbeit vor mir.
Also... vielen Dank für Deine Hilfe.
Gruß, Mike
Anzeige
;

Forumthreads zu verwandten Themen

Listbox Laufzeitfehler 381
Jörg

Hallo Forum,
ohne große Umschweife:
ich erhalte folgende Meldung: Laufzeitfehler 381, Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftsfeldes ungültig. Und beim Debug ... Eigenschaft List konnte nicht abgerufen werden.
Umstände: ich wähle aus einer Tabelle in unte...
07.01.2011 09:16:14
Thread-ID: 1194088
3 Beiträge
Laufzeitfehler 381 ComboBox.List
Daniel

Guten Abend in die Runde,
aus Hans Online-FAQ habe ich folgenden Code leicht abgewandelt im Einsatz:
'Spalte 2 ohne Leerzellen und Doppel in ComboBox'
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer, iRowL...
18.04.2012 03:42:56
Thread-ID: 1259829
4 Beiträge
Anzeige
Listbox.colums bringt Laufzeitfehler 381
VG

Hallo ans Forum,
ich möchte die Daten einer externen Tabelle in meiner Userform in eine Listbox schreiben. Dazu gibt es 2 Alternativen:
1. Alle Daten sollen übernommen werden
Dies realisiere ich über eine CheckBox. Siehe If...
2. Nur die Daten, die in Spalte 1 einer vorher einge...
16.10.2012 12:39:29
Thread-ID: 1282246
8 Beiträge
Laufzeitfehler 381 bei Löschen Wert in Combobox
George

Hallo zusammen
Bin wieder mal auf ein Problem gestossen, das meine vba-Kenntnisse überfordert.
Mittels nachfolgendem Makro weise ich der ComboBox16 den ersten Wert der ComboBox17 (hat 2 _
Spalten) zu. Soweit so gut. Private Sub ComboBox17_Change() Me.ComboBox17.SetFocus a1 = Me.Co...
28.10.2013 09:20:07
Thread-ID: 1336100
8 Beiträge
Laufzeitfehler 381
Dirk

Guten Tag ins Forum,
ich habe folgendes Problem :
Ein UF ist mit 2 Multipages bestückt. Beide enthalten jeweils eine Listbox, die beim Start des UF mit Daten befüllt werdenBeim Wechseln der Listboxen bekomme ich den Laufzeitfehler 381 angezeigt. Ich häng mal die Codes zum Befüllen der L...
01.11.2014 12:47:54
Thread-ID: 1389843
3 Beiträge
Laufzeitfehler 381
Tobias

Hallo,Bei Auswahl aus einer ComboBox erhalte ich einen LFZ '381'. Meldung: Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftsfelds ungültig. Die betroffene Zeile sieht so aus:Cells(ActiveCell.Row, 1) = ComboBox2.List(ComboBox2.ListIndex, 1)Was kann ich dagegen tun? Weiß jema...
07.05.2003 17:34:06
Thread-ID: 253416
3 Beiträge
Listenfeld füllen - Laufzeitfehler 381
Robs

Hallo Leute,
nach meinem ersten Posting (gegen 09:00 Uhr) habe ich sehr gute Hilfe bekommen, allerdings ergibt sich nun folgendes Problem:
ich möchte meine ListBox1 mit einem array (myarray) füllen, bekomme aber die Fehlermeldung "Laufzeitfehler 381"
Weiß jemand Abhilfe?
With...
15.11.2004 10:17:43
Thread-ID: 517512
3 Beiträge
Laufzeitfehler 381
Julia

Hallo,
also ich habe da eine listbox. die benutzte ich um aktuelle werte anzuzeigen udn wieder zu löschen...an sich funktioniert alles...aber lieder nur an sich.
also wenn im schleifendurchlauf n ein wert hinzugefügt wird(dieser wird dann im schleifendurchlauf n+1 wieder gelöscht) und d...
13.11.2006 13:17:30
Thread-ID: 819139
9 Beiträge
860to864: Laufzeitfehler 381
Wolfgang
Hallo,
per rechtem Mausklick wird ein UF in bestimmten Tabellenblättern geöffnet; Klicke ich in Spalte A bis C, funktioniert das auch wunderbar, klicke ich in Spalte D und folgende, erscheint Fehlermeldung Laufzeitfehler 381, Could not get the List property. Invalid property array index.- Wie m...
11.04.2007 20:18:07
Thread-ID: 861756
4 Beiträge
Daten in Listbox einlesen - Laufzeitfehler 381
André

Hallo zusammen,
ich habe schon mit Interesse einige Beiträge in diesem Forum gelesen, aber irgendwie stehe ich auf dem Schlauch und komme mit meinem Problem nicht weiter.
Ich möchte in eine Listbox mit Namen "Auftragspositionen" den Wert von "Kundenauftrag" einlesen und zwar an Position...
06.02.2008 09:48:54
Thread-ID: 948945
3 Beiträge
Anzeige
Laufzeitfehler 381
Hans

Hallo
Könntet Ihr mir bitte meine Datei anschauen.
https://www.herber.de/bbs/user/51200.xls
Ich bekomme einen Laufzeitfehler wenn ich keinen Eintrag in der Listbox markiere und auf Eintragen klicke.
Vielen Dank
Gruß Hans
01.04.2008 21:20:00
Thread-ID: 965175
5 Beiträge
Laufzeitfehler 381
A.

Hallo Zusammen,
da Google mir nicht helfen konnte. Ich habe eine ListBox, bei der ich Einträge durchstreichen möchte. jedenfalls habe ich eine Zeile:
.Cells(Listbox_Aktivität.List(Listbox_Aktivität.ListIndex, 2), 2).Font.Strikethrough = True
hier sagt er immer: Eigenschaft List k...
24.08.2020 09:16:41
Thread-ID: 1778462
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige