Microsoft Excel

Herbers Excel/VBA-Archiv

fortlaufende Nummer

Betrifft: fortlaufende Nummer von: Tim
Geschrieben am: 06.02.2020 13:58:50

Hallo zusammen,

ich habe ein Makro welches mir eine fortlaufende Nummer nach einem bestimmten Syntax generieren soll.

Die Nummer sollte von 1-9999 gehen und anschließend wieder von vorn beginnen und dem Format "0001" entsprechen.

Aktuell zählt er direkt von 1-9999 und das auch ohne das gewünschte Format, wer kann mir dabei helfen?

Sub neueNummer()

Dim neueNummer As Integer

For neueNummer = 1 To 9999

Tabelle1.Cells(2, 1).Value = "00000B1E" & neueNummer



Next

End Sub

Betrifft: AW: fortlaufende Nummer
von: peterk
Geschrieben am: 06.02.2020 14:08:24

Hallo

Gewünschtes Format: Tabelle1.Cells(2, 1).Value = "00000B1E" & format(neueNummer,"00000")

Betrifft: Alternativ: ... & right("000" & neueNummer, 4) owT
von: Rudi Maintaire
Geschrieben am: 06.02.2020 14:15:48



Betrifft: AW: Alternativ: ... & right("000" & neueNummer, 4) owT
von: Tim
Geschrieben am: 06.02.2020 14:22:23

Hallo ihr Beiden,

vielen Dank für die schnelle Antwort, das Format funktioniert. Jedoch zählt er beim starten direkt von 1-9999, mein Wunsch ist es via Button immer um eins zu erhöhen.

Betrifft: AW: Alternativ: ... & right("000" & neueNummer, 4) owT
von: Rudi Maintaire
Geschrieben am: 06.02.2020 14:31:51

Hallo,
Jedoch zählt er beim starten direkt von 1-9999
das hast du ja so programmiert.
Sub neueNummer()
  Dim neueNummer As Integer
  Const NumStr As String = "00000B1E"
  
  With Tabelle1.Cells(2, 1)
    If .Value <> "" Then
      .Value = NumStr & Format(CLng(Right(.Value, 4)) + 1, "0000")
    Else
      .Value = NumStr & "0001"
    End If
  End With
  
End Sub

Gruß
Rudi

Betrifft: AW: Alternativ: ... & right("000" & neueNummer, 4) owT
von: Tim
Geschrieben am: 06.02.2020 14:34:20

DANKE!!!

Beiträge aus dem Excel-Forum zum Thema "fortlaufende Nummer"