Userformeintrag in 4 tabellen mit sortie
16.02.2023 09:00:55
Volkanovski
ich möchte anhand einer Userform die Eingabe in der Textbox1 beim betätigen eines Buttons in 4 Tabellen übertragen. Dabei soll nach der nächsten freien Zelle gesucht werden und anhand der Eingabe die Tabelle sortiert werden. Ich habe keine Ahnung wie das mit dem sortieren geht, aber beim Eintrag habe ich mich schonmal probiert. Der eintrag ist ein String in der Form "K-XXF". Hierzu der Code:
Private Sub ToggleButton1_Click()
Dim freiezelle1 As Long
Dim freiezelle2 As Long
Dim freiezelle3 As Long
Dim freiezelle4 As Long
freiezelle1 = ws1.Cells(Rows.Count, 61).End(xlDown).Offset(1).Row
freiezelle2 = ws1.Cells(Rows.Count, 65).End(xlDown).Offset(1).Row
freiezelle3 = ws1.Cells(Rows.Count, 73).End(xlDown).Offset(1).Row
freiezelle4 = ws1.Cells(Rows.Count, 79).End(xlDown).Offset(1).Row
freiezelle1 = TextBox1.Text
freiezelle2 = TextBox1.Text
freiezelle3 = TextBox1.Text
freiezelle4 = TextBox1.TextMfg