Office: vba comboboxen auswählen

Hallo an alle.

Ich versuche schon länger erstellte comboboxen auszuwählen und je nach bedarf anzuzeigen.
Auf grund der hohen Anzahl an Boxen wurde der die TAbelle rasch voll oder wenn ich sie verteilt habe unüberssichtlich.
Nächster Schritt war mehrere Tabellenblätter mit der dazughörigen Box zu erstellen.
Bei 10 Verschiedenen TAbellenblätter mit dazughörigen Comboboxen habe ich mich auch nicht wohl gefühlt.
Beim nächsten Versuch habe ich ein leeres Tabellenblatt mit Komboboxen erstellt.
Beim Hauttabellenblatt habe ich eine userform gefüllt mit Comand Button erstellt
Die dazugehörigen Makros kopieren die Komboboxen auf der Hauttabelle.
schwierigkeiten gibt es weil die Makros die Komboboxen nicht genau plazieren.
Auch wenn ich top und left bei den Eigenwschaften eingestellt habe.
Auch das Löschen der nicht benötigten boxen bereitet schwierigkeiten.
Das Makro findet die Box nicht weil die Box nicht genau plaziert wurde.
Auch wenn eine Bestimmte box definiere ZB."combobox21" funktioniert es nicht weil das Makro sich auf eine bestimmte Box versteift.

Ich verwende Office 2010
Meine Frage lautet gibt es eine bessere Möglichkeit combobxen auszuwählen azuzeigen und wider zu löschen, wenn eine andere gewält wurde.

 

Moinsens!

Vielleicht hilft Dir mein Beispiel im Anhang etwas weiter und bietet Dir einen Aufsetzpunkt.
- Ein Button erzeugt eine Matrix von CheckBoxen
- Ein weiterer Button blendet die CheckBoxen ein und aus (nach Zufall)
- Der letzte Button löscht die CheckBoxen wieder vom Blatt

Das soll nur zeigen, wie Du das Handling mit den CheckBoxen vielleicht in den Griff kriegen könntest.

Gruß, Michael

 

Hallo an alle.

habe mich für folgende Lösung entschieden.
Unten ersichtlich
Funktioniert supper.

Momentan hänge ich an mehrspaltigen comboboxen .
eingelesen habe ich die Spalten mit List fill Range.
ausgelesen momentan mit Der Linked cell.
der VBA code mit List und Cells eigenschaft fehlt leider.
momentan verwende ich Viele Sverweise.
möchte aber davon loskommen.
Vieleicht kann mir jemand einen vorschlag machen.
die comboobxen sind auf einem Tabelleblatt.





Private Sub ComboBox215_Change()
If ComboBox215.Value = "Liste Kartoffel" Then
ComboBox24.Visible = True
Else
ComboBox24.Visible = False
End If
If ComboBox215.Value = "Liste Salat" Then
ComboBox23.Visible = True
Else
ComboBox23.Visible = False
End If
If ComboBox215.Value = "Liste Kraut" Then
ComboBox22.Visible = True
Else
ComboBox22.Visible = False
End If
If ComboBox215.Value = "Liste Rohnen" Then
ComboBox21.Visible = True
Else
ComboBox21.Visible = False
End If
End Sub

 

Hallo an alle.

Ich bin wirklich ein Neuling.
Erfolge kann ich schon erziehlen.
Hänge aber wieder mal.
combobox mehrspaltig funktioniert noch nicht richtig
vielleicht kann mir jemand helfen.
Danke im Voraus

Private Sub cboKartoffel_Change()
Range("CF8") = cboKartoffel.Column(0)
Range("CG8") = cboKartoffel.Column(1)
Range("CH8") = cboKartoffel.Column(2)
Range("CI8") = cboKartoffel.Column(3)
Range("CJ8") = cboKartoffel.Column(4)
Range("CK8") = cboKartoffel.Column(5)
Range("CL8") = cboKartoffel.Column(6)
Range("CM8") = cboKartoffel.Column(7)
Range("CO8") = cboKartoffel.Column(8)
Range("CP8") = cboKartoffel.Column(9)
Range("CQ8") = cboKartoffel.Column(10)
Range("CS8") = cboKartoffel.Column(11)
Range("CU8") = cboKartoffel.Column(12)

Dim I As Integer
For I = 12 To 50
cboKartoffel.ColumnCount = 12
cboKartoffel.AddItem Sheets("Kartoffel").Cells(I, 1) In dieser Zeile gibt es einen Fehler Laufzeitfehler 70 zugriff verweigert
cboKartoffel.List(I - 12, 12) = Sheets(Kartoffel).Cells(I, 12)
Next I

End Sub

 

Moinsens!

Das wird schwierig mit den Informationen. Da fehlt noch einiges an Futter "drumherum".

Es fängt schon damit an, daß die Variable "Kartoffel" nicht deklariert ist. Ok, kann man sich zusammenreien... (Fehlen wohl nur die ", oder?)

Bei 12 Spalten rennt der Index im oberen Block aber bei 12 an die Wand (0 bis 11 ist Grenze).

Die ganzen Einstellungen der ComboBox (ListFillRange und so) wären schon hilfreich.

Außerdem ist mir irgendwie so gar nicht klar, was Du eigentlich überhaupt mit der Routine bewerkstelligen möchtest. Wieso willst Du die ComboBox mit Werten füllen, wenn sich der ausgewählte Wert geändert hat? Eigentlich sollte die Liste da bereits lange gefüllt sein, weil man ja sonst nichts auswählen kann. Die Eigenschaft ListFillRange kennst Du, oder?

Bist Du Dir sicher, daß Du die mehrpaltige Funktionalität der ComboBox auch so nutzt, wie sie gedacht ist?

Gruß, Michael

 

Hallo an alle

die Comboboxen funktionieren jetzt.
gefüllt habe ich sie mit der ListfillRange
ausgelesen mit Range.
wenn jemand die Eigenschaften wissen will kann ich ich sie schicken.

mfg Hubert






Private Sub cboKraut_Change()
Range("CF14") = cboKraut.Column(0)
Range("e2") = cboKraut.Column(1)
Range("CG34") = cboKraut.Column(1)
Range("CH34") = cboKraut.Column(2)
Range("CI34") = cboKraut.Column(3)
Range("CJ34") = cboKraut.Column(4)
Range("CK34") = cboKraut.Column(5)
Range("CL34") = cboKraut.Column(6)
Range("CM34") = cboKraut.Column(7)
Range("CO34") = cboKraut.Column(8)
Range("CP34") = cboKraut.Column(9)
Range("CQ34") = cboKraut.Column(10)
Range("CS34") = cboKraut.Column(11)
Range("CU34") = cboKraut.Column(12)
End Sub