Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform - ID Vergabe

Userform - ID Vergabe
12.07.2007 20:05:24
Frank
Hallo!
Ich möchte, das in dem Userform in der Textbox1 automatisch eine Startnummer für die angelegten Teilnehmer vergeben wird.
Dazu soll in das unten beigefügte Sub ein Befehl hinzu, der aus dem Blatt "Daten" Spalte A:A den Maximalwert sucht und mit 1 addiert. Kann mir jemand dabei helfen?

Public Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCloseBtn = False
SetUserFormStyle
ComboBox1.RowSource = "'Info'!A2:A25"
ComboBox2.RowSource = "'Info'!B2:B25"
ComboBox3.RowSource = "'Info'!C2:C25"
TextBox1.Text = ""
TextBox1.SetFocus
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Userform - ID Vergabe
12.07.2007 20:13:00
Ramses
Hallo
das sollte so gehen:
Me.Textbox1 = WorksheetFunction.max(Range("a:a"))+1
Gruss Rainer

AW: Userform - ID Vergabe
12.07.2007 20:33:10
Frank
Super! klappt einwandfrei :-)

AW: Userform - ID Vergabe
12.07.2007 20:39:59
Gerd
Hallo!
TextBox1= WorksheetFunction.Large(Worksheets("Daten").Columns(1), 1) + 1
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige