Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

TextBox zahl merken +1

TextBox zahl merken +1
29.10.2005 17:56:12
Thomas
Hallo,
schon wieder Thomas.
wer kann mir den Code so ändern,das die letzte Zahl die ich eingegeben habe,beim nächsten öffnen der UserForm +1 ist. Also wenn ich in der TextBox eine 1 eingegeben habe, soll beim nächsten öffnen der UserForm in der TextBox gleich eine 2 erscheinen.
Gruß Thomas

Private Sub CommandButton1_Click()
Dim frm As UserForm
Set frm = Test_drucken
Sheets("Bögen").Activate
Range("E1").Select
With frm
ActiveCell.Value = .TextBox1.Value
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox zahl merken +1
29.10.2005 18:01:40
Josef
Hallo Thomas!
Private Sub UserForm_Activate()
On Error Resume Next
TextBox1 = Sheets("Bögen").Range("E1") + 1
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Klappt so, Danke
29.10.2005 18:09:48
Thomas
Hallo Sepp,
Danke für die schnelle Hife, hat geklappt.
Gruß Thomas
AW: TextBox zahl merken +1
29.10.2005 18:08:57
Fred
Hi,
so viel wie nötig, so wenig wie möglich:

Private Sub CommandButton1_Click()
Sheets("Bögen").Range("E1") = CDbl(TextBox1)
End Sub

mfg Fred

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige