Prüfen ob Celle Leer
06.02.2018 09:18:42
Okan
ich würde gerne eine Prüfung über ein Makro vornehmen als if schleife.
Dabei will ich ein Bild aufrufen unter der Bedingung, dass Celle C7 & C8 mit Daten befüllt sind.
Hier mein aktueller Versuch.
Sub Bild_Einfügen()
If Range("C7:C8") = "" Then
MsgBox ("Bitte Cellen C7 & C8 mit Daten füllen.")
Else
Range("I12").Select
ActiveSheet.Pictures.Insert( _
"I:\Versuch_Okan\Bilder\" & Cells(8, 3).Value & ".JPG"). _
Select
Selection.ShapeRange.Reflection.Type = msoReflectionTypeNone
Selection.ShapeRange.Height = 220.7716535433
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 3.5
End With
End If
End Sub
Anzeige