Office: größter Wert aus Spalte in TextBox anzeigen lassen

Moin Moin,

ich beisse mir seit ein paar Stunden die Zähne aus.

Ich möchte den größten Wert +1 aus Spalte B ab Zeile 3 in meiner Userform "Formular_NeuesMitglied" und der Textbox "tb_mitgliednummer" anzeigen lassen.

Dazu habe ich folgenden Code verwendet:

With Application.WorksheetFunction
tb_mitgliednummer = Application.Max(Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp))) + 1
End With

Den habe ich als erstes in dem Bereich der UserForm hinterlegt, das sah dann so aus:

Private Sub Formular_NeuesMitglied_Initialize()

With Application.WorksheetFunction
tb_mitgliednummer = Application.Max(Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp))) + 1
End With

End Sub

das ging nicht...

Ich habe auch schon versucht das unter dem Command Button zu hinterlegen, wo die UserForm aufgerufen wird.

With Application.WorksheetFunction
tb_mitgliednummer = Application.Max(Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp))) + 1
End With
Formular_NeuesMitgled.Show

Auch das ging nicht...

Auch ein eigens dafür angelegtes Modul brachte keinen Erfolg.

Hat da jemand einen Vorschlag für mich?


Gruß Jörg

:)

 

Hallo,

versuchs mal ohne With, einfach so:
Code:

 

Hallo Jörg,

...ist eine Zustandsfeststellung, aber keine Fehlerbeschreibung.

...auch nicht bei der Fehlerbeschreibung.

Die Codezeile
tb_mitgliednummer = Application.Max(Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp))) + 1
liefert bei mir genau das Ergebnis, das ich erwartet habe: Den Maixmalwert des Bereichs "B3:B[LetzteBenutzteZeile]" + 1 des aktiven Blattes.

Grüße
EarlFred

 

Moin Uwi63 & EarlFred,

ich habe heute vormittag mal geschaut und habe meinen Fehler gefunden.
Bei mir hatte sich ein Gedankenfehler eingeschlichen, ich habe immer versucht den Namen der UserForm mit einzubauen.
Also in meinem Fall uf_Name und nicht einfach nur UserForm, was dazu führte das es nicht eingetragen wurde.

Nun sieht meine Lösung dank eures anschiebens in die richtige Richtung so aus:

Private Sub UserForm_Activate()
Me.tb_Mitgliednummer.Text = Application.Max(Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlDown))) + 1
Me!tb_Mitgliednummer.Enabled = False
End Sub

Funktion wie gewünscht.

Mein Dank an euch beide...

Gruß Jörg