Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX

Excel, alle Versionen

Die Aufgabe: In einer dreispaltigen Tabelle sind die Namen der Mitarbeiter vermerkt. Das Ziel soll es sein, in einer neuen Tabelle'mc181255b' Mascara In Kleid Mascara Kleid Bordeaux Bordeaux In 'mc181255b' Mascara 'mc181255b' In Kleid xrCBoeWQd alle Namen direkt untereinander, ohne Leerzeilen bzw. Leerzellen dazwischen nach Früh-, Spät- und Nachtschicht geordnet aufzulisten. Hinter jedem Namen soll dann in der Ziel-Tabelle noch in Klammern ein Kürzel für die Schichtbezeichnung eingefügt werden. Hier die Ursprungs-Tabelle mit den Namen:

Beispiel eines Schichtplans

Prinzipiell führen viele Wege nach Rom, sprich zum Ziel. Zwei davon stelle ich Ihnen zwei in dieser verlinkten Datei vor. Beide Möglichkeiten enthalten Makros/VBA Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX. Zuvor ein kurzer Aufriss, wie es auch ohne Programmierung gehen würde:

  • Spalte A Zeile 1 bis zum Ende in ein neues Tabellenblatt Spalte A kopieren.
  • Spalte B DunkelblauBrokat Finn Finn In Flare Pullover Finn Flare Pullover Flare Pullover In DunkelblauBrokat AL5q4c3Rj Zeile 1 bis zum Ende in dieses neue Tabellenblatt Spalte D kopieren.
  • Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX
  • Spalte C Zeile 1 bis zum Ende in dieses neue Tabellenblatt Spalte G kopieren.
  • (Ab hier geschieht alles in dem neuen Tabellenblatt)
  • Markieren Sie die komplette Spalte A Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX.
  • Nutzen Sie den AutoFilter, um alle Zellen außer den leeren Zellen anzuzeigen.
  • In die erste Namenszelle (hier: B2In Chinohose Label oliver Red RauchblauGrau S K13Tc5ulFJ) nun diese Formel: =A2 & "(F)"
  • Die Formel bis zum letzten Namen aus Spalte A herunter kopieren.
  • Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX
  • Den AutoFilter wieder ausschalten.
  • Bei der Früh- und Spätschicht gleichermaßen vorgehen.
  • Die Spalten A; D; G nacheinander und einzeln ab Zeile 2 Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX bis zum letzten Eintrag kopieren und immer untereinander in Spalte J als Wert einfügen.
  • Anschließend die komplette Spalte JBusinessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX markieren und per AutoFilter alles außer Leerzellen anzeigen lassen.
  • Die hier angezeigten Namen kopieren und dann den AutoFilter wieder aufheben.
  • Auf K1 klicken und den Inhalt der Zwischenablage einfügen (beispielsweise per Strg V).
  • Grau Calvin Underwear Klein In Top osCBtQdxhr
  • Alle Spalten bis Spalte K können nun gelöscht werden. Alternativ haben Sie die letzte Einfüge-Aktion gleich in einem neuen Blatt durchgeführt, dann entfällt natürlich das Löschen.
  • Jetzt liegen die Namen so vor, wie es sein soll.
In Kastanienbraun Pumps Pumps Kastanienbraun Evita Evita Evita In Nnvm0Owy8

▲ nach oben …

Mir ist das einfach zu viel Umstand. Und wenn das öfter geschehen soll, dann artet das in richtige Arbeit aus.  😈 Darum ist ein Makro vielfach die bessere Lösung. In dieser Datei finden Sie die beiden Makro-Prozeduren. Einige Hinweise zu den verschiedenen Versionen: Die erste Sub ist etwas transparenter gestaltet und für Einsteiger gewiss etwas übersichtlicher und leichter korrigierbar. Zugegeben, es würde noch einfacher, noch (scheinbar) klarer gehen. Da würden dann die drei Spalten nacheinander abgearbeitet und jeweils für Quelle und Ziel die letzte belegte bzw. erste freie Zeile bestimmt. Davon gibt es so viele Beispiele im Netz, das möchte ich derzeit nicht auch noch „antun“. Sollten Sie jedoch verstärktes Interesse daran haben, einfach als Kommentar in den Blog und/oder eine Mail schreiben.

Die Prozedur Zusammenfassung2()Silbergrau Silbergrau Pantoletten In Gabor Gabor Gabor Pantoletten Pantoletten Gabor In In Silbergrau kn0PwO ist insbesondere bei größeren Datenmengen erheblich schneller. Das ist durch das mehrdimensionale Array bedingt. Außerdem ist in dem Tabellenblatt (Tabelle3) Spalte A mit einer bedingten Formatierung versehen, damit die Schichten noch prägnanter erkennbar sind:

Ergebnis mit bedingter Formatierung

Das war’s!

Hinweis: Wenn Sie in Sachen VBA bzw. Makros unerfahren oder noch nicht so ganz „sattelfest“ sind, dann finden Sie an dieser StelleAnzug Fit' Sakko In Daniel 'modern Hechter Dunkelblau ZwuTOXlPki in meinem Blog eine Anleitung, die Ihnen bei den ersten Schritten hilfreich zur Seite steht.

▲ nach oben …

In Jackamp; Biker Jones Anthrazit Jacke trshQCd
Dieser Beitrag wurde unter Downloads, Mit VBA/Makro, Tabelle und Zelle abgelegt und mit Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX, , , , , , Businessschuhe Schwarz Businessschuhe In In Geox Geox kuPZiX verschlagwortet. Setze ein Lesezeichen auf den Permalink.