✔ Visual Basic Editor

[Blümchen]

Hallo,

hmm hab mal eine Frage. Wenn ich in Excel den Visual Basic Editor starte dann kann ich da ja wie ein kleines Programm schreiben.

Wollte mal fragen ob das geht wenn ich nun in Excel eine Tabelle habe mit einer Spalte in der Daten sind dass das andere Programm dann die Daten in einem DopDown Feld dastellt?

Wisst Ihr was ich meine?

Gruß Blümchen

 

[Julian Maicher]

Nein, ich weiß nicht was du meinst.
Was sind denn andere Programme? Outlook? Mineswheeper?
Willst du ein Programm mit z.B. Java schreiben bzw. du hast eines und willst dort Daten aus einer Excel-Tabelle darstellen?
Oder willst du mit VBA in der selben Excel-Datei ein Formular mit Dropdownlist erstellen und dann dort die Daten darstellen?

 

[Blümchen]

Hallo,

ich habe eine Excel Tabelle in der sind Spalten. In der Splate A stehen lauter Namen. Jetzt möchte ich mit dem Visual Basic Editor es so machen, dass er mir die ganzen Namen in einer Spalte in einem DopDown Feld dastellt.

Verstehst du nun was ich meine?

Gruß Blümchen

 

[Julian Maicher]

Ja, jetzt war es einigermaßen verständlich.

Private Sub UserForm_Initialize()
    Dim i As Integer
    i = 1
    
    With Tabelle1
        Do While .Cells(i, 1) <> ""
            ComboBox1.AddItem (.Cells(i, 1))
            i = i + 1
        Loop
    End With
End Sub

 

[Blümchen]

Hallo,

danke für deine Hilfe. Jetzt habe ich noch eine Frage. Geht das denn dass wenn ich dann einen Namen in der Liste auswähle, dass ich dann in einem anderen Fenster Infos zu dem Eintrag bekomme also die ich dann Definiert habe? Die stehen dann in Spalte B - F

Gruß Blümchen

 

[Orakel]

Hi Blümchen,

was meinst Du mit "einem anderen Fenser"?

Eine andere Anwendung z. B. Word

Gruß
ein sich wie immer fragendes Orakel

 

[Blümchen]

Hallo,

nee ich meinte ich abe doch eine Maske wo ich das DropDown Feld habe. Wenn ich da nun einen Namen auswähle, dann sll so eine neue Maske aufgehen wo ich dann nähe Informationen zu dem Namen bekomme.

Gruß Blümchen

 

[Orakel]

Hi Blümchen,

Private Sub ComboBox1_Change()
    TextBox1.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 2).Value
    TextBox2.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 3).Value
    TextBox3.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 4).Value
    ......
End Sub

In etwa so

Gruß
Das Orakel

 

[Blümchen]

Hallo,

ok ich habe das nun mal so gemacht:

Private Sub UserForm_Initialize()
    Dim i As Integer
    i = 1
    
    With Tabelle1
        Do While .Cells(i, 1) <> ""
            ComboBox1.AddItem (.Cells(i, 1))
            i = i + 1
        Loop
    End With
End Sub

Private Sub ComboBox1_Change()
    TextBox1.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 2).Value
    TextBox2.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 3).Value
    TextBox3.Text = ActiveSheet.Cells(ComboBox1.ListIndex, 4).Value
End Sub

Hmm wenn ich das nun ablaufen lasse, dann füllt er zwar das DropDown Feld wenn ich dann aber einen Namen anklicke, dann kommt folgendes:

Laufzeitfehler: 424
Objekt erforderlich

Hmm an was liegt das denn?

Gruß Blümchen

 

[Blümchen]

Hallo,

Sorry wenn ich nochmals frage aber hat niemand eine IDE was ich da falsch gemacht habe?

Gruß Blümchen