Office: EXCEL_VBA-GültigkeitsListe zurücksetzen

Hi Leute,

habe mich mal vor einiger Zeit hier registriert und auch alleine schon einige Hilfe in älteren Beiträgen bei euch gefunden!

Nun habe ich aber eine frage die ich mit der SuFu nicht beantwortet bekommen habe...

Ich möchte eine Liste (DropDown-Menü) die über die Gültigkeitsprüfung erstellt wurde mit einem VBA befehl wieder zurück setzen.

Bedeutet konkret:
Wenn ich einen Button drücke soll die Liste an die erste verfügbare(zugewiesene) Zelle zurückspringen die angegeben ist!

Wenn zB der erste Begriff "Materialart" ist und dann eine Liste mit verschiedenen Arten aufgeführt ist, möchte ich bei Button.click das die Zelle "Materialart" anzeigt obwohl die Arbeitsmappe mit zB "Holz" geschlossen und gespeichert wurde.

Ist dies überhaupt möglich???

Gruß
DeliCJouS

 

Hallo DeliCJouS,

in Excel ist sehr viel möglich, nur ist mein Problem zur Zeit, dass ich überhaupt nicht verstehe, was genau Dein Problem ist. Kannst Du das genauer beschreiben?
Ich verstehe auch nicht, wie eine Liste irgendwohin zurückspringen soll. Kannst Du das näher erläutern?

 

Du weist wie man eine DropDown-(Menü)-Liste erstellt?

Du erstellst eine Tabelle mit deinen Menüpunkten:

Beispiel	A	B	C	D
1	Materialart	-----	-----	-----
2	Holz	400 l	30 qm	70 N
3	Stein	300 l	40 qm	800 N

Wenn du nun bei (ALT) Daten--> Gültigkeit...

unter zulassen Liste wählst und den Bereich A1:A3 zuordnest hast du in der Zelle wo deine Maus war ein DropDown Menü (DD), welches du über zB SVerweis noch so gestallten kannst das du die Daten neben dran dann diesem DD zugeordnet werden!

So, wenn du nun speicherst ab, bleibt da die Materialart Holz auch stehen!
Wenn ich nun eine größere Liste (DD) habe, so ab 50 Einträge möchte ich aber wenn ich dann neue Daten eingeben will das alle nicht benötigten DD's wieder auf Materialart zurückgesetzt werden!

Habe jetzt allerdings schon eine möglichkeit gefunden wie ich das mache... man sollte immer an das einfache zuerst Denken und nicht so kompliziert :-D
VBA code:
Range("C24").Select
Selection.Value = "Materialart"
Range("C25").Select
Selection.Value = "Materialart"

damit klappt es... auch wenn es warscheinlich nicht das beste ist!!! :-D
Aber bin selber auch kein crack

Gruß
DeliCJouS

 

Hallo!

Das geht dann tatsächlich etwas schneller:

Range("A1:A9, C2:C5") = "abc"

füllt beide (oder auch mehr) angegebenen Bereiche mit dem entsprechenden String.

 

aha... ein komma dazwischen... in meiner ausführung war ein kleiner aber feiner unterschied... und zwar wie in Excel ein semikolon , hat dann also daher nicht funktioniert!

Vielen Dank für die Korektur und Hilfe "Schatzi"

Greetz