Office: (Office 2010) Zellenposition an Bedingungen knüpfen

Hallo zusammen

Ich habe folgendes Problem:

Ich habe eine Excel-Liste, in der Stammdaten von Mitarbeitenden aufgeführt sind und zu denen manuell Kommentare verfasst werden können. Im zweiten Tabellenblatt befindet sich die Personalstammliste (aus dem firmeninternen System gezogen). Die Personalnummern aus der Stammliste werden jeweils mittels Makro in das erste Tabellenblatt kopiert. Alle Stammdaten im Tabellenblatt 1 werden dann mit einem SVERWEIS (Suchkriterium Personalnummer) aus der Stammliste geholt.

Der Sinn dahinter ist, dass sich der Personalstamm jederzeit aktualisieren lässt. Jedoch jetzt folgendes Problem:

Wenn man z.B hinter MiA 1 einen Kommentar schreibt, dann kann es passieren, dass sich bei der Aktualisierung der Stammliste die Position verschiebt und somit nicht mehr der passende Kommentar dahintersteht.

Ist es also möglich die Bemerkungszellen quasi an die Personalnummer zu binden / einfrieren?

Um es verständlicher zu machen, habe ich die Liste in den Grundzügen erstellt. Beim Original handelt es sich um ca. 800 Personen mit jeweils 12 Spalten (Adresse, Vertragsart etc.).

Für Ideen, Anregungen und Alternativen bin ich offen.

Vielen Dank

Liebe Grüsse

Den Anhang Mappe1.xlsm betrachten

 

Hallo,

in der beiliegenden Datei habe ich ein weiteres Makro namens "ImportPers_Kontrolliert" hinzugefügt.
Dieses ist gedacht, es anstelle des bisherigen Makros "ImportPers" auszuführen.

Es überprüft die im Arbeitsblatt "Personalstammdaten" in Spalte A enthaltenen Personalnummern, ob sie im Arbeitsblatt "Tabelle1" in Spalte A enthalten sind: Ist eine Personalnummer dort nicht enthalten, wird eine Leerzeile eingefügt mit der Personalnummer und den nötigen Formeln für die Spalten B:H, während die Kommentarspalten der nachfolgenden Spalten leer belassen werden.

Bisher existierende Einträge im Arbeitsblatt "Tabelle1" (Personalnummer in Spalte A, Formeln in den Spalten B:H, Kommentare der folgenden Spalten) bleiben unverändert erhalten.

Voraussetzung für das Funktionieren des Makros:
1) Die Auflistung der Personalnummern in beiden Arbeitsblättern muss in ansteigender Reihenfolge erfolgen.
2) Die Personalnummern müssen numerisch sein (und kleiner 2147483647).

Falls du andere Namen für "Tabelle1", "Personalstammdaten" vergeben möchtest, habe ich die entsprechenden Stellen dafür gekennzeichnet.
Falls die Anzahl der Spalten mit Formeln in "Tabelle1" (bisher die Spalten B:H) zu ändern ist, so habe ich auch die Stelle im Makro gekennzeichnet (statt der 8 bei ColumnSize eine 12, falls die Spalten B:L Formeln enthalten und erst ab Spalte M der Kommentar folgt).

Code:

'Die Formeln der ersten 8 Spalten (A:H) werden kopiert/eingefügt in die eingefügte Leerzeile:
rgBmNr.Resize(RowSize:=1, ColumnSize:=8).Copy