Forum des VBA-Tutorials

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

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


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum