https://www.herber.de/bbs/user/87282.xlsm
In einer Excel Arbeitsmappe hab ich eine Auflistung verschiedener Datensätze und Links.
Die Arbeitsmappe wird laufend um neue Einträge erweitert.
Nun möchte ich mittels Makro folgendes bewerkstelligen:
Bei jedem Speichern des Tabellenblatts Tabelle1 soll bei allen vorhandenen Datensätzen geprüft werden, ob in
der Spalte "D" ein Hyperlink dasteht. Wenn ja, dann soll geprüft werden, ob in diesem Hyperlink eine Dateiendung steht.
Wenn ja, dann soll die Datei-Endung in die Spalte P geschrieben werden.
Wenn nein, dann steht in Spalte P eben nichts.
Leider reicht mein Wissen wohl nicht, um aus folgendem Code (bloss ne Idee) etwas brauchbares zu basteln.
Daher erhoff ich mir Hilfe.
Vielen Dank
Private Sub Worksheet_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveSheet
For liRow = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
'wenn in der gerade aktuellen Zeile in der Zelle in Spalte D ein Wert steht,...
If .Range("D" & liRow).Hyperlinks.Count = 1 Then
'...dann wird aus dem Hyperlink der Dateityp ermittelt.
'Hyperlink-prüfen ob Dateiendung drin
End If
Next
End With
End Sub