Bild einfügen wenn bestimmte Zellen gefüllt sind
04.07.2016 09:33:44
Rene
leider habe ich ein Problem:
Ich möchte wenn bestimmte Kritierien erfüllt sind das durch Marko ein Bild eingefügt wird.
Anbei die Zelle wo die Kriterien zutreffen.
Die Bilder sollen aber in eine andere Tabelle eingefügt werden.
Die Bilder und der Zelleninhalt haben die gleichen Namen, bloss die Kritieren sind etwas schwierig.
1. Wenn Zelle B32 und B33 gefüllt sind soll er das Bild mit den Namen in Zelle B32 in Tabelle "Neues Layout" J9 einfügen
2. Wenn Zelle B32 gefüllt ist aber B33 leer ist dann soll er das Bild in Tabelle "Neues Layout" B9 einfügen
3.
1. Wenn Zelle B32 und B33 gefüllt sind soll er das Bild mit den Namen in Zelle B32 in Tabelle "Neues Layout" J9 einfügen und noch B38 dann das Bild noch in Tabelle" Neues Layout" B9
Anbei noch das Bild wo die Bilder reinkommen.
Ich wäre mit einer Formelauch zufrieden :)
Anbei der Code mit Buttonfuntktion, möchte es aber automatisiert haben :)
Private Sub CommandButton1_Click()
'Einfügen des Bildes der Faltschachtel
With Worksheets("Neues_Layout")
.Activate
.Range("B9").Select
If Application.Dialogs(xlDialogInsertPicture).Show Then
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = 195
.Width = 334
.ZOrder msoSendToBack
.Rotation = 0#
End With
.Range("B9").Select
End If
Sheets("Plan").Select
End With
End Sub
lg René
Anzeige