Bild per Makro löschen

Hallo Felix,
<br />probiere es mal so:
<br />

Sub Loeschen()

Dim Datei As String

Datei = "C:\Users\maxm\OneDrive - HAWE \General\Produktivität681.png"

Kill Datei

End Sub

Sollte das auch nicht funktionieren, überprüfen mal den Dateinamen.
<br />Claus
<br />

Hallo Stefan,



probiers mal so:



Sub Umbenennen()

Dim Pfad As String

Dim FN As String

Dim objFSO As Object

Dim objOrdner As Object

Dim objDatei As Object

Dim LRow As Long

Pfad = "C:\Test\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objOrdner = objFSO.GetFolder(Pfad)

With ActiveSheet

LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For Each objDatei In objOrdner.Files

FN = objDatei.Name

If WorksheetFunction.CountIf(.Range("A1:A" & LRow), FN) = 1 Then

objDatei.Name = WorksheetFunction _

.VLookup(FN, .Range("A1:B" & LRow), 2, 0)

End If

Next

End With

End Sub



Mit freundlichen Grüßen

Claus

Hallo Claus, Hallo Uwe,

funktioniert beides einwandfrei. Danke!

Stefan

Hallo,

markiere zunächst die Zellen mit den Bildernamen in Spalte A und starte anschließend das folgende Makro:

Sub Umbenennen()

Dim rngZelle As Range

For Each rngZelle In Selection.Cells

Name "C:\Test\" & rngZelle.Value As "C:\Test\" & rngZelle.Offset(0, 1).Value

Next



End Sub

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln



---

at-exceltraining.de

Hallo

Wir haben nicht herausgefunden an was es liegt. Jedoch haben wir jetzt einen Workaround gefunden, wie wir das Bild immer einfügen kann. Wir haben per Makro und VBA (control As IRibbonControl) gemacht.

Trotzdem vielen Dank.

Einen schönen Nachmittag.