Office: (Office 2013) Makro Schritt überspringen wenn Bedingung nicht erfüllt

Hallo zusammen,

ich habe folgendes Anliegen.

Ich bearbeite eine Excel Liste mit Fehlermeldungen der Stempelzeiten einiger Mitarbeiter.

Diese Liste bereite ich auf und sende sie dann den zugehörigen Führungskräften zu.

Um dies zu erleichtern soll die Zuteilung der Mitarbeiter per Makro geschehen.

In dem Feld Kommentar soll der Name der zugehörigen Führungskraft geschrieben werden.

Die Zuteilung mache ich anhand der Personalnummern. Das funktioniert auch schon wunderbar solange mindestens ein Mitarbeiter jeder Führungskraft zugeordnet werden kann.

Wenn jetzt allerdings von einer Führungskraft kein Mitarbeiter aufgelistet wird schreibt das Makro dessen Namen fortlaufend in die ganze Tabelle.


Gibt es hier eine Möglichkeit dies zu verhindern?

Um es verständlicher zu machen habe ich mal ein Bespiel angehängt.

Hier ist von der Führungskraft 1 kein Mitarbeiter aufgelistet.

Dieser soll also nicht in den Kommentaren auftauchen.

Die Mitarbeiter der Führungskräfte 2 und 3 sollen aber weiterhin verteilt werden.

Vielen Dank im Voraus

 

Hallo,

in der beiliegenden Excel-Datei habe ich dir dein Makro für Schaltfläche1 so modifiziert, dass es funktionieren müsste. Darüber hinaus habe ich es kompakter gemacht, indem ich die wiederholten Anweisungen in einem Unterprogramm verpackt habe.

Mir ist zwar nicht klar, wozu die Leerzeilen in der Listtabelle "Tabelle3" gut sind. Denn bei Tabellen dieses Typs kann man, falls weitere Zeilen (Sätze) angefügt werden müssen, diese nach der letzten Tabellenzeile ergänzen, wobei sich die Tabelle automatisch um diese Zeilen erweitert. Aus diesem Grund habe ich ebenfalls im Makro die vorgefundenen fixen Bereichsangaben umgestellt auf Listobject-Angaben für "Tabelle3".

So wie das Makro jetzt ist, musst du die Kombinationen aus PersNr.2 und Vorgesetzten ins Makro eingeben und dort warten. Ich weiß nicht, wie wünschenswert du das auf Dauer hältst. Wäre es nicht besser, im Arbeitsblatt (oder in einem 2. Arbeitsblatt) eine Listtabelle zu platzieren? Ich habe dir eine solche eingefügt (Name: "TabPers2Vorgesetzter") mit den PersNr.2-Vorgesetzten-Kombinationen, die auch im Makro enthalten waren.
In Spalte J (Kommentarspalte) von Listtabelle "Tabelle3" müsstest du in J2 folgende Formel eingeben (zuvor aber alle Zellen unterhalb von J1 ausleeren, dann kopiert sich die Formel automatisch in alle Zellen von Spalte J der Listtabelle)
=WENNNV(SVERWEIS([@[PersNr.2]];TabPers2Vorgesetzter;2;FALSCH);"")
Ich habe sie dir ebenfalls unterhalb von "TabPers2Vorgesetzter" eingefügt als Text.

 

Hallo,

entschuldige die späte Rückmeldung.

Ich bin absoluter VBA Laie und daher schaut mein code etwas unprofessionell aus.
Habe ihn mithilfe von Google erstellt.

Dein code habe ich leider nicht auf meine Gegebenheiten umgeschrieben bekommen.
Habe nun einfach ein paar benötigte Codezeilen in meinen Code übernommen.
Läuft nun wie ich es mir wünsche.

Vielen Dank