Re: Textbox Wert addieren
17.08.2002 21:01:35
Peter Knierim
Hallo und vielen Dank
vieleicht kannst du mir nochmal helfen#
In einer Tabelle wird in Spalte A die laufende Nummer geführt.
Wenn ich den Userform starte wird die letzte Zelle Spalte A ermittelt und in die Textbox txtLNr zurückgechrieben. Schön wäre, es würde gleich die richtige (+1)erscheinen oder bei der Datenübernahme die Addition erfolgenmfg peter
Anlage:
abgespeckter Code zum Userform starten und zur Datenübernahme.
'Userform starten
Private Sub UserForm_Initialize()
MultiPage1.page1.Index = 0
Label9.Caption = ThisWorkbook.Sheets(1).Range("A2").Text
Label10.Caption = ThisWorkbook.Sheets(1).Range("F2").Text
Set frm = UserForm
With frm
.txtLNr.SetFocus
End With
Application.Sheets("Betriebsaufträge").Activate
Range("A65536").End(xlUp).Offset(0, 0).Select
Set txt = txtLNr
With txt
txtLNr.Value = ActiveCell.Offset(0, -0).Value
End With
End Sub
'Daten der Textfelder in die Tabelle zurückschreiben
Private Sub CommandButton4_Click()
Set frm = UserForm
Sheets("Betriebsaufträge").Activate
'letzte belegte Zelle in Tabelle finden
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .txtLNr.Value
ActiveCell.Offset(0, 13).Value = .Textbox1.Value
ActiveCell.Offset(0, 14).Value = .Textbox2.Value
.txtLNr.SetFocus
End With
Mldg = "Daten in die Tabelle übernommen"
Stil = vbOKOnly + vbInformation + vbDefaultButton2
Title = "Auftragsverwaltung"
Kontext = 1000
Ergebnis = MsgBox(Mldg, Stil, Title, Help, Kontext)
Unload Me
End Sub