Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Prüfen ob Celle Leer
06.02.2018 09:18:42
Okan
Guten Tag,
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
Ich bedanke mich im Voraus.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Celle Leer
06.02.2018 09:26:00
Werner
Hallo Okan,
du kannst nicht einen Bereich auf leer prüfen, zumindest nicht auf deine Art. Wenn, dann z.B. so:
If Range("C7") = "" And Range("C8") = "" Then
Gruß Werner
AW: Prüfen ob Zellen Leer
06.02.2018 09:27:36
hary
Moin
If Application.CountA(Range("C7:C8"))  2 Then
MsgBox ("Bitte Cellen C7 & C8 mit Daten füllen.")
Else

gruss hary
AW: Prüfen ob Zellen Leer
06.02.2018 09:39:15
Okan
Guten Tag,
ich danke dir Hary und auch dir Werner für die schnellen und funktionierenden Antworten.
VG
Okan
Gerne u. Danke für die Rückmeldung. o.w.T.
06.02.2018 19:32:07
Werner
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige