17.09.2020, 23:33
(Dieser Beitrag wurde zuletzt bearbeitet: 18.09.2020, 10:30 von WillWissen.
Bearbeitungsgrund: Schriftgröße, unnötige Leerzeilen entfernt & Codetags
)
Guten Abend zusammen,
ich habe eine ``kleine´´Aufgabe bekommen und habe sogar meinen ehemaligen Excel Dozenten gefragt und der konnte mir leider auch nicht weiter helfen, also versuche ich hier mein Glück. Also folgende Aufgabenstellung:
Ich habe 2 verschiedene Worksheets, in dem ersten habe ich 4 verschiedene Sorten: Banane, Äpfel, Kirsche und Beere. Im 2. Worksheet habe ich zu jeder Frucht mehrere Eigenschaften. Diese Eigenschaften sollen im 1. Sheet angezeigt werden, wenn die jeweilige Frucht im Dropdown mit Ja ausgewählt worden ist, bei einem Nein, soll von dieser Frucht gar nichts angezeigt werden.
Hiermit habe ich schon mein Glück versucht, leider klappt es (noch) nicht, arbeite auch jetzt zum ersten mal mit VBA.
VIELEN DANK SCHON MAL IM VORRAUS
ich habe eine ``kleine´´Aufgabe bekommen und habe sogar meinen ehemaligen Excel Dozenten gefragt und der konnte mir leider auch nicht weiter helfen, also versuche ich hier mein Glück. Also folgende Aufgabenstellung:
Ich habe 2 verschiedene Worksheets, in dem ersten habe ich 4 verschiedene Sorten: Banane, Äpfel, Kirsche und Beere. Im 2. Worksheet habe ich zu jeder Frucht mehrere Eigenschaften. Diese Eigenschaften sollen im 1. Sheet angezeigt werden, wenn die jeweilige Frucht im Dropdown mit Ja ausgewählt worden ist, bei einem Nein, soll von dieser Frucht gar nichts angezeigt werden.
Hiermit habe ich schon mein Glück versucht, leider klappt es (noch) nicht, arbeite auch jetzt zum ersten mal mit VBA.
Code:
(Sub Anzeigen()
Dim Banane As String
Dim Apfel As String
Dim Kirsche As String
Dim Beere As String
Worksheets("Zutaten").Select
If Cells(13, 3).Value = Ja Then
Banane = Range("Bereich1")
ElseIf Cells(14, 3).Value = Ja Then
Apfel = Range("Bereich2")
ElseIf Cells(15, 3).Value = Ja Then
Kirsche = Range("Bereich3")
ElseIf Cells(16, 3).Value = Ja Then
Beere = Range("Bereich4")
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Frucht
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Hinweistext
End Sub
VIELEN DANK SCHON MAL IM VORRAUS