AW: Bilder (Grafiken) dynamisch einfügen
07.01.2022 10:13:56
Pierre
Hallo Edmund,
ui ui ui...bissl chaotisch dein VBA (bzgl. der ganzen (größtenteils leeren) Module usw) ;-)
Also:
1. vorsichtshalber würde ich die Zellverbindung in B11 auf dem Blatt "Druck_Wert1914" rausnehmen...weiß zwar nicht, ob das in dem Falle wirklich negativ ist, aber ich hab es jetzt mal gemacht.
2. Kopiere alle deine Bildchen in das Blatt "Druck_Wert1914", verschiebe die alle in den gelben Bereich.
3. Folgendes Makro im Modul des Tabellenblattes "Druck_Wert1914" einfügen:
Private Sub Worksheet_Calculate()
Dim sh As Shape
For Each sh In ThisWorkbook.Worksheets("Druck_Wert1914").Shapes
sh.Visible = False
Next sh
Select Case Worksheets("Druck_Wert1914").Range("K5").Value
Case 12 'Mit Keller, Ohne DG, 3 Etagen
Shapes("Gruppieren 118").Visible = True
Case 11 'Mit Keller, Ohne DG, 4 Etagen
Shapes("Gruppieren 11").Visible = True
Case 10 'Mit Keller, Ohne DG, 5 Etagen
Shapes("Gruppieren 10").Visible = True
Case 18 'Mit Keller, DG nicht ausgebaut, 3 Etagen
Shapes("Gruppieren 145").Visible = True
Case 17 'Mit Keller, DG nicht ausgebaut, 4 Etagen
Shapes("Gruppieren 17").Visible = True
Case 16 'Mit Keller, DG nicht ausgebaut, 5 Etagen
Shapes("Gruppieren 164").Visible = True
Case 24 'Mit Keller, DG ausgebaut, 3 Etagen
Shapes("Gruppieren 196").Visible = True
Case 23 'Mit Keller, DG ausgebaut, 4 Etagen
Shapes("Gruppieren 186").Visible = True
Case 22 'Mit Keller, DG ausgebaut, 5 Etagen
Shapes("Gruppieren 22").Visible = True
End Select
End Sub
Ich habe da jetzt natürlich nicht alle drin, die fehlenden kannst du aber nach dem obigen Schema als weitere Cases erweitern.
Du musst natürlich schauen, welches Bild wie genau heißt und dies der Zahl, die in K5 ermittelt wird zuordnen. Das schaffst du dann aber selbst, denke ich.
Gruß Pierre