Thema Datum  Von Nutzer Rating
Antwort
07.03.2011 14:42:26 daniel001
NotSolved
07.03.2011 14:43:42 daniel001
NotSolved
07.03.2011 14:50:01 Gast42947
NotSolved
07.03.2011 15:13:48 Severus
NotSolved
07.03.2011 15:26:32 daniel001
NotSolved
07.03.2011 16:03:16 daniel001
NotSolved
07.03.2011 16:25:01 Severus
NotSolved
07.03.2011 16:41:01 Gast3944
NotSolved
07.03.2011 16:44:12 Daniel001
NotSolved
07.03.2011 16:55:20 daniel001
NotSolved
07.03.2011 17:58:32 Severus
NotSolved
08.03.2011 10:27:52 Gast27201
NotSolved
08.03.2011 12:22:28 Severus
NotSolved
08.03.2011 12:36:32 Gast14356
NotSolved
08.03.2011 13:32:55 Severus
NotSolved
08.03.2011 14:05:04 Severus
NotSolved
08.03.2011 14:12:11 Severus
NotSolved
08.03.2011 15:28:56 Gast79202
NotSolved
15.03.2011 16:37:22 daniel001
NotSolved
Blau Laufzeitfehler -2147024809 (80070057)
15.03.2011 17:33:36 Severus
Solved
16.03.2011 10:27:45 daniel001
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
15.03.2011 17:33:36		 Views:
1379		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitfehler -2147024809 (80070057)

Es ist mir ehrlich zu mühselig, das ganze nochmal durchzuakkcern. Sorry. Das Problem scheint mir relativ einfach. Ich gehe mal von http://www.vba-forum.de/forum/View.aspx?ziel=8389-Laufzeitfehler_-2147024809_(80070057)_ aus, dann kannst Du nach dem Text der ComboBox1 doch bequem mit einer Select Case oder einer If then Anweisung Deine ComboBox2 und ggf. auch ComboBox3 befüllen:

Private Sub ComboBox2_Enter() 
Dim strVERGLEICH As String
On Error Resume Next
strVERGLEICH = ComboBox1.Text
Select Case strVERGLEICH
     Case 56
        ComboBox2.RowSource = "Tabelle1!B2:C4"
     Case 81
        ComboBox2.RowSource = "Tabelle1!B6:C7"
End Select
    On Error GoTo 0 
End Sub

Private Sub ComboBox3_Enter() 
Dim strVERGLEICH As String
On Error Resume Next
strVERGLEICH = ComboBox2.Text
Select Case strVERGLEICH
     Case "L"
        ComboBox3.RowSource = "Tabelle1!D2:E2"
     Case "M"
        ComboBox3.RowSource = "Tabelle1!D3:E3"
     Case "N"
        ComboBox3.RowSource = "Tabelle1!D4:E4"
End Select
    On Error GoTo 0 
End Sub

So oder so ähnlich. Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.03.2011 14:42:26 daniel001
NotSolved
07.03.2011 14:43:42 daniel001
NotSolved
07.03.2011 14:50:01 Gast42947
NotSolved
07.03.2011 15:13:48 Severus
NotSolved
07.03.2011 15:26:32 daniel001
NotSolved
07.03.2011 16:03:16 daniel001
NotSolved
07.03.2011 16:25:01 Severus
NotSolved
07.03.2011 16:41:01 Gast3944
NotSolved
07.03.2011 16:44:12 Daniel001
NotSolved
07.03.2011 16:55:20 daniel001
NotSolved
07.03.2011 17:58:32 Severus
NotSolved
08.03.2011 10:27:52 Gast27201
NotSolved
08.03.2011 12:22:28 Severus
NotSolved
08.03.2011 12:36:32 Gast14356
NotSolved
08.03.2011 13:32:55 Severus
NotSolved
08.03.2011 14:05:04 Severus
NotSolved
08.03.2011 14:12:11 Severus
NotSolved
08.03.2011 15:28:56 Gast79202
NotSolved
15.03.2011 16:37:22 daniel001
NotSolved
Blau Laufzeitfehler -2147024809 (80070057)
15.03.2011 17:33:36 Severus
Solved
16.03.2011 10:27:45 daniel001
NotSolved