Textbox inhalte in tabelle eintragen

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,
ich hab ein riesen Problem, zwar hab ich mir eine UserForm1 erstellt in der ich 5 TextBoxen habe.Ausserdem unten 2 CommandButton (Speichern und Abbrechen) Die User Form hab ich so einprogrammiert, dass diese nur aufgeht beim öffnen des sheets (gewollt).

So jetzt zum Problem:
Es sollen die 5 TextBoxen nach dem beschreiben mit Texten mit Speichern in eine Tabelle in verschiedenen Spalten übertragen werden (z.b A5:A9). Aber nur wenn ich auf Speichern gehe.
Wie funktioniert das? Habe verschiedene Sachen programmiert ohne Erfolg.

#2

Hallo Benjamin,

ich hab ein riesen Problem,

Ansichtssache :smile:

Es sollen die 5 TextBoxen nach dem beschreiben mit Texten mit
Speichern in eine Tabelle in verschiedenen Spalten übertragen
werden (z.b A5:A9). Aber nur wenn ich auf Speichern gehe.
Wie funktioniert das? Habe verschiedene Sachen programmiert

Meine Frage ist, immer in A5:A9 oder sollen neue Eintäge dann in A10:A14 usw. landen, quasi immer untendrunter?

Gruß
Reinhard

#3

Meine Frage ist, immer in A5:A9 oder sollen neue Eintäge dann
in A10:A14 usw. landen, quasi immer untendrunter?

Gruß
Reinhard

Hallo Reinhard,
es soll immer in die gleichen Zellen (also A5 bis A9) geschrieben werden. Beim Öffnen wird automatische eine neue Zeile eingefügt. Deswegen.

Danke schon mal!
Gruß
Ben

#4

Meine Frage ist, immer in A5:A9 oder sollen neue Eintäge dann
in A10:A14 usw. landen, quasi immer untendrunter?

es soll immer in die gleichen Zellen (also A5 bis A9)
geschrieben werden. Beim Öffnen wird automatische eine neue
Zeile eingefügt. Deswegen.

Hallo Ben,

den Zusammenhang mit der neuen Zeile verstehe ich grad nicht, aber egal:

Private Sub CommandButton1\_Click()
With Worksheets("Tabelle1")
 .Range("A5").Value = TextBox1
 .Range("A6").Value = TextBox2
 .Range("A7").Value = TextBox3
 'usw.
End With
End Sub

Gruß
Reinhard

#5

Hallo Ben,

es soll immer in die gleichen Zellen (also A5 bis A9) geschrieben werden. Beim Öffnen wird automatische eine neue Zeile eingefügt.

Das scheint mir sehr problematisch. Der User öffnet die Form. Eine neue Zeile entsteht. Soweit OK.

  • Was passiert, wenn der User Deine Schaltfläche für die Übernahme der Daten aus den Textboxen nicht drückt? Dann hast Du eine Zeile zuviel.
  • Was passiert, wenn er die Schaltfläche mehrmals drückt? Im Extremfall verschwinden dann Daten!

Der Befehl zur Anlage der neuen Zeile muß deshalb zwingend in die Click-Prozedur Deiner Schaltfläche.

HTH

Markus
___________________
Probier auch: .Range(„A5“).Value = Me.TextBox1.Value