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:
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:
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
|