Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1672to1676
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
Inhaltsverzeichnis

Nächste freie zah

Nächste freie zah
06.02.2019 11:11:00
Kofler
Hallo!
Ichvhabe folgenden Code für die Ermittlung der nächst höheren zahl:
Textbox1 = .max(sheets(1).range(A5:A100) + 1
Nun möchte ich vorher aber die nächste freie zahl anzeigen lassen, welche grösser als 500 ist:
Tabelle:
001
005
008
500
501
503
Nun sollte 502 in der textbox1 stehen!
Hat jemand eine Idee?
Danke!!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nächste freie zah
06.02.2019 11:27:47
Daniel
Hi
with range("A5:A100")
For i = 500 to Worksheetfunction.max(.cells)
If worksheetfunction.CountIf(.cells, i) = 0 then exit for
Next
Textbox1 = i

Gruß Daniel
AW: Nächste freie zah
06.02.2019 11:40:38
Kofler
Hi!
Super, danke dir!!!
Eine Frage noch: kann man die range auf die spalte a bis zum letzten eintrag erweitern?
Danke nochmals!!!!
AW: Nächste freie zah
06.02.2019 13:54:43
ede
Hallo, ja geht so:

lz = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
With Range("A1:A" & lz)

gruss
ede
AW: Nächste freie zah
07.02.2019 09:50:43
Kofler
DANKE DIR!!!!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige