ich komme leider doch nicht weiter, da ich zu wenig Ahnung mit Objecten habe. Ich möchte auf zwei Tabellen prüfen ob ein Bild vorhanden ist und wenn soll "Picture1" gelöscht werden und dafür "Picture43" an diese Stelle gesetzt werden. Anschliessend wird das ganze gespeichert und geschlossen. Es funktioniert auch vom Prinzip, nur an der Stelle "If o "" Then" muss es wohl mit einem Object anders heissen.
Private Sub CommandButton2_Click()
Dim Quelldatei As String
Dim i As Integer
Dim o As Object
Dim strVerzeichnis$, strDatei$
Application.ScreenUpdating = False
For i = 4 To 97
ActiveSheet.Shapes("Picture 43").Select
Selection.CopyPicture
Quelldatei = Tabelle1.Cells(i, 1)
Workbooks.Open Filename:=Quelldatei
On Error GoTo Errorhandler
Worksheets("Kopie Lfr.schein deutsch").Activate
Set o = Sheets(1).Pictures("Picture 1")
If o "" Then
ActiveSheet.Shapes("Picture 1").Select
Selection.Delete
Application.Goto Worksheets("Kopie Lfr.schein deutsch").Range("A1")
ActiveCell.Offset(0, 0).Range("A1").Activate ' "" Then
ActiveSheet.Shapes("Picture 1").Select
Selection.Delete
Application.Goto Worksheets("Kopie Lfr.schein franz.").Range("A1")
ActiveCell.Offset(0, 0).Range("A1").Activate '
Man kann das sicher anders und besser programmieren, aber so sehen meine Möglichkeiten im Moment aus. Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter