Forum des VBA-Tutorials

Formular per "Seriennummer" automatisch ausfüllen. (VBA)

JJW, Montag, 08. Mai 2017, 12:03 (vor 21 Tagen)

Hallo,

Ich arbeite im Moment an einem Formular,
hierbei sollen anhand einer "Seriennummer" - welche ich bereits in einer Excel-Tabelle festgelegt habe, Werte, ebenfalls in der Tabelle angegeben, (Beispiel: Name, Anschrift, Postleitzahl) in das Formular eingefügt werden sobald die Seriennummer eingegeben wird.

Idee: Tippe in das Formular 12345 ein.
Sucht in der Exceltabelle die Zahl 12345 in Spalte A.
Sucht in der Exceltabelle in der Zeile(12345(A)) nach (12345(B)).
Gibt Ergebnis für 12345(B) zurück.

Formular per "Seriennummer" automatisch ausfüllen.

Martin Asal, Montag, 08. Mai 2017, 13:30 (vor 21 Tagen) @ JJW

Hallo,

zunächst mal solltest du dir überlegen, ob Excel wirklich die richtige Applikation für eine Datenbank ist...

Di Lösung in Excel kann ungefähr wie folgt aussehen, wenn du in "Textbox1" einen Wert aus Spalte A eintippst, und dann in "Textbox2" der entsprechende Wert aus Spalte B angezeigt werden soll:

Private Sub TextBox1_Change()
Dim zelle As Range
 
Set zelle = ActiveSheet.Range("a4").Cells(1)
 
Do Until IsEmpty(zelle.Value)
    If Me.TextBox1.Value = zelle.Value Then
        Me.TextBox2.Value = zelle.Offset(0, 1).Value
        Exit Do
    End If
    Set zelle = zelle.Offset(1)
Loop
 
Set zelle = Nothing
 
End Sub

Martin

Formular per "Seriennummer" automatisch ausfüllen.

JJW, Montag, 08. Mai 2017, 14:59 (vor 21 Tagen) @ JJW

Habe eine Lösung per SVERWEIS gefunden.

RSS-Feed dieser Diskussion
powered by my little forum