Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: neue id automatisch vergeben

neue id automatisch vergeben
26.10.2004 10:06:24
jhaustein
hallo gemeinschaft
wenn ich über eine userform einen datensatz neu anlege, dann soll automatisch in der erten zelle immer eine autoid hinzugefügt werden, die fortlaufend hochzählt
wie mache ich sowas
gruss
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: neue id automatisch vergeben
26.10.2004 12:12:22
Rolf
Hallo j,
ich würde den Zähler in die userform integrieren,
die letzte Nummer aus der Datenbank auslesen,
um 1 erhöhen
n = Cells(Columns(1).End(xlDown) + 1, 1).Value + 1
und dann das Eingabefeld mit n vorbelegen.
FG
Rolf
AW: neue id automatisch vergeben
26.10.2004 12:27:33
jhaustein
hi vielen dank
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Automatisches Vergabe von IDs in Excel


Schritt-für-Schritt-Anleitung

Um eine ID automatisch in Excel zu vergeben, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen. Diese Anleitung setzt voraus, dass Du mit einer Userform in Excel arbeitest.

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Erstelle eine Userform: Füge eine Userform hinzu, wenn Du noch keine hast.
  3. Füge ein Eingabefeld hinzu: Platziere ein Textfeld (TextBox) auf der Userform, um die ID anzuzeigen.
  4. Implementiere den Zähler: Füge den folgenden Code in das Userform-Modul ein, um die ID automatisch zu vergeben:

    Private Sub UserForm_Initialize()
       Dim n As Long
       n = Application.WorksheetFunction.CountA(Sheets("DeinBlattName").Range("A:A")) + 1
       Me.TextBox1.Value = n
    End Sub

    Ersetze "DeinBlattName" durch den Namen des Arbeitsblattes, auf dem die IDs gespeichert werden.

  5. Testen: Schließe den VBA-Editor und teste die Userform, um sicherzustellen, dass die ID korrekt automatisch vergeben wird.

Häufige Fehler und Lösungen

  • Fehler: ID wird nicht korrekt hochgezählt

    • Lösung: Stelle sicher, dass Du die richtige Spalte angibst, in der die IDs gespeichert sind. Der Code zählt nur die nicht-leeren Zellen in der angegebenen Spalte.
  • Fehler: Userform öffnet sich nicht

    • Lösung: Überprüfe, ob die Userform korrekt aufgerufen wird. Du kannst dies über ein Button oder ein Makro tun.

Alternative Methoden

Eine alternative Methode zur Vergabe von IDs ist die Verwendung von Excel-Formeln. Du kannst die folgende Formel in Zelle A1 verwenden und sie nach unten ziehen:

=ZEILE()-1

Diese Formel gibt die Zeilennummer zurück und kann als fortlaufende Nummer verwendet werden, wenn Du sie in der ersten Zeile beginnst.


Praktische Beispiele

Wenn Du eine Excel-Tabelle hast, in der Du IDs für verschiedene Datensätze benötigst, kannst Du die Userform wie oben beschrieben verwenden. Zum Beispiel könntest Du eine Datenbank für Kundenanfragen erstellen, bei der jeder neue Eintrag automatisch eine ID erhält, die fortlaufend hochgezählt wird.


Tipps für Profis

  • Verwende die Worksheet_Change-Ereignisprozedur, um IDs automatisch zu vergeben, wenn Du einen neuen Eintrag machst.
  • Berücksichtige die Möglichkeit von Löschvorgängen: Du solltest sicherstellen, dass die IDs nicht übersprungen werden, wenn Du Datensätze löschst. Eine Möglichkeit ist, die IDs in einer separaten Tabelle zu speichern.

FAQ: Häufige Fragen

1. Wie kann ich die ID in einer bestehenden Tabelle automatisch vergeben? Du kannst die oben genannte Methode verwenden, um die ID in einer Userform zu vergeben, oder eine Formel in der ersten Spalte Deiner Tabelle nutzen.

2. Funktioniert das auch in Excel Online? Die Automatisierung über VBA funktioniert nicht in Excel Online. Du musst stattdessen auf Formeln oder manuelle Eingaben zurückgreifen.

3. Kann ich die ID-Generierung anpassen? Ja, Du kannst den VBA-Code so anpassen, dass er eine spezifische Startnummer verwendet oder bestimmte Bedingungen berücksichtigt, um die ID zu vergeben.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige