Thema Datum  Von Nutzer Rating
Antwort
12.11.2020 12:45:53 Kaan
Solved
12.11.2020 14:04:11 volti
NotSolved
Rot Fortlaufende Nummer automatisch anlegen
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:
volti		 Datum:
12.11.2020 14:27:18		 Views:
522		 Rating:
     
Antwort:
 Nein
Thema:
Fortlaufende Nummer automatisch anlegen

Hallo,

hier noch eine Variante, die den neuen LieferscheinnNamen komplett aus dem Dateinamen zusammensetzt....

Option Explicit
 
Private Function GetMaxNummer() As String
 Dim oFile As Object
 Dim iNr As Integer, iMaxNr As Integer
 Dim sPath As String

 sPath = "D:\Test"                                                'Deinen Pfad hier anpassen
 With CreateObject("Scripting.FileSystemObject").GetFolder(sPath) 'Filesystem kreieren
    For Each oFile In .Files                                      'Alle Dateien iim Pfad durchgehen
       iNr = Val(Split(Split(oFile.Name, ".")(0) & "-", "-")(1))  'Die Nummer vor dem "." extrahieren
       If iNr > iMaxNr Then
          iMaxNr = iNr                                            'Die größte Nummer merken
          GetMaxNummer = Mid$(Split(oFile.Name, "-")(0) & "-" _
                       & Right$("000" & iMaxNr + 1, 4), 4)        'Neue Liefer-Nummer (ohne LS_) zusammensetzen
       End If
    Next oFile
 End With
     
End Function
 
Private Sub Workbook_Open()
'Nächste Projektnummer formatiert ermitteln
 With ThisWorkbook.Sheets("Tabelle1")
    .Cells(7, 4).value = GetMaxNummer()
 End With
End Sub

VG KH

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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