Also das ist das Userform das ich benutze um die Daten in die Tabelle Einzugeben

Jetzt möchte ich aber die Daten nochmal aufrufen über die Rechnungsnummer um sie zu bearbeiten


Option Explicit

Private Sub Button1_Take_Click()
' Einträge der Schaltfläche übernehmen

Dim last1 As Integer


last1 = Worksheets("Kohler").Range("B50").End(xlUp).Offset(1, 0).Row


    Worksheets("Kohler").Cells(last1, 2).Value = Kohler.Text_Lieferdatum.Value
    Worksheets("Kohler").Cells(last1, 3).Value = Kohler.Text_Bemerkung.Value
    Worksheets("Kohler").Cells(last1, 4).Value = Kohler.Text_Rechnungsnummer.Value
    Worksheets("Kohler").Cells(last1, 5).Value = CDbl(Kohler.Text_Rechnungsbetrag.Value)
    Worksheets("Kohler").Cells(last1, 6).Value = CDbl(Kohler.Text_Provision.Value)
    Worksheets("Kohler").Cells(last1, 7).Value = CDbl(Kohler.Text_Warenwert.Value)
    Worksheets("Kohler").Cells(last1, 8).Value = CDbl(Kohler.Text_Pfandbezahlt.Value)
    Worksheets("Kohler").Cells(last1, 9).Value = CDbl(Kohler.Text_Pfandbetrag.Value)
    Worksheets("Kohler").Cells(last1, 10).Value = CDbl(Kohler.Text_Pfandgutschrift.Value)
    Worksheets("Kohler").Cells(last1, 12).Value = Kohler.Text_Cola.Value
    Worksheets("Kohler").Cells(last1, 13).Value = Kohler.Text_Colazero.Value
    Worksheets("Kohler").Cells(last1, 14).Value = Kohler.Text_Fanta.Value
    Worksheets("Kohler").Cells(last1, 15).Value = Kohler.Text_Sprite.Value
    Worksheets("Kohler").Cells(last1, 16).Value = Kohler.Text_GMQ.Value
    Worksheets("Kohler").Cells(last1, 17).Value = Kohler.Text_Lift.Value
    Worksheets("Kohler").Cells(last1, 19).Value = Kohler.Text_Urpils.Value
    Worksheets("Kohler").Cells(last1, 20).Value = Kohler.Text_Bitburger.Value
    Worksheets("Kohler").Cells(last1, 21).Value = Kohler.Text_Naturradler.Value
    Worksheets("Kohler").Cells(last1, 22).Value = Kohler.Text_Mixery.Value
    Worksheets("Kohler").Cells(last1, 23).Value = Kohler.Text_Weizenbier.Value
    Worksheets("Kohler").Cells(last1, 24).Value = Kohler.Text_Weizenbier00.Value
    Worksheets("Kohler").Cells(last1, 25).Value = Kohler.Text_Weizenzitrone00.Value
    Worksheets("Kohler").Cells(last1, 26).Value = Kohler.Text_Gründels.Value
    Worksheets("Kohler").Cells(last1, 27).Value = Kohler.Text_Fresh.Value
    Worksheets("Kohler").Cells(last1, 28).Value = Kohler.Text_Malzbier.Value
    Worksheets("Kohler").Cells(last1, 29).Value = Kohler.Text_Bitradler00.Value
    Worksheets("Kohler").Cells(last1, 30).Value = Kohler.Text_Bit00.Value
    Worksheets("Kohler").Cells(last1, 32).Value = Kohler.Text_Cola1.Value
    Worksheets("Kohler").Cells(last1, 33).Value = Kohler.Text_Sprite1.Value
    Worksheets("Kohler").Cells(last1, 34).Value = Kohler.Text_Rilchinger.Value
    Worksheets("Kohler").Cells(last1, 35).Value = Kohler.Text_Urpils30.Value
    Worksheets("Kohler").Cells(last1, 36).Value = Kohler.Text_Urpils50.Value
    Worksheets("Kohler").Cells(last1, 37).Value = Kohler.Text_Bit30.Value
    Worksheets("Kohler").Cells(last1, 38).Value = Kohler.Text_Bit50.Value
   
    
   
    Unload Me
End Sub