Automatisches Ausfüllen über Drop Down

[Franke]

Hallo

ich habe eine Tabelle wo ich meine Arbeitszeiten erfasse.
Im Feld Tätigkeiten kann ich über Dropdown verschiedenes auswählen.
Wenn ich jetzt " Urlaub " auswähle soll er mir in die Zeile D4 700 E4 1400 und F4 050 schreiben. wenn das Dropdown Feld Leer ist soll er nichts machen, da ich dann selber Daten eintrage.
Das Ganze zieht sich dann Tag für Tag durch

	B	C	D	E	F	G	H	I	J	K
2		Datum	Beginn	Ende	Pause	Wartezeit	Tätigkeit
3
4	Mo	31.12.2018
5	Di	01.01.2019
6	Mi	02.01.2019					Urlaub
7	Do	03.01.2019					Gleittag
8	Fr	04.01.2019					Seminar
9	Sa	05.01.2019					Feiertag
10	So	06.01.2019
11		Datum	Beginn	Ende	Pause	Wartezeit	Tätigkeit

[WillWissen]

Hi,

da sollte dir ein VBAler helfen, sofern du Makros einsetzen willst/kannst/darfst. Das wäre zwar alles mit einer Formel (SVERWEIS()) lösbar, ist aber die denkbar schlechteste Lösung, weil in einer Spalte entweder nur Formeln oder nur Werte stehen sollten.

[schauan]

Hallöchen,

alternativ kannst Du die Zellen auch leer lassen und in der Zusammenfassung z.B. mit Summenprodukt bei Urlaub die entsprechenden Stunden dazuzählen.

Ansonsten müssten Makros erlaubt sein und da wäre z.B. ein Ereignismakro interessant, welches bei Eintrag von Urlaub die anderen Daten einträgt
hier mal schnell geschrieben:

Code:

private sub worksheet_change(byval target as range)
'wenn spalte=8 (H) und nur eine zelle betroffen, dann
if target.column=8 and target.cells.count=1 then
'wenn der zellinhalt "Urlaub" ist, dann
if target.value="Urlaub" then
'4 zellen weiter links 700 eintragen
  target.offset(0,-4).value=700
'3 zellen weiter links 1400 eintragen
  target.offset(0,-3).value=1400
'2 zellen weiter links 50 eintragen
  target.offset(0,-2).value=50
'ende wenn der zellinhalt "Urlaub" ist, dann
end if
'ende wenn spalte=8 (H) und nur eine zelle betroffen, dann
end if
end sub

[Franke]

Hallo,
ich habe jetzt das Makro in Diese Arbeitsmappe eingefügt.
Doch da ändert sich nichts wenn ich In der Spalte 8 was auswähle.

[schauan]

Hallöchen,

das Makro gehört ins Tabellenblattmodul, wo es wirken soll.

[Franke]

Vielen Dank für die schnelle Lösung.
Funktioniert jetzt so wie ich es wollte.

Danke