Hallo,
Ich habe ein Excelsheet, in dem sich in bestimmten Zeilen, immer in der gleichen Spalte, Bilder befinden. Diese habe ich über folgenden Code eingebunden (falls das wichtig ist)
'#### ab hier Fotoupload
Sheets("Mängel Übersicht").Rows(intErsteLeereZeile).RowHeight = 70
'On Error GoTo ERR
Dim DDDD As String
Dim CCCC As Range
Dim GGGG As Double
Dim SEGG
Sheets("Mängel Übersicht").Activate
For Each SEGG In ThisWorkbook.Worksheets("Mängel Übersicht").Shapes
If Not Intersect(SEGG.TopLeftCell, ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)) Is Nothing Then SEGG.Delete
Next SEGG
Set CCCC = ThisWorkbook.Worksheets("Mängel Übersicht").Cells(intErsteLeereZeile, 8)
DDDD = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(DDDD, 3)
Case "ani", "apng", "jpeg", "jpg", "png"
ThisWorkbook.Worksheets("Mängel Übersicht").Pictures.Insert(DDDD).Select 'hier stimmt irgendwas nicht
With Selection.ShapeRange 'sobald ein anderes Arbeitsblatt aktiv ist, kommt hier eine Fehlermeldung. Wahrscheinlich ist die Zuweisung falsch
.Top = CCCC.Top
.Left = CCCC.Left
GGGG = WorksheetFunction.Min(CCCC.Width / .Width, CCCC.Height / .Height)
.Height = .Height * GGGG
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt", 48, "Bild einfügen"
End Select
'Exit Sub
'ERR:
Sheets("Startbildschirm").Select
Unload frmEingabe 'Formular Eingabe wird geschlossen
An anderer Stelle möchte ich dann Zählen, in welchen Zeilen sich keine bilder befinden. Dazu habe ich diesen Code benutzt
If Cells(zeilenzähler, 8) <> "" Then MsgBox Test
anscheind zählt ein Foto aber nicht als Inhalt, denn auch Zeilen, die nicht "", also leer, sein dürften, werden mir als ohne Foto angezeigt.
Kann ich auf andere Art erkennen lassen, ob sich schon ein Foto in der Zelle befindet?
|