HalloHallo!
245 |
4000 |
50 |
1 |
300 |
4000 |
63 |
2 |
420 |
4000 |
63 |
3 |
550 |
5000 |
63 |
4 |
420 |
5000 |
80 |
5 |
420 |
6300 |
80 |
6 |
Die ersten 3 Spalten sind über eine Dropbox einstellbar. Die 4. Spalte ist das Produkt, dass ich zum einen als Name in ein bestimmtes Feld auftauchen lassen möchte, zum anderen möchte ich eine Grafik erscheinen lassen. Wie mache ich das am Besten? Wie kann ich die Grafiken/Tabellen die ich habe, auf einem anderen Blatt ablegen? Möchte die Grafiken/Tabellen nicht auf dem selben Blatt(Worksheet heißt das glaub ich) haben.
Mit einer Variablen krieg ich das hin:
Private Sub ComboBox1_Change()
'Blendet die Zeilen der nicht benoetigten Varianten aus
'Application.ScreenUpdating = False
Range("A25").Select
anzahl = ActiveCell.Value
Select Case anzahl
Case "245":
Shapes("Bild 1").Visible = True
Shapes("Bild 2").Visible = False
Shapes("Bild 3").Visible = False
Case "300":
Shapes("Bild 1").Visible = False
Shapes("Bild 2").Visible = True
Shapes("Bild 3").Visible = False
Case "420":
Shapes("Bild 1").Visible = False
Shapes("Bild 2").Visible = False
Shapes("Bild 3").Visible = True
Case Else:
MsgBox "Diese Kombination der Werte ist unzulässig!"
End Select
End Sub
Habe If-Befehl ausprobiert, bekomm es aber nicht wirklich hin. Bitte um Hilfe! Vielen Dank!
|