nächste freie Nummer
ABO
ich habe ein kleines Problem mit meinem Makro.
Kann man das Makro insoweit verändern das es schneller funktioniert.
Nach dem anklicken des CommandButton1 öffnet sich meine UserForm1.
Beim öffnen der Userform 1 sucht das Makro nach der nächsten freien Nummer in Spalte A,
und gibt mir diese in der TextBox 1 wieder.
Soweit funktioniert das auch, aber es dauert halt recht lang.
Makro:
Private Sub UserForm_Initialize()
'nächste freie Nummer in TextBox1
Dim meAr(), varRow
Dim A As Long
meAr = Sheets("Tabelle1").Columns(1).Value2
For A = 1 To UBound(meAr)
varRow = Application.Match(A, meAr, 0)
If Not IsNumeric(varRow) Then Exit For
Next A
TextBox1 = A
End Sub
Zur besseren Verständnis meine Muster Datei:
https://www.herber.de/bbs/user/73073.xls
Gruß ABO
Anzeige