Textbox auslesen und in Tabelle einfügen
08.03.2004 10:01:27
tuete
1. Frage:
ich möchte den Inhalt verschiedener Textboxen in eine Tabelle übernehmen. Dies wird durch einen button ausgeführt. Bis jetzt habe ich es wie folgt gemacht:
Private Sub Ok_CommandButton_Click()
Worksheets("Tabelle1").Cells(1, 1).Value = Ia_TextBox.Text
Worksheets("Tabelle1").Cells(1, 2).Value = Ak_TextBox.Text
Worksheets("Tabelle1").Cells(1, 3).Value = Ma_TextBox.Text
Worksheets("Tabelle1").Cells(1, 4).Value = Beschreibung_TextBox.Text
Worksheets("Tabelle1").Cells(1, 5).Value = Beginn_TextBox.Text
Worksheets("Tabelle1").Cells(1, 6).Value = Ende_TextBox.Text
Worksheets("Tabelle1").Cells(1, 7).Value = ZoneJa_CheckBox.Visible
End Sub
Ich möchte aber das die Zellen nicht mehr überschrieben werden, sondern das beim nächsten Eintrag in die nächste Zelle Zeile geschrieben wird.
2. Frage:
Wenn ich den OK_button betätige möchte ich das die ausgewählte(n) Checkbox durch ein x in der Tabelle markiert wird. Wie oben beschrieben sollen die Zellen nicht überschrieben werden sondern beim nächsten Eintrag in die nächste Zeile geschrieben werden.
über eure hilfe wäre ich dankbar.
Gruss Mathias
Anzeige