VBA: Stammtabelle in Einzeltabellen splitten

Guten Tag in die Runde,
ich habe eine, für mich schwere, Aufgabe vor mir:
Mir liegt eine Stammdatentabelle vor, die dem nachfolgendem Schema entspricht (es gibt insgesamt 38 Spalten und knapp 200 Zeilen, ich benötige alle Zeilen aber nur Spalte A, B & C):
A B C
P.Nr. Name Abteilung
1 Name1 Abt.1
2 Name2 Abt.1
3 Name3 Abt.1
4 Name4 Abt.2
5 Name5 Abt.2
6 Name6 Abt.2
7 Name7 Abt.3
8 Name8 Abt.3
9 Name9 Abt.4
Für jede Abteilung (insgesamt 12) habe ich eigene Tabellen mit vorgefertigten Berechnungen. Aktuell muss ich die Stammdaten alle paar Tage manuell aktualisieren, um den aktuellen Personalstamm vorliegen zu haben.
Ist es per VBA möglich, durch einen Button alle Mitarbeiternamen & Personalnummern automatisch anhand der Zuordnung "Abteilung" in die "richtigen" Tabellen zu schieben?
In der Stammtabelle stehen in
Spalte A: Personalnummer
Spalte B: Name
Spalte C: Abteilung
Jede der 12 Tabellenblätter der Abteilungen ist identisch aufgebaut, nur die Anzahl Zeilen ändert sich anhand der Anzahl Mitarbeiter...
In diesen Tabellen müsste:
Name in Spalte B, Zeile 8
Personalnummer in Spalte B, Zeile 9
Abteilung benötige ich nicht
In Spalte B, Zeile 10 der nächste Mitarbeitername und daraufhin in Spalte B, Zeile 11 die dazugehörige Personalnummer (und so weiter bis zu 30 Einträge für die größte Abteilung).
Ich habe mir diverse Möglichkeiten und "Vorlagen" getestet - da dies aber sehr speziell ist, finde ich nichts was ich mit meinem Laienwissen entsprechend umbasteln könnte... :(
Ich bedanke mich bereits herzlich für jegliches Feedback. :)
Beste Grüße,
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

So, sorry für die Verzögerung.
Ich habe die Datei nun abgespeckt und alle persönlichen Daten entfernt.
Zur Erklärung:
Tabelle 1: "Import" - dort muss der Excel-Export aus dem anderen System einfach reinkopiert werden - habe Testdaten im Format welches mir im Export vorliegt eingetragen (dies sind Einsatzseiten pro Wochentag, der Plan wird wöchentlich erstellt).
Tabelle 2: "Stammdaten" - dies sind die Stammdaten aus dem anderen System, welche mit dem Import die neuen Dateien erzeugen soll.
Tabelle 3,4 &5: "Abt0x" - die Abteilungen.
Dort muss aktuell noch in Spalte B der Name und DARUNTER die PersoNr stehen. Zur Not kann ich das Morgen noch ändern... Wenn es so wie aktuell geht, wäre es perfekt wegen dem Rest des Formats (alle anderen Spalten sind irrelevant, die Berechnung klappt - nur in der abgespeckten Version sind einige Sachen nicht korrekt).
Also Ziel ist es:
In der Import Datei stehen Name + PersoNr und die Einsatzzeiten je Tag (MO - So).
Die Stammdaten beinhalten Informationen wie: Welche Abteilung, Wochenarbeitstunden, Arbeitstage, etc... hier wollte ich die Abteilung mit dem Namen / PersoNr aus dem Import für die Zuordnung verknüpfen (das schaff ich halt nicht). :(
In den Abt0x Tabellen werden der Name + PersoNr automatisch den Abteilungen zugeordnet, so dass danach die Formeln - welche bereits vorhanden sind - alles ausrechnen und der Plan gedruckt werden kann.
Ich hoffe, dies ist einigermaßen verständlich. :)
Bereits vielen, vielen Dank für jegliche Hilfe. :)
Hier die Datei, musste leider .zippen, da es mehr als 300kb sind:
https://www.herber.de/bbs/user/131336.zip

Sub KopierenWertAbt02(wks As String) Sheets("Abt02").Select Sheets("Abt02").Range("C8:C13").Copy 'Ist doch leer Sheets("Abt02").Range("AC8:AC13").PasteSpecial xlPasteValues '"C8:C13" wird auf "AC8: _ AC13" kopiert? Alles auf dem gleichen Blatt? Dim zelle As Range For Each zelle In Sheets("Abt02").Range("AC8:AC13") zelle.Value = zelle.Value 'Ist doch schon alles Value (dank PasteSpecial _ xlPasteValues) Next End Sub

Beliebteste Forumthreads (12 Monate)

VBA: Stammtabelle in Einzeltabellen splitten

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Stammtabelle in Einzeltabellen splitten

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread