Ich habe folgendes vor.
Ich habe Tabellenblätter von A-Z in einer Tabelle Namens "Client"
Nun habe ich folgenden Code zu automatischen Eingeben per Textbox
Private Sub CommandButton29_Click()
Dim z As Double
z = 1
Do Until IsEmpty(Sheets("A").Cells(z, 1).Value)
z = z + 1
Loop
Sheets("A").Cells(z, 1).Value = TextBox2.Value
Sheets("A").Cells(z, 2).Value = TextBox3.Value
Sheets("A").Cells(z, 3).Value = TextBox4.Value
Sheets("A").Cells(z, 4).Value = TextBox5.Value
Sheets("A").Cells(z, 5).Value = TextBox6.Value
Sheets("A").Cells(z, 6).Value = TextBox7.Value
Sheets("A").Cells(z, 7).Value = TextBox8.Value
Sheets("A").Cells(z, 8).Value = TextBox9.Value
End Sub
Ich möchte bitte einen Tip haben wie die Textbox automatisch den richtigen Buchstaben wählt z.B. Meyer ins Blatt "M"
So wie der Code jetzt ist müsste ich für jeden Buchstaben 8 Textboxes machen.
Das ist umständlich und nicht klar.
Ich bin dankbar für JEDEN Hinweis
Gruss Lucien