AW: Hochzählen in UserForm
09.02.2012 14:45:13
Oberschlumpf
Hi Andi
Das geht entweder, indem du den Wert in eine Hilfszelle schreibst, oder indem du den Wert in eine extra Datei speicherst, die vom Code erzeugt wird.
Lösung Zelle:
vorm Beenden:
Private Sub Userform_Terminate()
Range("Z1").Value = Ausgabefeld1.Text
End Sub
nach Starten des Userforms:
Private Sub Userform_Activate()
If Range("Z1").Value "" Then
Ausgabefeld1.Text = Range("Z1").Value
Else
Ausgabefeld1.Text = 0 'diese Zeile hast du schon
End If
End Sub
wenn mit extra Datei:
vorm Beenden:
Private Sub Userform_Terminate()
Open ThisWorkbook.Path & "\datei.ini" For Output As #1
Print #1, Ausgabefeld1.Text
Close
End Sub
nach Starten des Userforms:
Private Sub Userform_Activate()
Dim liInhalt As Integer
Open ThisWorkbook.Path & "\datei.ini" For Input As #1
Input #1, liInhalt
Close
Ausgabefeld1.Text = liInhalt
End Sub
Was davon hilft?
Ciao
Thorsten