Mit Userform Daten erfassen u. Tabelle füllen

Hallo liebe Excelfreunde!
Wer hilft mit auf die Sprünge? Habe mir eine Userform (ergoogelt) gebastelt, mit der ich in der Endausbaustufe Daten erfassen will und diese anschliessend mit einem Klick auf "OK"in eine Tabelle eintragen will. Dabei habe ich folgende Probleme, die ich als VBA-Greenhorn noch nicht hinbekomme.
1. Wie kann ich bereits in einem Textfeld das Format auf Zahlen ändern? Wenn überhaupt möglich. In der Tabelle, die mit den Daten gefüllt wird, soll mit den Zahlen weitergerechnet werden.
2. Wie nutze ich die Optionsfelder - Kauf bzw. Verkauf? Wenn Optionsfeld Kauf aktiviert ist, soll ein "B" in die entsprechende Spalte der Tabelle eingetragen werden und umgekehrt ein "S" für Verkauf.
Ich hoffe, ich habe es verständlich erklärt. Zum besseren Verständnis habe ich eine Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/54861.xls
In der Hoffnung auf Eure Hilfe.
Gruss
Bernhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cmd_OK_Click() If opt_Buy = True Then Sheets(1).Range("E65536").End(xlUp).Offset(1, 0) = "B" Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = UserForm1.cbo_Datum Sheets(1).Range("B65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Artikelnr Sheets(1).Range("C65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Artikelbezeichnung Sheets(1).Range("D65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Anzahl End If If opt_Sell = True Then Sheets(1).Range("E65536").End(xlUp).Offset(1, 0) = "S" Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = UserForm1.cbo_Datum Sheets(1).Range("B65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Artikelnr Sheets(1).Range("C65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Artikelbezeichnung Sheets(1).Range("D65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Anzahl UserForm1.txt_Anzahl = "" cmd_OK.Enabled = False txt_Artikelnr.SetFocus txt_Artikelbezeichnung.SetFocus txt_Anzahl.SetFocus End If End Sub

Hallo Hary
Sollte sich die Reihenfolge der Tabelleblätter einmal ändern durch Hinzufügen , Kopieren oder Verschieben
wird immer das "erste Tabellenblatt" zum Eintragen genutzt.
Wird also Tabelle1 hinter Tabelle2 verschoben, so wird Tabelle2 = Sheets(1)
War Dir das klar ?

es muss auch nicht alles doppelt geschrieben stehen.
so reicht schon ;o)
(also nicht Sheets(1) - sondern ... )


Private Sub cmd_OK_Click()
WorkSheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0) = UserForm1.cbo_Datum
WorkSheets("Tabelle1").Range("B65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Artikelnr
WorkSheets("Tabelle1").Range("C65536").End(xlUp).Offset(1, 0) = UserForm1. _
txt_Artikelbezeichnung
WorkSheets("Tabelle1").Range("D65536").End(xlUp).Offset(1, 0) = UserForm1.txt_Anzahl
If opt_Buy = True Then WorkSheets("Tabelle1").Range("E65536").End(xlUp).Offset(1, 0) = "B"
If opt_Sell = True Then WorkSheets("Tabelle1").Range("E65536").End(xlUp).Offset(1, 0) = "S"
UserForm1.txt_Anzahl = ""
cmd_OK.Enabled = False
txt_Artikelnr.SetFocus
txt_Artikelbezeichnung.SetFocus
txt_Anzahl.SetFocus
End Sub

oder so:
(gefällt mir persönlich besser - ist Geschmackssache)


Private Sub cmd_OK_Click()
With WorkSheets("Tabelle1").Range("A65536").End(xlUp)
.Offset(1, 0) = UserForm1.cbo_Datum
.Offset(1, 1) = UserForm1.txt_Artikelnr
.Offset(1, 2) = UserForm1.txt_Artikelbezeichnung
.Offset(1, 3) = UserForm1.txt_Anzahl
   If opt_Buy = True Then .Offset(1, 4) = "B"
If opt_Sell = True Then .Offset(1, 4) = "S"
End With
UserForm1.txt_Anzahl = ""
cmd_OK.Enabled = False
txt_Artikelnr.SetFocus
txt_Artikelbezeichnung.SetFocus
txt_Anzahl.SetFocus
End Sub

Private Sub cmd_OK_Click() With Worksheets("Tabelle1").Range("A65536").End(xlUp) .Offset(1, 0) = UserForm1.cbo_Datum .Offset(1, 1) = UserForm1.txt_Artikelnr .Offset(1, 2) = UserForm1.txt_Artikelbezeichnung .Offset(1, 3) = CLng(UserForm1.txt_Anzahl) If opt_Buy = True Then .Offset(1, 4) = "B" If opt_Sell = True Then .Offset(1, 4) = "S" End With UserForm1.txt_Anzahl = "" cmd_OK.Enabled = False txt_Artikelnr.SetFocus txt_Artikelbezeichnung.SetFocus txt_Anzahl.SetFocus End Sub

Beliebteste Forumthreads (12 Monate)

Mit Userform Daten erfassen u. Tabelle füllen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Userform Daten erfassen u. Tabelle füllen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread