Office: Wert einer Zelle auslesen + in entsprechendes Blatt kopieren

Hallo zusammen!

Ich habe eine Excel Arbeitsmappe mit den Tabellenblättern:

Übersicht, Verantwortlicher1, Verantwortlicher2, Verantwortlicher3, Verantwortlicher4, Verantwortlicher5, Verantwortlicher6 und Hilfstabelle.

In der Hilfstabelle stehen die Werte von 3 Drop-Down-Feldern, die ich über Namen und Liste definiert habe.

In die Übersicht werden nun Arbeitsanweisungen in je eine Zeile eingetragen und der Bearbeiter und der Zuarbeiter über Drop-Down-Boxen ausgewählt.

Nun brauche ich ein Makro, das jede Zeile der Übersicht bis Spalte K kopiert, und je nach Wert in Spalte G und H (Bearbeiter und Zuarbeiter) die Zeile (aber nur bis K) in die entsprechenden Tabellenblätter der Verantwortlichen einfügt.

Also wenn z.B. Wert in G2 = Verantwortlicher 2 dann in Tabellenblatt "Verantwortlicher2" kopieren UND wenn Wert in H2 = "Verantwortlicher1" in das entsprechende Tabellenblatt kopieren.

Dies dient dazu, dass jeder Verantwortliche SEINE Aufgaben in seinem eigenen Tabellenblatt übersichtlich aufgelistet hat.

Ich hoffe Ihr könnt mir dabei helfen!

Vielen Dank im Voraus!

 

Hallo!

Falls deine Liste nicht allzu umfangreich ist, dann könntest du das auch noch ohne VBA machen.
Schau mal hier.
Wie du siehst, werden alle Zeilen mit "x" (in deinem Fall also "Verantwortlicher2") hübsch untereinander in die Spalte D (in deinem Fall also Blatt "Verantwortlicher2") übernommen.

 

Hmm wenn ich das richtig verstehe wird in dieser Lösung nur der übereinstimmende Begriff kopiert.

Ich benötige allerdings die ganze Zeile in der der Wert steht. Oder besser noch - die ganze Zeile von A - K.

Dies soll dazu dienen, dass jeder Verantwortliche seine EIGENEN Aufgaben in seinem Tabellenblatt ordentlich und übersichtlich aufgelistet hat, damit jeder von ihnen auf einen Blick sieht, was er noch zu tun hat, so dass nichts "übersehen" oder vergessen werden kann.

 

Hallo!

Welche und wie viele Spalten du übernehmen möchtest, bleibt dir selbst überlassen...
Du musst nur für jede zu übernehmende Spalte die Formel anpassen.

 

Hallo!

Andererseits ist es mit VBA wahrscheinlich wirklich einfacher...
Hier eine Variante über den Spezialfilter und die Definition eines dynamischen Bereichs (siehe dazu auch unter dynamischer Bereichsname)

 

Genau die Funktionalität dieser letzten Beispieldatei (brainz-1) brauche ich. Allerdings muss das Blatt "Übersicht" angepasst werden, d.h. ich benötige eine Menge weiterer Spalten mit Daten. Wie kann ich das bewerkstelligen, so dass die Funktion nicht verloren geht? Ich habe die halbe letzte Nacht herumgetüftelt, aber ohne Erfolg (naja, bin jetzt saumüde) und kenne mich mit Excel (übrigens 2007) gar noch nicht gut aus.

Gruß
Publisher

 

Hallo!

Dann musst du die entsprechenden Namen und Bereiche im Code auf deine Verhältnisse anpassen:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Übersicht" Then Exit Sub
Range("A5:E1000").ClearContents
Range("Liste").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A5:E5")
End Sub

"Übersicht" ist der Name des Quellblatts. In allen anderen Blättern der Mappe wird der Code ausgeführt, nur nicht hier.
"A5:E1000" ist der Bereich im Zielblatt, in dem du die Daten erwartest.
"Liste" ist ein in der Mappe (bzw. im Blatt "Übersicht") definierter Name. Siehe hierzu das Tutorial dynamischer Bereichsname.
"A1:A2" ist der Kriterienbereich für den Spezialfilter (A1: Spaltenüberschrift, A2: gesuchter Eintrag oder Wert).
"A5:E5" ist der Bereich im Zielblatt, in den die Überschriften kopiert werden sollen.

Mehr kann ich aus der Beschreibung deines Tabellenaufbaus nicht herauslesen...

 

Danke! Ich denke, mit diesen Erläuterungen müsste ich weiterkommen.

Was ich möchte:

Ein Werkzeug, mit dem ich aus einem Pool von Mitarbeitenden Teams zusammenstellen kann. Konkret würde das erste Blatt die "Mitarbeiterdaten" enthalten, die weiteren Blätter dann die aufgelisteten Teams. Wer in der Mitarbeiterdatenauflistung also der "Wohngruppe 32" zugeordnet ist, soll im entsprechenden Blatt "Wohngruppe 32" automatisch aufgelistet werden. Das wäre das Grundsätzliche.

Weiter geht es so:
Berechnungen in den generierten Listen, z.B. summierte Mitarbeiterwochenstunden oder die Fachkraftquote;
Sortierung nach Qualifikation, z.B. ganz oben die Fachkräfte, anschließend Hilfskräfte, anschließend Fachschüler, dann die Praktikanten;

Und das wäre die Krönung:
Eine Übersicht über kommende Teamveränderungen. Ideal wäre es, ich könnte die kommenden drei Jahre vorausplanen (Versetzungen, Neueinstellungen) und die jeweiligen Teamkonstellationen abbilden. Auswahl also nicht nur über ein Kriterium, z.B. "Wohngruppe 32", sondern auch z.B. Kriterium "ab Datum". Im Extremfall könnte es auch sein, dass ein MA innerhalb weniger Monate oder auch jährlich das Team wechselt. Das würde also auf Ergebnislisten hinauslaufen im Sinne von: Wer gehört am 01.09.08 zum Team "Wohngruppe 32" - Auflistung; Wer gehört am 01.09.09 zum Team "Wohngruppe 32" - Auflistung daneben usw.

Könnte schon ein wenig komplex sein, was ich mir da vorstelle... Wenn ich es mir recht überlege: die Sortierung wäre unwichtiger wie die Krönung.

Gruß
Publisher