Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

höchste Bildnummer in einem Ordner finde

höchste Bildnummer in einem Ordner finde
26.02.2020 13:11:05
Ralf
Hi,
ich suche eine Möglichkeit in einem Bildordner, indem die Bilder nur als Nummer gespeichert sind,
also 0001.jpg, 0002.jpg usw. , die höchste Bildnummer zu finden und als Variable zu speichern.
- Ich möchte ein Bild aus einem beliebigen Ordner auswählen
- Benenne das Bild erst mal in 0000.jpg um (vielleicht kann ich das auch mit dem letzen Punkt gemeinsam machen und ich spare mir das umbenennen vorher.
Bis hier habe ich kein Problem
- Dann sehe ich in einem fixen Ordner nach, was die letzte BildNummer ist
Das bekomme ich nicht hin.
Anschließend kopiere das Bild 0000.jpg in den fixen Ordner mit der nächst höheren Nummmer (in diesem Fall 0003.jpg).
Vielleicht könnt Ihr mir helfen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: höchste Bildnummer in einem Ordner finde
26.02.2020 13:20:25
Ralf
Also ich brauche nur die Info darüber,
die höchste Bildnummer im Ordner zu finden. Den Rest habe ich.
Wie geschrieben die Dateinamen bestehen nur aus einer 4stelligen Nummer.
AW: höchste Bildnummer in einem Ordner finde
26.02.2020 13:27:14
UweD
Hallo
das kannst du in dein Makro einbauen
Sub Nummer()
    Dim Pfad As String, Ext As String, Datei As String
    Dim Hoechste As Integer, Ziffern As String
    
    Pfad = "x:\temp\Test\" 'mit \ am Ende 
    Ext = "*.jpg"
    
    Datei = Dir(Pfad & Ext)
    Do While Len(Datei) > 0
        Ziffern = Split(Datei, ".")(0) 'Teil vor dem Punkt 
        
        If IsNumeric(Ziffern) Then 'prüfen ob Zahl 
            
            If Ziffern > Hoechste Then
                Hoechste = Ziffern 'Höchste merken 
            End If
        End If
        Datei = Dir() ' nächste Datei 
    Loop
    
    MsgBox "Höchste Nummer: " & Hoechste
End Sub

LG UweD
Anzeige
AW: höchste Bildnummer in einem Ordner finde
26.02.2020 13:47:46
Ralf
Hallo UweD,
vielen Dank, perfekt!
AW: Datei finden
26.02.2020 13:46:09
Fennek
Hallo,
teste einmal diesen Code:

Sub M_snb_dir()
sn = Split(CreateObject("wscript.shell").exec("cmd /c dir ""c:\temp\*.xls"" /b/s/o-n").stdout. _
readall, vbCrLf)
msgbox sn(ubound(sn))
End Sub
Falls im Pfadnamen Leerzeichen oder Umlaute sind, gibt es einen Fehler.
mfg
AW: Datei finden
26.02.2020 14:27:49
Ralf
Hi Fennek,
danke,
ich habe mal UweD's getestet mit einem Ordner, der ein Leerzeichen hat, war kein Problem.
Umlaute habe ich noch nicht getestet.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige