ich habe einen Code geschrieben um bis zu 4 Bilder zu löschen, das klapt auch, und zusätzlich soll noch der Inhalt von 4 zellen gelöscht werden, weil dort der name der Bilddatei steht. Mit meinem Code (?) wird aber die komplette zelle gelöscht, nicht der Inhalt.
Gruss Jürgen
Sub Bilder_löschen()
Dim bytBild As Byte
Dim zeile As String
zeile = 28
Dim RaBereich As Range
? Set RaBereich = Range(„D28,D52,D76,D100“)
? For bytBild = 1 To 4
? ActiveSheet.Cells(zeile, 4) = „“
? zeile = zeile + 24
Next bytBild
Dim shpBild As Shape
On Error GoTo Ende
Application.ScreenUpdating = False
For Each shpBild In ActiveSheet.Shapes
If shpBild.Type = msoPicture Or shpBild.Type = msoGroup Then
shpBild.Delete
End If
Next
Ende:
Application.ScreenUpdating = True
bei mir lösch dein Code nur dieInhalte bzw. schreibt Leerstringsrein.
Allerdings sollte man Zahlen auch als solche deklarieren (Long oder Double) und nicht als String - in deinem Fall „Zeile“.
Auch die folgende Anpassung funktioniert.
Gruß
Franz
Sub Bilder\_löschen()
Dim bytBild As Byte
Dim RaBereich As Range
Set RaBereich = Range("D28,D52,D76,D100")
RaBereich.ClearContents
Dim shpBild As Shape
On Error GoTo Ende
Application.ScreenUpdating = False
For Each shpBild In ActiveSheet.Shapes
If shpBild.Type = msoPicture Or shpBild.Type = msoGroup Then
shpBild.Delete
End If
Next
Ende:
Application.ScreenUpdating = True
End Sub