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

Forumthread: fortlaufende Nummer generieren

fortlaufende Nummer generieren
30.06.2016 15:26:46
Fatih
Hallo Profis
Ich habe in kleines Problem und ich denke Ihr könnt mir da sehr schnell weiter helfen.
Ich möchte eine fortlaufende Nummer (beginnend mit 1) in die Spalte C generieren.
Die soll sich an der Spalte D orientieren.
Wenn ein Wert in D steht soll die fortlaufende Nummer in C eingetragen werden.
Vielen Dank

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fortlaufende Nummer generieren
30.06.2016 15:27:58
Fatih
Ein Abschnitt der Tabelle
Userbild

AW: fortlaufende Nummer generieren
30.06.2016 15:29:15
SF
Hola,
wenn die Daten in D1 anfangen:
=WENN(D1"";ZÄHLENWENN($D$1:D1;"");"")
Ansonsten halt anpassen.
Gruß,
steve1da

Anzeige
AW: fortlaufende Nummer generieren
30.06.2016 15:31:27
Fatih
Sry vergessen mitzuteilen:
Die Nummerierung soll mit dem betätigen der Schaltfläche beginnen.

AW: fortlaufende Nummer generieren
30.06.2016 16:21:54
UweD
Hallo
in ein Modul..
Sub ID_vergeben()
    Dim i&, Zelle, LR&, RNG As Range
    With ActiveSheet
        LR = .Cells(.Rows.Count, "E").End(xlUp).Row 'letzte Zeile der Spalte 
        Set RNG = .Range("E2:E" & LR)
        RNG.Offset(0, -1).ClearContents
        For Each Zelle In RNG.SpecialCells(xlCellTypeConstants, 3)
            Zelle.Offset(0, -1).Value = i + 1
            i = i + 1
        Next
    End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0


Gruß UweD

Anzeige
AW: fortlaufende Nummer generieren
30.06.2016 17:10:13
Fatih
Danke dir UweD
funktioniert mal wieder alles bestens.

AW: gern geschehen owt
01.07.2016 08:42:33
UweD
;

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
Anzeige

Infobox / Tutorial

Fortlaufende Nummer in Excel generieren


Schritt-für-Schritt-Anleitung

Um eine fortlaufende Nummer in Excel zu generieren, die sich an einer Bedingung orientiert (z.B. Werten in einer anderen Spalte), kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und dann auf Modul.
  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub ID_vergeben()
       Dim i As Long, Zelle As Range, LR As Long, RNG As Range
       With ActiveSheet
           LR = .Cells(.Rows.Count, "D").End(xlUp).Row ' letzte Zeile der Spalte D
           Set RNG = .Range("D1:D" & LR)
           RNG.Offset(0, 1).ClearContents ' Spalte C leeren
           For Each Zelle In RNG.SpecialCells(xlCellTypeConstants, 3)
               Zelle.Offset(0, 1).Value = i + 1
               i = i + 1
           Next
       End With
    End Sub
  4. Schließe den VBA-Editor.

  5. Erstelle eine Schaltfläche in Deinem Arbeitsblatt:

    • Gehe zu Entwicklertools > Einfügen > Schaltfläche (Formularsteuerung).
    • Ziehe die Schaltfläche auf das Arbeitsblatt und wähle die ID_vergeben-Prozedur aus.

Damit hast Du eine fortlaufende Nummer in Excel, die automatisch vergeben wird, wenn Du die Schaltfläche klickst.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"
    Ursache: Der Bereich enthält keine Werte.
    Lösung: Stelle sicher, dass in der entsprechenden Spalte (z.B. D) Werte vorhanden sind.

  • Fehler: "Objektvariable nicht festgelegt"
    Ursache: Die Zelle, auf die zugegriffen wird, ist leer.
    Lösung: Überprüfe, ob die Range korrekt definiert ist und Werte enthalten sind.


Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die folgende Excel-Formel verwenden:

  1. In Zelle C1:
    =WENN(D1<>"";ZÄHLENWENN($D$1:D1;"<>""");"")
  2. Ziehe die Formel nach unten für die weiteren Zeilen.

Diese Methode ist nicht so flexibel wie VBA, aber funktioniert gut für einfache Anforderungen.


Praktische Beispiele

  • Beispiel 1: Automatische Rechnungsnummern generieren
    Wenn Du Rechnungen verwaltest, kannst Du die oben beschriebene VBA-Prozedur verwenden, um fortlaufende Rechnungsnummern zu generieren, die sich an den Werten in einer bestimmten Spalte orientieren.

  • Beispiel 2: Artikelnummern generieren
    Verwende den gleichen VBA-Code, um Artikelnummern automatisch zu vergeben, wenn der Artikel in einer anderen Spalte eingetragen wird.


Tipps für Profis

  • Verwende die ClearContents-Funktion, um alte Nummern zu löschen, bevor Du neue vergibst. So vermeidest Du Verwirrung.
  • Passe den Code an, um Bedingungen zu implementieren, wie z.B. nur Nummern zu generieren, wenn ein bestimmter Wert in einer anderen Spalte steht.
  • Speichere Deine Excel-Datei als Makro-fähige Datei (*.xlsm), um den VBA-Code zu nutzen.

FAQ: Häufige Fragen

1. Wie kann ich die fortlaufende Nummerierung zurücksetzen?
Du kannst die Spalte mit den fortlaufenden Nummern leeren und dann die Schaltfläche erneut klicken, um die Nummerierung neu zu starten.

2. Funktioniert dieser Code in allen Excel-Versionen?
Der bereitgestellte VBA-Code sollte in den meisten modernen Excel-Versionen (ab 2010) funktionieren. Achte darauf, dass die Entwicklertools aktiviert sind.

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