Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kleinstmögliche Zahl aus Splate

kleinstmögliche Zahl aus Splate
23.07.2008 13:18:09
Ludes
Habe eine Spalte mit verschiedenen ganzen Zahlen. Wie kann ich mir mittels COde die kleinste Zall anzeigen lassen die nicht schon in der Liste vorkommt?
Bsp: 1,2,3,5,6,7,12,13,
MSGbox ("kleinste nicht vergebene Zahl: 4")
DANKE!!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kleinstmögliche Zahl aus Splate
23.07.2008 13:27:58
Rudi
Hallo,
z.B. so:

Function kleinste(rng As Range)
Dim i As Long
Do
i = i + 1
kleinste = i
Loop Until WorksheetFunction.CountIf(rng, i) = 0
End Function
Sub tt()
MsgBox kleinste(Columns(1))
End Sub


warum zur Hölle ...
23.07.2008 13:51:08
Rudi
... machst du Function Sub?

weil ich...
23.07.2008 13:56:17
Ludes
...keine Ahnung vom Programmieren habe und deswegen ein simples Beispiel brauche ; ).
Danke!

Anzeige
AW: weil ich...
23.07.2008 15:07:00
Rudi
kopiere einfach meinen Code in ein Modul und starte sub tt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige