Thema Datum  Von Nutzer Rating
Antwort
Rot Combobox Dropdown Problem
 11.10.2019 08:26:18 Georg
NotSolved
11.10.2019 08:55:31 Mase
NotSolved
11.10.2019 09:01:15 Georg
NotSolved
11.10.2019 09:40:06 Mase
NotSolved
11.10.2019 10:11:31 Georg
NotSolved
11.10.2019 11:00:46 Mase
NotSolved
11.10.2019 11:37:40 Gast78236
NotSolved
11.10.2019 12:18:13 Mase
*****
Solved
11.10.2019 12:36:40 Georg
NotSolved
11.10.2019 13:12:22 Georg
NotSolved

Ansicht des Beitrags:
Von:
Georg		 Datum:
11.10.2019 08:26:18		 Views:
1241		 Rating:
     
Antwort:
  Ja
Thema:
Combobox Dropdown Problem

Hallo zusammen,

 

ich komme bei meinem Problem einfach nicht weiter und benötige eure Unterstützung.

Ich habe 2 listobject Tabellen auf 2 sheets. Nun möchte ich abhängig von einem Optionsbutton die TabelleA oder TabelleB in der Combobox darstellen.

Die Abfrage und Aufruf der Function sieht wie folgt aus:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox7_DropButtonClick()
 
 
If Sammelschienenadapter_EATON Then
 
    Call Schienenadapter_dropdown2(ComboBox7, TextBox2, Sammelschienenadapter_EATON, "EATON")
 
Else
 
    Call Schienenadapter_dropdown2(ComboBox7, TextBox2, Sammelschienenadapter_Rittal, "Rittal")
 
End If
 
 
 
End Sub

 

 

Die Function selber sieht wie folgt aus:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Public Function Schienenadapter_dropdown2(comboboxnr As MSForms.ComboBox, textboxnr As MSForms.TextBox, optionsbuttonnr As MSForms.OptionButton, hersteller As String) As Variant
'### Fenster Direktstarter
Dim oTBL As ListObject
Dim oTBL2 As ListObject
Dim Navision As Double
Dim Artikelnummer As Double
Dim Typen As String
Dim Bemessungsspannung As Integer
Dim Nennstrom As Variant
Dim Querschnitt As Variant
Dim Tragschienen As Integer
Dim Adapterbreite As Integer
Dim Direktantrieb As Boolean
Dim Stern_Dreieck_Antrieb As Boolean
Dim Wendeschaltung As Boolean
 
 
 
 
 
 
'If optionsbuttonnr Then
 
        'Hier wird einmal die Auswahlliste für die Sammelschienenadapter gefüllt.
        'Mit der funktion ".Columnwidths" werden die Spaltenbreiten festgelegt
        Set oTBL = Sheets(hersteller).ListObjects(hersteller & "_Schienenadapter")
         
         
            With oTBL
         
                comboboxnr.ColumnCount = 13
               comboboxnr.ColumnWidths = "0;0;0;70;0;50;0;50;50;50;50;50;0"
        '        .ColumnWidths = "50"
         
                comboboxnr.List = oTBL.DataBodyRange.Value
        '        Debug.Print ComboBox7.List
        '        ComboBox7.ListIndex = 3
            End With
     
     
     
        Navision = Auslegung_Motorabgänge.ComboBox7.Column(1)
        Artikelnummer = Auslegung_Motorabgänge.ComboBox7.Column(2)
        Typen = Auslegung_Motorabgänge.ComboBox7.Column(3)
        Bemessungsspannung = Auslegung_Motorabgänge.ComboBox7.Column(4)
        Nennstrom = Auslegung_Motorabgänge.ComboBox7.Column(5)
        Querschnitt = Auslegung_Motorabgänge.ComboBox7.Column(6)
        Tragschienen = Auslegung_Motorabgänge.ComboBox7.Column(7)
        Adapterbreite = Auslegung_Motorabgänge.ComboBox7.Column(8)
        Direktantrieb = Auslegung_Motorabgänge.ComboBox7.Column(9)
        Stern_Dreieck_Antrieb = Auslegung_Motorabgänge.ComboBox7.Column(10)
        Wendeschaltung = Auslegung_Motorabgänge.ComboBox7.Column(11)
     
     
     
     
    textboxnr.Value = ""
     
    'Ausgabe der ermittelten Werte Weilenweise in die Textbox
    textboxnr.text = "----------------------------------------------------" & _
    vbCrLf & "Sammelschienenadapter: " & _
    vbCrLf & "Hersteller Artikelnummer: " & Artikelnummer & _
    vbCrLf & "Navision Artikelnummer: " & "0" & Navision & _
    vbCrLf & "Type: " & Typen & _
    vbCrLf & "Adapterbreite: " & Adapterbreite & " mm" & _
    vbCrLf & "Anzahl der Tragschienen: " & Tragschienen & _
    vbCrLf & "Max. Anschlussquerschnitt: " & Querschnitt & " mm²" & _
    vbCrLf & "Max. Strombelastbarkeit: " & Nennstrom & " A" & _
    vbCrLf & "----------------------------------------------------"
End Function

 

 

Jetzt habe ich das Problem, dass sobald Optionsbutton "Sammelschienenadapter_Rittal" aktiviert wird ich die Fehlermeldung:

"Laufzeitfehler 381
Eigenschaft Column konte nicht abgerufen werden. Index des Eigenschaftfelds ungültig"

erhalte.

Ich bin für jeden Tipp dankbar.

 

LG

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Combobox Dropdown Problem
 11.10.2019 08:26:18 Georg
NotSolved
11.10.2019 08:55:31 Mase
NotSolved
11.10.2019 09:01:15 Georg
NotSolved
11.10.2019 09:40:06 Mase
NotSolved
11.10.2019 10:11:31 Georg
NotSolved
11.10.2019 11:00:46 Mase
NotSolved
11.10.2019 11:37:40 Gast78236
NotSolved
11.10.2019 12:18:13 Mase
*****
Solved
11.10.2019 12:36:40 Georg
NotSolved
11.10.2019 13:12:22 Georg
NotSolved