Code ohne ActiveSheet
31.12.2019 13:55:29
veliks
ich möchte je nachdem welche Option gewählt wurde eine Liste ("MöglichkeitenListe") mit verschiedenen Möglichkeiten füllen. Diese Möglichkeiten habe ich in einer Tabelle ("Daten") in verschiedenen Spalten hinterlegt. Da es für jede Option unterschiedlich viele Möglichkeiten und damit auch unterschiedliche Spaltenlängen gibt, will ich die Ausgabe der Spalteninhalte variabel gestalten. Mit dem Code unten funktioniert das auch einwandfrei.
Jetzt meine Frage: Gibt es die Möglichkeit den Code unten auch ohne ActiveSheet zu schreiben? _ Also dass ich nicht extra die Tabelle mit den Möglichkeiten aktivieren muss sondern in meinem ursprünglichen Sheet bleibe? Hab es bis jetzt nicht hinbekommen..
Worksheets("Daten").Activate
'Liste mit Möglichkeiten füllen je nachdem was gewählt wurde
If option1 = True Then
Möglichkeiten.MöglichkeitenListe.RowSource = "A3:A" & ActiveSheet.Cells(Cells.Rows.Count,1).End(xlUp).Row
Vielen Dank und Liebe Grüße :)