Hallo Ihr!
Gut das es dieses Forum gibt!
245 4000 50 1
300 4000 63 2
420 4000 63 3
Das ist eine Tabelle, die Kommas trennen die Zeilen in Spalten.
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(linke Spalte) krieg ich das hin:
Private Sub ComboBox1_Change()
'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
In Feld A25 hab ich über die Dropbox den Wert reingeschrieben. Jetzt fehlen mir die anderen beiden Spalten. Kann ich das irgendwie über ne IF-Funktion machen?
Edit by ~blaze~:
Falsches Unterforum
-->*Thema aus Grundlagen verschoben*
Gut das es dieses Forum gibt!
245 4000 50 1
300 4000 63 2
420 4000 63 3
Das ist eine Tabelle, die Kommas trennen die Zeilen in Spalten.
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(linke Spalte) krieg ich das hin:
Private Sub ComboBox1_Change()
'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
In Feld A25 hab ich über die Dropbox den Wert reingeschrieben. Jetzt fehlen mir die anderen beiden Spalten. Kann ich das irgendwie über ne IF-Funktion machen?
Edit by ~blaze~:
Falsches Unterforum
-->*Thema aus Grundlagen verschoben*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Andyvankenandy“ ()