UserForm TextBox
06.05.2008 14:38:52
rolf
hier habe ich ein makro,mit dem gebe ich aus meiner userform mit textboxen text in eine tabelle ein.es wird immer die nächste freie zeile angesprochen
Was muss ich ändern,damit ich den text auch in der userform bearbeiten kann und dann in die selben Zellen zurückgeben kann.
mfg rolf
Private Sub CommandButton2_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Pferdebestand" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Pferdebestand").Range("B65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Pferdebestand"
'With Sheets("Pferdebestand")
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 1) = Format(TextBox1.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 2) = Format(TextBox32.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 3) = Format(TextBox3.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 4) = Format(TextBox4.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 5) = CDate(TextBox45.Text)
'Sheets("Pferdebestand").Cells(erste_freie_Zeile, 5) = ComboBox1.Text
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 6) = Format(TextBox6.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 7) = Format(TextBox2.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 8) = Format(TextBox33.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 9) = Format(TextBox7.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 10) = Format(TextBox19.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 11) = Format(TextBox18.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 15) = Format(TextBox16.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 13) = Format(TextBox13.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 14) = Format(TextBox14.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 18) = Format(TextBox15.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 19) = Format(TextBox46.Text)
Sheets("Pferdebestand").Cells(erste_freie_Zeile, 12) = Format(TextBox11.Text)
'End With
Unload Me
End Sub