Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 381

Forumthread: Laufzeitfehler 381

Laufzeitfehler 381
11.07.2002 10:57:45
Trek
Einen Wunderschönen,

Habe ein Problem mit einer UserForm.Show Funktion.

Sobald ich die Datei öffne, gibt VBA (XL 2000) folgende Fehlermeldung raus:"Laufzeitfehler 381. Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfeldes ungültig"

Wenn ich dann den Debugger starte zeigt sich folgendes Bild, wobei die Zeile "UserForm.3.Show" gelb hinterlegt ist.

Private Sub Workbook_Open()
If ActiveWindow.Caption = "Eingabe.xls" Then
ActiveWindow.WindowState = xlMinimized
ChDir "C:\Eigene Dateien"
UserForm3.Show
End If
End Sub

Wenn jemand mir helfen kann wäre ich sehr dankbar...

P.S. Ich weiß wie man einen Computer einschaltet, bin aber trotzdem nur ein User.

MfG
Trek

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufzeitfehler 381
11.07.2002 11:06:40
Hans W. Herber
Hallo,

der Code stoppt zwar an dieser Stelle, das Problem ist aber vermutlich im Initialize-Ereignis der UserForm zu suchen.
Hier werden vermutlich einer ListBox (oder ComboBox) Werte aus einem Zellbereich zugewiesen. Möglicherweise erfolgt die Zuweisung mit:
ListBox1.List = Range("A1:A16")
In XL97 wird diese Zuweisung akzeptiert, bei den höheren Versionen wird verlangt:
ListBox1.List = Range("A1:A16").Value

hans

Anzeige
Re: Laufzeitfehler 381
11.07.2002 11:29:22
Trek

Ich ahne böses ... Ich habe wircklich nicht viel Plan, aber bei der Datei handelt es sich um eine Eingabemaske für EK Preisänderungen für ein Kalkulationsprogramm, d.h. dann ja das sehr Viele Werte Zellbereichen zugewiesen werden müssen oder ?

Sorry ich muss mich wie ein Schuljunge anhören...

Anzeige
Re: Laufzeitfehler 381
11.07.2002 11:33:02
Hans W. Herber
... das muss durchaus nicht sein, möglicherweise wird nur eine Combo- oder ListBox gefüllt. Du musst im Initialize-Ereignis nach einer oder mehreren Code-Zeilen suchen, in denen die Befehlssequenz:
...List =
zu finden ist. Berücksichtige aber dabei, dass die Fehlerquelle nur eine Vermutung von mir sein kann.

hans

Anzeige
Re: Laufzeitfehler 381
11.07.2002 11:42:33
trek
Das habe ich mitten raus kopiert kann hier der Hund begraben liegen ?


Sheets("EK Preise").Select
ButtonListBox.List() = Worksheets("EK Preise").Range(Cells(3, 16).Address, Cells(16, 16).Address)
ButtonListBox.ListIndex = -1

sorry wenn ich nerve .. bin echt verzweifelt

Re: Laufzeitfehler 381
11.07.2002 12:03:57
Hans W. Herber
... ändere die Zeile:
ButtonListBox.List() = Worksheets("EK Preise").Range(Cells(3, 16).Address, Cells(16, 16).Address)

in:
ButtonListBox.List = Worksheets("EK Preise").Range(Cells(3, 16), Cells(16, 16)).Value

hans

Anzeige
Re: Laufzeitfehler 381
11.07.2002 12:16:04
Trek
Nein,

tut mir leid ... gleich Fehlermeldung. Immer noch das Anfangsproblem...

MfG Trek

Re: Laufzeitfehler 381
11.07.2002 12:59:44
Trek
Hier sagt er mir das dies ein Syntaxfehler ist ... ?


ButtonListBox.Lis = Worksheets("EK Preise").Range(Cells(3, 16), Cells(16, 16)).Value)
ButtonListBox.ListIndex = -1

Ich glaube das war die letzte Zeile in "Initialize" die in Frage kam

Ein letztes Mal

