per VBA Grafik ausblenden
Hallo an Euch,
ich habe ein Makro geschrieben. Dieses soll in Abhängigkeit der Zelle B8 die eingefügte Grafik ändern. Das heißt: Inhalt B8 = 1, dann Bild 57, Inhalt B8= 2 dann Bild 58 und Inhalt B8 = 3 oder 4 dann Bild 59.
So die Theorie und hier mein Versuch:
Private Sub Worksheet2_change()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Glasbestellung") '<<< Tabelle mit den Bildern
If Range("$B$8").Value = "1" Then
ws.Shapes("Bild 57").Visible = True
Else
ws.Shapes("Bild 57").Visible = False
End If
If Range("$b$8").Value = "2" Then
ws.Shapes("Bild 58").Visible = True
Else
ws.Shapes("Bild 58").Visible = False
End If
If Range("$b$8").Value = "3" Or Range("$b$8").Value = "4" Then
ws.Shapes("Bild 59").Visible = True
Else
ws.Shapes("Bild 59").Visible = False
End If
End Sub
Ergebniss: keines
Alle Bilder sind in Excel als Grafik eingefügt und habe die Nummern (Bild 57-Bild 59) erhalten. Ich habe zur Zeit alle nebeneinander, aber es passiert nicht
Kann mir jemand helfen?
gegooglelt?? Dies ist das Ergebnis meines googelns
DANKE
ich habe ein Makro geschrieben. Dieses soll in Abhängigkeit der Zelle B8 die eingefügte Grafik ändern. Das heißt: Inhalt B8 = 1, dann Bild 57, Inhalt B8= 2 dann Bild 58 und Inhalt B8 = 3 oder 4 dann Bild 59.
So die Theorie und hier mein Versuch:
Private Sub Worksheet2_change()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Glasbestellung") '<<< Tabelle mit den Bildern
If Range("$B$8").Value = "1" Then
ws.Shapes("Bild 57").Visible = True
Else
ws.Shapes("Bild 57").Visible = False
End If
If Range("$b$8").Value = "2" Then
ws.Shapes("Bild 58").Visible = True
Else
ws.Shapes("Bild 58").Visible = False
End If
If Range("$b$8").Value = "3" Or Range("$b$8").Value = "4" Then
ws.Shapes("Bild 59").Visible = True
Else
ws.Shapes("Bild 59").Visible = False
End If
End Sub
Ergebniss: keines
Alle Bilder sind in Excel als Grafik eingefügt und habe die Nummern (Bild 57-Bild 59) erhalten. Ich habe zur Zeit alle nebeneinander, aber es passiert nicht
Kann mir jemand helfen?
gegooglelt?? Dies ist das Ergebnis meines googelns
DANKE
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 96594
Url: https://administrator.de/contentid/96594
Ausgedruckt am: 05.11.2024 um 23:11 Uhr
6 Kommentare
Neuester Kommentar