Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

UserForm - Datensatz auswählen, suchen und...

Betrifft: UserForm - Datensatz auswählen, suchen und... von: MichiM
Geschrieben am: 15.08.2004 14:49:29

Hallo Leute,

in einer UserForm soll der nutzer über eine ComboBox einen Datensatz auswählen.
Wenn nun z.B. die Nummer ausgewählt wurde, soll diese Nummer in "2" Tabellenblätern gesucht und die jeweilgen Werte in die entsprechenden TextBoxen der UserForm eingelesen werden.

Da das ganze ein größeres Projekt ist, habe ich mal eine Beispieldatei erstellt und hochgeladen - vielleicht weiss ja einer Rat und kann mir weiterhelfen.

https://www.herber.de/bbs/user/9662.xls

Gruss
MichiM

  


Betrifft: AW: UserForm - Datensatz auswählen, suchen und... von: ChrisL
Geschrieben am: 15.08.2004 15:35:17

Hi Michi

Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
TextBox1 = ComboBox1
TextBox2 = ComboBox2
TextBox3 = ComboBox1
TextBox4 = ComboBox2
TextBox5 = Worksheets("Daten2").Cells(ComboBox1.ListIndex + 2, 2)
End Sub


Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
TextBox1 = ComboBox1
TextBox2 = ComboBox2
TextBox3 = ComboBox1
TextBox4 = ComboBox2
TextBox5 = Worksheets("Daten2").Cells(ComboBox1.ListIndex + 2, 2)
End Sub


Private Sub UserForm_Initialize()
Dim LetzteZeile As Long

With Worksheets("Daten1")
    LetzteZeile = .Range("A65536").End(xlUp).Row

    ComboBox1.List = Sheets("Daten1").Range("A2:A" & LetzteZeile).Value
    ComboBox2.List = Sheets("Daten1").Range("C2:C" & LetzteZeile).Value
End With
End Sub



Gruss
Chris


  


Betrifft: AW: UserForm - Datensatz auswählen, suchen und... von: MichiM
Geschrieben am: 15.08.2004 15:47:22

Hi Chris,
hätte nicht gedacht, dass es so "einfach" gehen würde :-)

Bräuchte allerdings noch eine kleine Erklärung:

Was bedeutet in
TextBox5 = Worksheets("Daten2").Cells(ComboBox1.ListIndex + 2, 2)
die Angabe (ComboBox1.ListIndex + 2, 2)?
Oder besser gesagt: Woher kommt die "+ 2, 2"?

Gruss
MichiM


  


Betrifft: AW: UserForm - Datensatz auswählen, suchen und... von: ChrisL
Geschrieben am: 15.08.2004 16:39:05

Hi Michi

Listindex 0 = 1. Eintrag, index 1 = 2. Eintrag usw.

1. Eintrag ist somit Index 0 plus 2 = in Zeile 2

Die andere 2 ist für die Spalte (Spalte B).

Cells(Zeile, Spalte)

Gruss
Chris


  


Betrifft: Danke von: MichiM
Geschrieben am: 15.08.2004 17:45:29

VBA ist eine Kunst für sich...
Ob ich das irgendwann einmal richtig kapiere, bezweifel ich mittlerweile :-)

Immerhin weiss ich jetzt, wie der Wert gesucht(gefunden) wird - ein kleiner Schritt...

Danke nochmal und Gruss
MichiM


 

Beiträge aus den Excel-Beispielen zum Thema "UserForm - Datensatz auswählen, suchen und..."