Dateiendung abschneiden
RainerK
brauch zunächst eine allgemeine Information, da ich mir nun nicht sicher bin, ob das überhaupt so klappt.
Aktuell habe ich mir in einem ExcelSheet die Dateien aufgerufen und mittels "Bedingter Formatierung" ExcelDateien grün, PDF's rot hervorgehoben.
Da ich nun aber die Dateiendung weghaben wollte habe ich den Code
strFile = Dir$(strPath)
Do Until strFile = ""
lngRow = lngRow + 1
Set objCell = ActiveSheet.Cells(lngRow + firstCell, 6)
objCell.Hyperlinks.Add Anchor:=objCell, _
Address:=strPath & strFile, TextToDisplay:=" " & strFile
ActiveSheet.Cells(lngRow + firstCell, 6).Font.Underline = False
strFile = Dir
Loop
um die Zeile
strFile = Left(strFile, Len(strFile) - InStr(strFile, ".") - 2)
Do Until strFile = ""
ergänzt.
Nun wollte ich die Formel
'Wenn Endung .pdf
'ActiveSheet.Cells(lngRow + firstCell, 6).Font.Color = &HFF&
'...
anhängen.
Da ich mir oben aber die Endung genommen habe würde das ja nicht mehr funktonieren.
Geht das trotzdem über VBA?
Gruß Rainer