Combobox füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Combobox füllen
von: Erich
Geschrieben am: 19.05.2002 - 18:03:47

hallo Profis,
ich möchte eine combobox(2) nach kriterien ausfüllen die in der combobox(1) auswewählt wurden.
zur beschreibung in der combobox(1) sind Buchstaben (A, B, C, D, usw, wenn ich z.b. den buchstaben A auswähle dann sollte in die Combobox (2) die daten aus der tabelle1 spalte a eingelesen werden, beim buchstaben B die spalte B usw.

ist das möglich?
wenn ja wäre ich für jede hilfe dankbar.


mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 18:08:10

Hallo Erich
woliegt das Problem

das Combobox1.value nicht leer ist hast Du bestimmt schon geprüft

dann nur nach folgendem System
Combobox2.AddItem Range(Combobox1.value & "1")


mal ohne Testung

Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: erich.hecht
Geschrieben am: 19.05.2002 - 18:44:08

Danke hajo,

hatte einen hänger!!!

mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Erich
Geschrieben am: 19.05.2002 - 19:59:12

hallo hajo,
hab einen größeren hänger, denn ich komme nicht weiter.
nein code ist

Private Sub UserForm_Initialize()
   Dim intRow As Integer
   intRow = 1
   Do Until IsEmpty(Cells(intRow, 7))
      ComboBox1.AddItem Cells(intRow, 7)
      intRow = intRow + 1
   Loop
  ComboBox1.ListIndex = 0
  ComboBox2.AddItem Range(ComboBox1.Value & "1")
End Sub

er liest zwar jetzt den 1 namen aus spalte a ein aber sonst nichts, auch bei b usw liest er nur den 1 namen aus der spalte a ein

was mache ich falsch?
vieleicht kanst du mich nochmals einen tip geben!

mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 20:08:33

Hallo Erich

ich hätte es wohl so gelöst


Private Sub UserForm_Initialize()
   Dim intRow As Integer
'   Da es max 256 sein kann , kann der Vergleich entfallen
'   If [G65536] = "" Then
        intRow = [G65536].End(xlUp).Row
'    Else
'        intRow = 65536
'    End If
    For intRow = 1 To intRow
'   Do Until IsEmpty(Cells(intRow, 7))
      ComboBox1.AddItem Cells(intRow, 7)
    Next intRow
'      intRow = intRow + 1
'   Loop
  ComboBox1.ListIndex = 0
  ComboBox2.AddItem Range(ComboBox1.Value & "1")
End Sub

Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: erich.hecht@wiesenfelden.de
Geschrieben am: 19.05.2002 - 20:28:23

hallo hajo,

ich komme überhaupt nicht mehr klar.
1. wie muß der code in der combobox2 aussehen
2 wie muß der code in der combobox1 aussehen

kanst du mir weiterhelfen stehe voll auf der leitung?

mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 20:33:23

Hallo Erich

da müßest Du die Aufgabe ein wenig umfangreicher Beschreiben.

Was soll passieren, wenn die Userform gestartet wird??
Was wenn in Combobox1 was ausgewählt wird????
Was wenn in Combobox2 was ausgewählt wird????

Ich habe mich eigentlich an Deinen Code gehalten der Spalte 7 G ausliest. Was steht in Spalte G??? Es dürfte nach meiner Auffasung kein G drin stehen.

Ich vermute mal Du kennst Dich mit VBA aus???

Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: Erich
Geschrieben am: 19.05.2002 - 20:48:56

hallo hajo,

1 wenn die userform gestartet wird sollte die combobox gefült werden dau den daten der tabelle1 spalte a z.b. a´, b, c, d es konnen aber auch namen sein.
2 wenn ich dann in der combobox1 einen buchstaben auswähle z.b. a dann sollte in die combobox2 gefült wrerden mit den daten aus der tabelle2 spalte A
wenn ich den duchstaben b wähle dann die daten aus der tabelle3 spalte A
usw

kanst du mir weiterhelfen ?
VBA anfänger
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 20:53:27

Hallo Erich

hatte Dein Code mit dieser Aufgabenstellung nichts zu tun, es wurden doch die Daten aus Spalte G in die Combox1 geladen. Was ist mit meiner Frage nach G in Spalte G.

Bei VBA muß die Aufgabe schon klar definiert werden.

Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: erich.hecht@wiesenfelden.de
Geschrieben am: 19.05.2002 - 21:07:55

hallo hajo

mit deiner Farage nach den G in der spalte G ist mir aufgefallen das ich das ich wenn meine datei größer wird auch die spalte g barauche, deshalb habe ich meine arbeitsmappe dann anders aufgebaut, tut mir leid wenn es ein wenig durcheinader war, anfänger.

mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 21:42:25

Hallo Erich

als Ansatz


Option Explicit

Private Sub UserForm_Initialize()
    Dim IntRow As Integer
    For IntRow = 1 To 256
      ComboBox1.AddItem IntRow
    Next IntRow
    ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
    ComboBox2.Clear
    Dim Letzte As Long
    Dim I
    If ComboBox1.Value = Empty Then Exit Sub
    If Cells(65536, CInt(ComboBox1.Value)) = "" Then
        Letzte = Cells(65536, CInt(ComboBox1.Value)).End(xlUp).Row
    Else
        Letzte = 65536
    End If
    For I = 1 To Letzte
      ComboBox2.AddItem Cells(I, CInt(ComboBox1.Value))
    Next I
End Sub

Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: erich.hecht@wiesenfelden.de
Geschrieben am: 19.05.2002 - 22:00:21

Hallo hajo,
danke das du mir weiter hilfst,

jetzt habe ich den code in meine arbeitsmappe copiert,
in der combobox1 sind zahlen von 1 bis 256 aber nur wenn ich 1 auswähle wird in der combobox2 etwas angezeigt.
in der combobox2 werden dan nur die daten angezeigt des aktiven tabellenbalts.
kanst du mir weiterhelfen?

mfg
erich


nach oben   nach unten

Re: Combobox füllen
von: Hajo
Geschrieben am: 19.05.2002 - 22:04:49

Hallo Erich

beim Start werden in Combox2 die Werte aus Spalte A angezeigt, wird in Combobox1 ein anderer Wert gewählt wird in Combox2 die emtsprechenden Werte angezeigt, immer angenomen in der Spalte stehem welche. So hatte ich es jedenfalls verstanden


Gruß Hajo


nach oben   nach unten

Re: Combobox füllen
von: erich
Geschrieben am: 19.05.2002 - 22:12:36

Hallo hajo,

habs kapiert, und es funktionirt auch.

danke für deine gedult und hilfe.

mfg
erich


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Combobox füllen"