Office: Seite wechseln mit VBA

hay!
Ich habs nun herausbekommen.
Er wollte wirklich die Dropdownliste nicht haben.
Ich hab nun einen Umweg über eine Wenn-Formel gemacht und nun funktioniert es.

Vielen lieben Dank nochmal.

Ich hätte da aber noch ein folgeproblem:
Und zwar wenn ich auf das Inhaltsverzeichnis zurückspringe, springt er ja automatisch wieder in das angegebene Blatt. Kann man noch irgendein Makro dazu schreiben in dem die Dropdown Liste wieder auf "null" gestellt wird?
Also meine Liste hat eine Gültigkeit von Zelle M1- M27 wobei die Zelle M1 leer ist.
Kann man ein Makro mit einbauen das der Liste sagt, es soll nach der auswahl gleich wieder auf Zelle M1 springen (Natürlich ohne in das Inhaltsverzeichnis zurück zu springen)?

mfg
adpar

 

Hallo,

angenommen, Dein DropDown-Feld befinde sich in Zelle A3 des Arbeitsblattes 'Tabelle2' und in Bereich M1:M27 sei der dazugehörige Listenbereich angelegt, wobei in M1 sich eine leere Zelle befinde.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [A3] = [M2] Then
    Worksheets("Tabelle1").Activate
    ActiveSheet.Range("B3").Select
    Range("Tabelle2!A3").Value = ""
  End If
End Sub

Dieses Makro führt einen Sprung zur Zelle Tabelle1!B3 aus, falls im DropDown-Feld Tabelle2!A3 der 2. Listeneintrag (entspricht dem Inhalt von Tabelle2!M2) ausgewählt wurde und die aktive Zelle in eine andere Zelle (als A3) verschoben wurde.
Daraufhin wird der Wert von Zelle Tabelle2!A3 auf einen leeren Zeichenwert gestellt (Range("Tabelle2!A3").Value = "" ), sodass bei einer späteren Rückkehr ins Arbeitsblatt 'Tabelle2' in Zelle A3 der 1. Listenwert (nämlich der Leerwert) angezeigt wird.

Du kannst statt Range("Tabelle2!A3").Value = "" auch einfach nur [Tabelle2!A3] = "" schreiben.

 

Perfekt!!!

Vielen vielen lieben Dank.
Nun kann ich endlich (nach einem halben Jahr rumprobieren) den Rest machen.
Ihr seid alle Spitze.

MFG
adpar