Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Laufzeitfehler 381
01.04.2008 21:20:00
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
probier mal On Error
01.04.2008 21:30:00
Matthias
Hallo

Private Sub CommandButton1_Click()
On Error GoTo Ende
With Me.ListBox1
Cells(16, 3) = .Value
Cells(17, 3) = .List(.ListIndex, 1)
Cells(18, 3) = .List(.ListIndex, 3)
End With
Ende:
Unload Me
End Sub


Gruß Matthias

AW: Laufzeitfehler 381
01.04.2008 21:30:48
Renee
Hi Hans,
Als erste Befehlszeile:

Private Sub CommandButton1_Click()
If ListBox1.ListIndex 


GreetZ Renée

AW: Laufzeitfehler 381
01.04.2008 21:31:17
Gerd
Hallo Hans,
meinst Du so ?

Private Sub CommandButton1_Click()
With Me.ListBox1
If .ListIndex > -1 Then
Cells(16, 3) = .Value
Cells(17, 3) = .List(.ListIndex, 1)
Cells(18, 3) = .List(.ListIndex, 3)
End If
End With
Unload Me
End Sub


Gruß Gerd

Anzeige
AW: Laufzeitfehler 381
01.04.2008 21:43:32
Hans
Dank an Euch,
Alle 3 Lösungen funktionieren.
Gruss Hans

13 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige