Thema Datum  Von Nutzer Rating
Antwort
Rot Fortlaufende Nummer automatisch anlegen
12.11.2020 12:45:53 Kaan
Solved
12.11.2020 14:04:11 volti
NotSolved
12.11.2020 14:27:18 volti
*****
Solved
13.11.2020 09:34:51 Kaan
NotSolved
13.11.2020 10:36:57 volti
NotSolved

Ansicht des Beitrags:
Von:
Kaan
Datum:
12.11.2020 12:45:53
Views:
67
Rating: Antwort:
 Nein
Thema:
Fortlaufende Nummer automatisch anlegen

Hallo zusammen,

mein Ziel ist es beim öffnen des Excell Lieferschein - Templates eine fortlaufende Nummer einzutragen. Diese Nummer soll aber nicht einfach so erstellt werden, sondern ich habe in einem Ordner eine bestimmte Anzahl an Lieferscheinen schon darliegen und es soll die nächst höhere Nummer eingetragen werden.

Die Lieferscheine haben folgende Syntax im Ordner wo diese gespeichert werden:

LS_PSM2020-0001

LS_PSM2020-0002

.... usw.

Im Lieferschein selber ist die Syntax aber PSM2020-0001 etc.

 

Folgenden Code habe ich schonmal aus dem Internet gefunden vielleicht kann man den ja als Grundlage her nehmen. Den versteh ich leider mit meinen VBA Skills nicht wirklich weshalb ich hier bin.

Code:

Option Explicit

Private Function get_last_Number() As String
Dim fso As Object
Dim oFolder As Object
Dim oFile As Object
Dim temp As String
Dim fileName As String
Dim i As Integer

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = fso.GetFolder("C:\Users\senoglukext\Desktop\KaanSenoglu\Kaan\TEST ORDNER") 'Dein Ordner Pfad mit Dateien
    
    temp = "0000"
    For Each oFile In oFolder.Files
        i = InStrRev(oFile.Name, ".") - 1
        fileName = Left(oFile.Name, i)
        If Right(fileName, i - 4) > temp Then
            temp = Right(fileName, 4)
        End If
    Next oFile
    
    If temp < "" Then get_last_Number = temp
    
    Set fso = Nothing
    Set oFolder = Nothing
    
End Function

Private Sub Workbook_Open()

Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets(1)
    With ws
        .Cells(7, 4).Value = "PSM2020" & CStr(get_last_Number) 'E5
    End With

End Sub

 

Danke schonmal im Vorraus!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Fortlaufende Nummer automatisch anlegen
12.11.2020 12:45:53 Kaan
Solved
12.11.2020 14:04:11 volti
NotSolved
12.11.2020 14:27:18 volti
*****
Solved
13.11.2020 09:34:51 Kaan
NotSolved
13.11.2020 10:36:57 volti
NotSolved