Heute habe ich in einem Forum eine Bitte nach Lösung per VBA gese­hen, wo in ein­er Zeile mehrere Kalen­der­wochen aufge­führt sind und darunter jew­eils Pro­duk­t­num­mern von Teilen, welche fehler­haft pro­duziert wor­den sind. Das Ziel ist es nun, unab­hängig von der Kalen­der­woche die Gesamtzahl des Auss­chuss­es jedes Pro­duk­ts aufzuzeigen.

In dieser Datei (es ist das im Forum eingestellte Orig­i­nal) sehen Sie in Tabelle1 die Aus­gangslage. Der Weg zum Ziel geht vol­lkom­men ohne Makro, nur mit Plain Excel. Dazu wer­den die  Kalen­der­wochen in  Spalte A und die dazuge­höri­gen Werte der jew­eili­gen Woche in Spalte B untere­inan­der geschrieben. Das geschieht entwed­er durch kopieren oder ver­schieben. Ich ziehe kopieren vor, damit ein höheres Maß an Kon­trolle gegeben ist. Das Ergeb­nis sehen Sie in dem Blatt Auswer­tung, wo ich vor der ursprünglichen Spalte_A noch drei Leerspal­ten einge­fügt habe.

Die ersten bei­den (neuen) Spal­ten habe ich als Grund­lage für eine Piv­ot­Ta­belle genom­men, die dritte Leerspalte dient der Abgren­zung zu den restlichen Dat­en wegen der dynamis­chen Tabelle. Die Auswer­tung ist recht ein­fach zu bew­erk­stel­li­gen. Das Ergeb­nis sehen Sie im Tabel­len­blatt Piv­ot.

▲ nach oben …

So weit die „Ochsen­tour”. Etwas mehr Arbeit und Konzen­tra­tion beim kopieren der Dat­en, aber das geschieht ja nur ein­mal wöchentlich. Aber ich bin von Natur aus faul  😉 und will mir das nicht immer und immer wieder antun, denn vielle­icht kommt ja noch ein­mal ein Zwis­chen­stand ein­er Woche dazu. Darum habe ich ein kleines VBA-Pro­gramm geschrieben, welch­es die ganzen Auf­gaben ruck zuck wie von Geis­ter­hand erledigt. Rufen Sie ein­fach per AltF8 das einzige Makro auf und lehnen Sie sich kurz zurück …

Sie kön­nen das in dieser Form natür­lich so anpassen, wie es für Sie und Ihre Dat­en erforder­lich ist. Natür­lich ist es auch möglich, den Vor­gang des Transponierens alleine durchzuführen und aus dem entsprechen­den Daten­block die Piv­ot­Ta­belle selb­st zu erstellen. Und natür­lich kön­nen Sie sich auch an uns wen­den, falls Sie Hil­fe brauchen.

Hin­weis: Ähn­lich gelagerte Beispiele find­en Sie in unserem Blog hier und auch hier.