Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: fehlende Zahl in einer fortlaufenden Nummer finden

fehlende Zahl in einer fortlaufenden Nummer finden
29.03.2016 00:27:46
Falo
Hallo Profis,
könnt Ihr mir bitte behilflich sein ?.
in einer Mitgliedsdatei ist eine Mitglieds Nr. (A3 bis A500) die ist Fortlaufend, wenn ein Mitglied Kündigt wird das Mitglied raus gelöscht. dann entsteht eine Lücke diese Mitglieds Nr. wäre frei. gibt es eine Möglichkeit über ein Makro, was mir die nächste frei Nummer in einer Messagebox anzeigt?
Grüß
Olaf

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: fehlende Zahl in einer fortlaufenden Nummer finden
29.03.2016 06:41:06
selli
hallo olaf,
mit vba (weil messagebox) so:
Dim zelle As Range
For Each zelle In Range("A3:A38")
If zelle = "" Then
MsgBox "erste freie Nummer: " & Cells(zelle.Row - 1, 1) + 1
Exit For
End If
Next
gruß
selli

AW: fehlende Zahl in einer fortlaufenden Nummer finden
29.03.2016 07:01:41
hary
Moin
Wenn deine Tabelle so aussieht:



Tabelle1
 ABC
2lfdNameVorname
31SchulzeOtto
42MeierJens
53  
64HagenFriedhelm
75WelligWilhelm
86  

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

dann Makro:
Sub freieNummer()
Dim naechste As Long
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1") '--Blattname ggf. anpassen
naechste = wks.Cells(wks.Cells(2, 2).End(xlDown).Row + 1, 1)
If naechste = 0 Then
MsgBox "neue Nr.: " & Application.Max(wks.Columns(1)) + 1, vbInformation, "Neue Nr muss  _
erstellt werden"
Else
MsgBox "freie Nr.: " & naechste
End If
End Sub

gruss hary

Anzeige
AW: fehlende Zahl in einer fortlaufenden Nummer finden
29.03.2016 09:19:00
Daniel
Hi
als Makro so:
Dim x As Long
For x = 1 To WorksheetFunction.Max(Range("A:A"))
If IsError(Application.Match(x, Range("A:A"), 0)) Then Exit For
Next
MsgBox "nächste freie Nummer: " & x

Gruß Daniel

AW: fehlende Zahl in einer fortlaufenden Nummer finden
29.03.2016 11:11:54
Falo
Danke an alle hat geklappt
LG
Olaf
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige