Hallo Zusammen,
ich habe folgenden Ansatz zum erfassen von Daten in eine Tabelle ohne TAG gefunden:
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
Ich habe dies ausgetestet und es funktioniert einwandfrei. Dadurch dass ich jetzt die Möglichkeit habe der Textbox zu sagen ob ihr Inhalt ein Text oder eine Zahl ist, wird auch die Formartierung der Tabelle übernommen.
Meine Frage jetzt ist:
Kann man o.g. Code so umschreiben, dass ich eine Auftragsnummer in die UF laden kann und diese nach Bearbeitung wieder in die Tabelle schreibe?
Also wie bei dem bisherigem Ansatz in der Arbeitsmappe nur halt ohne TAG-Methode.
Vielen Dank.
Gruß
Marius
|