Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Erklärung
#1
Hallo zusammen,

ich habe hier ein VBA code gefunden der das tut was ich brauche. Das Problem ist das ich nicht verstehe was ich dort jeweils anpassen muss. 

Option Explicit

Sub Dateiliste_Neu()
'  erstellt von Hajo.Ziplies@web.de
'  jüngste Datei feststellen
http://home.media-n.de/ziplies/
    Dim strVerzeichnis As String
    Dim StrDatei As String
    Dim I As Integer
    Dim StrTyp As String
    Dim Dateiname As String
    Dim Dateiname_neu As String
    Dim Zeit As Date
    strVerzeichnis = "D:\Eigene Dateien\Hajo\"
    StrTyp = "*.xls"
    Dateiname = Dir(strVerzeichnis & StrTyp)
    Dateiname_neu = Dateiname
    Zeit = FileDateTime(strVerzeichnis & Dateiname)
    Do While Dateiname <> ""
        If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
            Zeit = FileDateTime(strVerzeichnis & Dateiname)
            Dateiname_neu = Dateiname
        End If
        Dateiname = Dir
    Loop
    MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub



Kann mir bitte jemand erklären was genau hier angepasst werden muss. Ordner bzw. Dateinamen ? 

Vielen Dank.
Antwortento top
#2
Hallo, 19

hier wird dir die neueste Datei (nur xls) in einem bestimmten Ordner angezeigt. Wenn der Code das macht, was du willst, musst du doch nichts anpassen. 21
________
Servus
Case
Antwortento top
#3
Hallo,

@Case: vielleicht müsste er ja doch das Verzeichnis anpassen D:\Eigene Dateien\Hajo - ausser er heißt Hajo und nutzt noch Windows XP ;-)

Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2021
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
[-] Folgende(r) 1 Benutzer sagt Danke an maninweb für diesen Beitrag:
  • crank15
Antwortento top
#4
Hallo,

Code:
    strVerzeichnis = "D:\Eigene Dateien\Hajo\"
    StrTyp = "*.xls"

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • crank15
Antwortento top
#5
Code:
Und verwende bitte Code Tags

Alternative:

Code:
Sub M_snb()
  MsgBox "Die jüngste Datei in " & Application.DefaultFilePath & " ist " & Split(CreateObject("wscript.shell").exec("cmd /c dir """ & Application.DefaultFilePath & "*.xlsx"" /b/o-d").stdout.readall, vbCrLf)(0)
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Benutzer sagt Danke an snb für diesen Beitrag:
  • crank15
Antwortento top
#6
Erstmal vielen Dank für die Antworten.

Eigentlich wollte ich das er mit die jüngste Datei öffnet. Stattdessen kommt nur ein pop up fenster der mir das mit den namen von der jüngsten Datei ausgibt

Hat sich erledigt vielen Dank!!
Antwortento top
#7
Code:
Sub M_snb()
  workbooks.open Application.DefaultFilePath & Split(CreateObject("wscript.shell").exec("cmd /c dir """ &
Application.DefaultFilePath & "*.xlsx"" /b/o-d").stdout.readall,
vbCrLf)(0)
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste