letztes Wort abschneiden - Korrektur
05.07.2021 09:53:38
Christian
ich bitte um eure Hilfe. Wie muss ich das Makro abändern, damit von jedem Text, den es in Spalte A ausgibt, das letze Wort gelöscht wird, sowie von jedem Text der in Spalte B ausgegeben wird, die letzten 4 Zeichen.
Danke für eure Hilfe
Christian
Public Sub DateienAuflisten()
Dim blnFound As Boolean
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim objDrives As Object
Dim objDrive As Object
Set objFileSystem = CreateObject(Class:="Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("D:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If objDatei.Name Like "MRS*" Then
lngZeile = lngZeile + 1
Cells(lngZeile, 1) = objDatei.Name
End If
Next objDatei
Set objDrives = objFileSystem.Drives
For Each objDrive In objDrives
If objDrive.DriveLetter = "F" Then
blnFound = True
Set objDrive = Nothing
Exit For
End If
Next
If blnFound Then
lngZeile = 0
Set objVerzeichnis = objFileSystem.GetFolder("F:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
lngZeile = lngZeile + 1
Cells(lngZeile, 2) = objDatei.Name
Next objDatei
End If
Set objDrives = Nothing
Set objVerzeichnis = Nothing
Set objDateienliste = Nothing
Set objFileSystem = Nothing
End Sub