Problem mit FirmenNr.
26.01.2006 11:42:15
Thomas
Ich habe folgendes Problem!
Ich habe eine Userform erstellt, die als Eingabemaske dient. Die ganzen Eingaben werden in ein Tabellenblatt geschrieben und dort gespeichert!
Jetzt habe ich ein Textfeld (Textbox) erstellt, in der eine FirmenNr. stehen soll! (Die Firmennummer dient für einen spätere Suchfunktion und als Firmenauswertung). Anders als bei den anderen Textfeldern soll dieses TF locked = true haben, also keinen Eintrag zu lassen. Hier soll automatisch eine FirmenNr. erzeugt werden. D. h.,. habe ich die letzten Daten unter der FirmenNr. 12345 erfasst, so soll mir beim nächsten Erfassen in dem Textfeld bereits die 12346 erscheinen. Quasi immmer die alte Nr. um 1 erhöhen! Ich habe in meiner Tabelle "Datenbank" (wo die Eingaben gespeichert werden) eine Spalte mit fortlaufenden Nr., ich dachte mir, dass ich eventuel immer aus der nächsten Zelle die neue Nr. auslesen kann. Nochmal zur Vereinfachung, es gibt eine Tabelle namens "Datenbank", dort werden die Daten, die in der Userform eingegeben werden, untereinander geschpeichert! Eine Spalte ist mit fortlaufenden Nr. versehen, diese soll dann beim Aufruf der Userform automatisch in das Textfeld FirmenNr. geladen werden!
Also meine VBA-Kenntnisse sind nicht so gut! :(
Hier mal der Code
Private Sub CommandButton1_Click()
Set Frm = UserForm2
Sheets("Datenbank").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .TextBox2.Value
ActiveCell.Offset(0, 1).Value = .TextBox3.Value
ActiveCell.Offset(0, 2).Value = .TextBox5.Value
ActiveCell.Offset(0, 3).Value = .TextBox6.Value
ActiveCell.Offset(0, 4).Value = .TextBox7.Value
ActiveCell.Offset(0, 5).Value = .TextBox8.Value
If OptionButton1 = True Then
ActiveCell.Offset(0, 6).Value = "Herr"
ElseIf OptionButton2 = True Then
ActiveCell.Offset(0, 6).Value = "Frau"
Else
ActiveCell.Offset(0, 6).Value = ""
End If
Ich hoffe ihr habt halbwegs verstanden, was ich meine :)
Lange Rede kurzer Sinn!
Thomas