Office: Zellen von A3 bis Axxxx leeren wenn Zelle A2 bestimmten wert

Guten Tag

Ich weiß leider nicht mehr weiter und in Excel kenne ich mich auch nicht sehr gut aus.
Ich habe es mit Ach und Krach geschafft, für meinen Chef eine Excel Liste zu erstellen, wo er für jeden Mitarbeiter seine Tätigkeit eintragen kann und Vorschläge bekommt, wo der Mitarbeiter noch hin muss, damit er alle Positionen gleich oft besetzt. Das habe ich ja noch gemeistert, jetzt habe ich leider zwei Probleme.
1. Wenn uns ein Mitarbeiter (z.b.: AA) verlässt, wird in den der Tabelle "Grunddaten" sein Name durch "ZZZleer" ersetzt, dann sollen alle Werte in der Tabelle "Übersicht 2.0" ab Zeile 3 bis zum Ende der Liste in der Spalte "AB" gelöscht werden. Die Formel in Zeile 2 soll erhalten bleiben.
Drum geht auch nicht einfach Spalte markieren und entfernen, weil es sehr viele andere Kollegen auch nutzen, die sehr selten vorm PC sitzen, soll es eine ganz einfach Lösung sein.
Super wäre es, wenn leeren der Zellen, gleich mit geht, wenn man in der Tabelle "Grunddaten" auf "Einsteller sortieren" klickt. Weil diese soll bei allen Spalten von C bis AZ dann auch so sein.
Das bringt mich dann gleich zu meinem
2. Problem. Da die Funktion "Einsteller sortieren" ein in einer anderen Arbeitsmappe aufgezeichnet Makro ist, habe es auf der Tabelle "Übersicht 2.0" nicht hinbekommen, da ich es als Tabelle formatiert habe, weil der Ursprüngliche Gedanke war, es so aufzubauen, das jeder Tag erst kommt, wenn man in der Zelle "C654" was eingibt und dann erst die Formel alle ergänzt werden. aber das ist nicht mein Problem, es ist nicht schön, aber man kann damit arbeiten. Mein Problem ist, wenn jetzt ein neuer Mitarbeiter anfängt, wird dieser in den "Grunddaten" ergänzt und dann soll sich über den Butten "Einsteller sortieren" die Liste in der "Übersicht 2.0" nach den Namen in C2 bis AZ2 sortieren. Dies geht auch über mein Makro, nur wenn ich die Excel Liste abspeichere und wieder öffne bekomme ich den Fehler
"Wir haben ein Problem bei einigen Inhalten in "TEST.xlsm" erkannt. Sollen wir so viel wie möglich wiederherstellen? Wenn Sie der Quelle dieser Arbeitsmappe vertrauen, klicken Sie auf "Ja".
Wenn ich auf "Ja" klicke, wird zwar die Datei wiederhergestellt, aber beim nächsten Mal öffnen kommt wieder dasselbe.

Hoffe ich habe alles erklären können und nicht zu umständlich erklärt.

Bin bis jetzt auf keine Lösung gekommen und VBA beherrsche ich leider nicht, vielleicht gibt es hier jemanden, der mir bei diesem Problem helfen kann.

Danke im Voraus
Rene

 

Hallo Rene,

du hast im Arbeitsblatt "Übersicht 2.0" im Zellbereich C2:AZ2 die Mitarbeiter aufgelistet. Diese Liste beziehst du aus der Spalte A des Arbeitsblattes "Grunddaten" mit einfacher Zellbezugsformel.

Damit muss dir aber klar sein, dass du die Zeile 2 im Arbeitsblatt "Übersicht 2.0" durch ein Sortiermakro nicht mehr direkt sortieren kannst. Durch einen solchen Sortierversuch beleidigst du zwangsläufig die Formeln in diesen Zellen. Das wird wahrscheinlich auch die Ursache sein, warum sich Excel so störrisch (siehe deine Fehlerbeschreibung) verhält.

Du musst das Pferd anders herum aufzäumen. Im Bereich C2:AZ2 des Arbeitsblattes "Übersicht 2.0" gibst du die Mitarbeiter ein - ohne einen Formelbezug. Diesen Bereich verwendest du als Sortierschlüsselbereich, mit dem auch die darunter liegenden Datenzellen eventuell mit umsortiert werden können.
Im Arbeitsblatt "Grunddaten" gibst du in Spalte A die Bezugsformeln ein, um auch dort eine sortierte Liste zu erhalten, sofern die Zeile 2 im Übersichtsblatt sortiert ist. Allerdings weiß ich nicht, wozu das dann noch gut sein soll.

Das Sortiermakro lautet dann - eh wie schon gehabt:

Code:

Sub Sortieren()
    With Worksheets("Übersicht 2.0")
      .Activate
      With .Sort
         With .SortFields
            .Clear
            .Add2 Key:=Range("C2:AZ2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         End With
         .SetRange Range("C:AZ")
         .Header = xlGuess
         .MatchCase = False
         .Orientation = xlLeftToRight
         .SortMethod = xlPinYin
         .Apply
      End With
    End With
End Sub

 

Hallo Exl121150

Danke für deine schnelle Antwort.

Gibt es dafür keine andere Lösung :-(
Würde gerne meine Mitarbeiter, zentral und in meinen Augen übersichtlicher auf der Tabelle "Grunddaten" verwalten und nicht auf der Tabelle "Übersicht 2.0". Könnte das auch daran liegen, weil ich diesen Tabellenbereich, wo die Aufgaben eingetragen werden, "als Tabelle formatiert" habe.


oder liegt es wirklich an den Formelbezügen.

Danke für deine Zeit :-)

LG

 

Hallo,

das kannst du ruhig versuchen.
Was passiert aber dann, wenn du die Mitarbeiter im Arbeitsblatt "Grunddaten" zB. alphabetisch sortierst - dann werden sie auch im Arbeitsblatt "Übersicht 2.0" nur in der Zeile 2 aufgrund der Formeln umsortiert. Du hast aber auf diesem Arbeitsblatt unterhalb der Zeile 2 die eigentlichen Daten, die aber zur Zeile 2 passen sollten/müssen. Wie gehst du da vor, um auch die Sortierung der Daten ab Zeile 3 zuverlässig in gleicher Weise durchzuführen?