Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1748to1752
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

Freie Nummer suchen

Freie Nummer suchen
29.03.2020 11:57:30
Matthias
Hallo zusammen
Ich habe eine Liste mit vielen Artikeln die ich regelmässig nach Lieferant sortiere. Nun möchte ich einen neuen Artikel hinzufügen und wissen, welches die aktuelle freie Artikelnummer ist. Dazu würde ich eigentlich mit VBA die "Max-Zahl" in der Spalte O abfragen. Wie mache ich das, dass auch die Zeilen gelesen werden, die vom Filter im Moment nicht angezeigt werden?
Eine Idee war dass ich die Spalte O einfach in eine andere Lasche "spiegle". Aber wenn ich in der Originalliste Zeilen lösche oder mitendrin einfüge, gibt es Bezugsfehler.
Herzlichen Dank für eure Hilfe :-)
Matthias

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

Betreff
Datum
Anwender
Anzeige
AW: Freie Nummer suchen
29.03.2020 12:21:06
Werner
Hallo,
ob gefiltert oder nicht, ist egal.

Sub Schaltfläche1_Klicken()
Dim loNächste As Long
loNächste = WorksheetFunction.Max(Worksheets("Tabelle1").Columns("O")) + 1
MsgBox loNächste
End Sub

Gruß Werner
AW: Freie Nummer suchen
29.03.2020 13:35:34
Matthias
Herzlichen Dank euch beiden! Hat super geklapt :-)
Gerne u. Danke für die Rückmeldung. o.w.T.
29.03.2020 13:50:30
Werner
AW: Freie Nummer suchen
29.03.2020 12:24:12
Kuwer
Hallo Matthias,
der Funktion MAX() ist es egal, ob Zellen ausgeblendet sind.
Sub aaa()
MsgBox Application.Max(Columns(15))
End Sub
Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige