Ordnerinhalt auflisten nach Zelle Excel 365

Hallo Zusammen,
habe mich hier neu angemeldet.
Folgende Situation in Excel 365:
Wir benutzen hier vom Kunden vorbestimmte Formulare, die ausgefüllt werden müssen und zwar mit einer Bestellnummer und einer Blatt-Nr.. Der Kunde besteht darauf, dass die Blatt-Nr. fortlaufend (pro Bestell-Nr.) benannt wird, soweit so gut.
Beim Ausfüllen der Formulare bediene ich u. a. auch VBA-Makros, teilweise habe ich hier sehr gute Hilfe erhalten.
So, jetzt mein Anliegen:
Die o. g. Formulare werden in ein separates Verzeichnis gespeichert, welches ich beim Ausfüllen per Makro auswähle.
Ich möchte, dass mir beim öffnen eines neuen Formulars die letzte Blatt-Nr. angezeigt wird, so nach dem Motto "Die aktuelle Blatt-Nr. lautet: 95". Die eindeutige Identifikation der Formulare erfolgt über die o. g. Bestell-Nr., die auch Bestandteil des Dateinamens ist.
Also vereinfacht gesagt folgende Reihenfolge soll beim Öffnen abgearbeitet werden:
1. Eintragen der Bestell-Nr.
2. Prüfe anhand der Bestell-Nr. welches die letzte Blatt-Nr. ist
3. Gebe mir ein Meldungsfenster über die letzte Blatt-Nr.
Blatt-Nr. und Bestell-Nr. werden separat in eine vorgegebene Zelle geschrieben, die bei obigem Vorhaben ausgelesen werden müssen.
So, viel geschrieben, aber ich hoffe das mir hier geholfen werden kann.
Gruß Kai

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kai,
alles klar, in deiner ersten Mappe war nur das Laufwerk T ohne Ordner angegeben und das hatte einen Backslash am Ende. Wähle ich einen Ordner auf dem Laufwerk aus hat es keinen Backslash. Also:

Option Explicit
Option Compare Text

Private Sub Workbook_Open()

    Dim strFilename As String, strPath As String
    Dim lngNumber As Long, ialngIndex As Long
    Dim avntTemp As Variant

    With Worksheets("Dokument Block 3")

        strPath = .Cells(14, 34).Value

        If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

        strFilename = Dir$(strPath & "*" & .Cells(51, 11).Value & "*.xlsm")

        Do Until strFilename = vbNullString

            avntTemp = Split(strFilename, "_")

            For ialngIndex = LBound(avntTemp) To UBound(avntTemp)

                If Left$(avntTemp(ialngIndex), 5) = "Blatt" Then

                    lngNumber = Application.Max(Val(Split(avntTemp(ialngIndex), "-")(1)), lngNumber)

                    Exit For

                End If
            Next

            strFilename = Dir$

        Loop

        .Cells(51, 16).Value = lngNumber + 1

        Call MsgBox("Die aktuelle Blatt-Nr. lautet: " & Format$(lngNumber, "00"), vbInformation, "Information")

    End With
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Ordnerinhalt auflisten nach Zelle Excel 365

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ordnerinhalt auflisten nach Zelle Excel 365

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread