title image


Smiley Re: In UserForm Textbox automatisch hochzählen wenn...
Hi!



Versuch mal das:



Private Sub UserForm_Initialize()

Dim Lg As Long, Rn As Range

Set Rn = ActiveSheet.Range("A1:A100")

Lg = Application.WorksheetFunction.Max(Rn)

Me.TextBox1.Value = Lg

set rn = nothing

End Sub


Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: