title image


Smiley Re: In UserForm Textbox automatisch hochzählen wenn...
Wenn Deine Datensätze IMMER in der selben Spalte und IMMER in den nachfolgenden Zeilen stehen, dann nimm folgende Function:

Function letzte_zeile()

Dim zähler As Long

zähler = 2

Do Until Workbooks("Deine Tabelle.xls").Worksheets("Dein Tabellenblatt").Cells(zähler, 1).text = ""

zähler = zähler + 1

Loop

letzte_zeile = zähler

End Function



Diese Function ermittelt die nächste freie Zeile in deinem Datensatz.

Wenn du bei dem Ergebniss 1 abziehst, hast du den Wert in der letzten Zelle.

nun kannst Du den neuen Wert daraus ableiten.



Ich hoffe,Du weißt wie eine Function aufgerufen wird und wie Sie das Ergebniss in deine Module zurückbringt.
Lasse dich in Versuchung führen und nimm dir, was dich versucht, wann immer du kannst! Bitte Feedback nicht vergessen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: