Tabelle1 füllen per UserForm...
27.09.2007 09:09:00
Heiner
freundlicherweise wurde mir dieser Code von einem Forumsmitglied zur Verfügung gestellt.
Nun möchte ich jedoch auch Werte in die Tabelle1 per UserForm1 schreiben, ohne das aktuelle Tabellenblatt (z.B. Tabelle2) verlassen zu müssen.
Wie muss der Code dann aussehen?
Wer hat einen Tip, oder kann den Code dahingehend umschreiben?
Danke für eure Hilfe!
Grüsse, Heiner
Private Sub CommandButton1_Click()
Dim intZ As Integer
intZ = Range("C65536").End(xlUp).Row + 1
Cells(intZ, 3) = TextBox2 ' Anrede
Cells(intZ, 4) = TextBox3 ' Bezeichnung
Cells(intZ, 5) = TextBox4 ' Name
Cells(intZ, 6) = TextBox5 ' Vorname
Cells(intZ, 7) = TextBox6 ' Strasse, Postfach, Nr
Cells(intZ, 8) = TextBox7 ' Plz
Cells(intZ, 9) = TextBox8 ' Ort
Cells(intZ, 10) = TextBox9 ' Länderkürzel
Cells(intZ, 11) = TextBox10 ' Telefon
End Sub