Hochzählen
14.07.2020 14:29:24
A.
ich muss meine Frage von gestern anders formulieren, sitze jetzt schon den ganzen Tag mit ausprobieren daran....
ich möchte, dass die Zahl in der TextBox sich jeweils hochzählt, bei jedem öffnen der UserForm und nach jedem Klick auf meinen Speichern CommandButton. Und gerade beim Speichern soll die neue hochgezählte Zahl auch übernommen werden.
Code:
Private Sub TakeButton2_Click()
'Eingaben der Schaltfläche übernehmen
Dim last As Long
Dim c As Integer
Dim intSpalte As Integer
With ThisWorkbook.Worksheets("VVP-Tool")
intSpalte = Phase * 6 - 2
For c = 1 To 9000
With TextNr
End With
Next c
last = Worksheets("VVP-Tool").Cells(Rows.Count, intSpalte).End(xlUp).Row + 1
.Cells(last, intSpalte).Value = TextNr.Value
.Cells(last, intSpalte + 1).Value = TextValue
.Cells(last, intSpalte + 2).Value = TextValue
.Cells(last, intSpalte + 3).Value = TextValue
.Cells(last, intSpalte + 4).Value = TextValue
End With
End Sub
Private Sub UserForm_Initialize()
Dim intAnz As Integer
Dim x As Integer
For intAnz = 1 To 5
With Phase
.AddItem intAnz
End With
Next intAnz
For x = 1 To 9000
With TextNr
x = x + 1
End With
Next x
'Startseite festlegen
Multipage.Value = 0
'Tabs ausblenden
Multipage.Style = fmTabStyleNone
'Einträge für die Schaltflächen
UserForm1.Text.Value = " eintragen"
UserForm1.Text.Value = " eintragen"
UserForm1.Text = "einfügen"
UserForm1.TextDatum.Value = Date
UserForm1.TextNr.Value = x hier möchte ich, dass es in der TextBox hochzählt
End Sub
Liebe Grüße
A.