Forum des Access-Tutorials

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

Martin Asal, Montag, 08. Mai 2017, 13:30 (vor 16 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

RSS Einträge  RSS Threads   Kontakt
powered by my little forum