Anzeige
Re: Laufzeitfehler 381
11.07.2002 13:56:33
Hans W. Herber
... sieh Dir das Teil an und Deine Logik wird Dir sagen, dass es sich ja nunmal um einen Syntaxfehler handeln muss, oder?

hans

;

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
Anzeige
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
Anzeige
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
ListBox Laufzeitfehler 381
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 Leerze...
21.08.2007 23:17:00
Thread-ID: 899144
3 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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Laufzeitfehler 381 in Excel beheben

Schritt-für-Schritt-Anleitung

  1. Öffne die betroffene Excel-Datei und gehe zum VBA-Editor mit ALT + F11.
  2. Finde den entsprechenden Code: Suche nach der Workbook_Open()-Subroutine in ThisWorkbook.
  3. Überprüfe die Zeile: Achte darauf, dass die Zeile UserForm3.Show korrekt ist.
  4. Gehe zur UserForm: Doppelklicke auf die UserForm und suche nach dem Initialize-Ereignis.
  5. Ändere die Zuweisung: Wenn du eine ListBox oder ComboBox verwendest, stelle sicher, dass du die Werte richtig zuweist: 
    ListBox1.List = Range("A1:A16").Value
  6. Teste den Code: Schließe den VBA-Editor und teste die UserForm erneut.

Häufige Fehler und Lösungen

  • Laufzeitfehler 381: Dieser Fehler tritt häufig auf, wenn die Eigenschaften einer ListBox oder ComboBox nicht richtig gesetzt sind.

    • Lösung: Überprüfe die Zuweisung der Werte in der Initialize-Subroutine.

  • Syntaxfehler: Wenn du einen Syntaxfehler erhältst, achte darauf, dass du die richtige Schreibweise verwendest.

    • Lösung: Stelle sicher, dass der Code korrekt ist, z.B. ButtonListBox.List anstelle von ButtonListBox.Lis.

Alternative Methoden

  • Verwendung von Arrays: Anstatt direkt Zellen zuzuweisen, kannst du auch ein Array verwenden, um die Werte zu speichern und dann der ListBox zuzuweisen.

    Dim myArray As Variant
myArray = Application.Transpose(Worksheets("EK Preise").Range("A3:A16").Value)
ButtonListBox.List = myArray

  • Debugging mit MsgBox: Setze MsgBox-Befehle in deinen Code, um sicherzustellen, dass die richtigen Werte zugewiesen werden.

Praktische Beispiele

Hier sind einige Beispiele, wie du die ListBox korrekt füllen kannst:

  1. Direkte Zuweisung:

    ListBox1.List = Range("A1:A16").Value

  2. Mit einer Schleife:

    Dim i As Integer
For i = 1 To 16
   ListBox1.AddItem Cells(i, 1).Value
Next i

  3. Zuweisung aus einer anderen Tabelle:

    ButtonListBox.List = Worksheets("EK Preise").Range("A3:A16").Value

Tipps für Profis

  • Verwende Option Explicit: Dies zwingt dich, alle Variablen zu deklarieren, was hilft, Fehler wie den Laufzeitfehler vba zu vermeiden.
  • Nutze Fehlerbehandlung: Implementiere On Error Resume Next und On Error GoTo 0, um Fehler zu handhaben.
  • Organisiere deinen Code: Halte deinen Code sauber und gut strukturiert, um Fehler leichter zu finden.

FAQ: Häufige Fragen

1. Was ist der Laufzeitfehler 381?
Der Laufzeitfehler 381 tritt auf, wenn bei der Zuweisung von Werten an eine ListBox oder ComboBox ein ungültiger Index verwendet wird.

2. Wie kann ich diesen Fehler in Excel VBA beheben?
Überprüfe die Zuweisung der ListBox-Werte in der Initialize-Subroutine und stelle sicher, dass die angegebenen Zellbereiche korrekt sind und die richtigen Datentypen verwendet werden.

3. Was kann ich tun, wenn der Fehler weiterhin auftritt?
Teste die Zuweisungen schrittweise und nutze Debugging-Tools, um den genauen Punkt zu finden, an dem der Fehler auftritt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige