Umsetzung in ein Organigramm

Computer: Software & Programmierung Office Software
#1

Hallo Leute,
ich bin am verzweifeln. Ich bin an ein Programm gestoßen, welches eine Unternehmensstruktur in Exceltabellen auswirft. Sogenanntes Rollenmodel.

Das sieht dann so aus.

Rolle 106708 Untenehmensbereichsleiter
                  Rolle123402 AL u.TL
                               Rolle123456 Sachbearbeiter Umsatz mit Vollmacht
                               Rolle 243506 Sachbearbeiter ohne Vollmacht
                                             Rolle 081500 Azubi
                               Rolle478903 Sachbearbeiter Verkauf
                                             Rolle 081500 Azubi
                               Rolle 789123 Sachbearbeiter Lager
                                             Rolle 081500 Azubi

Das ganze soll ich jetzt umsetzen in ein Organigramm !
Manuell macht das echt keinen Spass - und darum habe ich mir gedacht,
Vielleicht hat einer von Euch eine Idee, wie ich darangehe…

Als Diagramm gibt es so etwas nicht.

Aber vielleicht kann man das ganze exportieen nach Powerpoint

Gruß Christian

#2

Hi Christian,

ne, da wirst du mit Excel nicht weiterkommen. Jedenfalls nicht automatisch.

Zudem scheinen mir die Daten auch noch nicht sinnvoll aufbereitet. Die verschiedenen Einrückungen sollen vermutlich die Hirachie angeben.

So wie die Daten im Moment aussehen wird auch sicherlich auch kein anderes Prgromm automatisch etwas wie ein Organigramm erstellen können.

Grüße

powerblue

#3

Danke, hab ich mir schon fast gedacht.

Zudem scheinen mir die Daten auch noch nicht sinnvoll
aufbereitet. Die verschiedenen Einrückungen sollen vermutlich
die Hirachie angeben.

Ganz richtig. So ist es. Ich denke ich gehe zunächst so vor, dass ich die Einrückungen lösche und dann die Zeilen einzeln auslese und für jede Rolle ein einzelnes Tabellenblatt mit den Kompetenzsätzen anlege.

Kannst Du mir dafür bei der Schleifenprogrammierung bitte helfen ?

Grüße

powerblue

Grüße zurück

Christian

#4

Hi,

Ganz richtig. So ist es. Ich denke ich gehe zunächst so vor,
dass ich die Einrückungen lösche und dann die Zeilen einzeln
auslese und für jede Rolle ein einzelnes Tabellenblatt mit
den Kompetenzsätzen anlege.

Ich dachte, du möchtest ein Organigramm. Was du beschreibst ist aber schon was anders…

Kannst Du mir dafür bei der Schleifenprogrammierung bitte
helfen ?

Was möchtest du mit der Schleife denn machen?

Grüße

powerblue

#5

Hallo,

Ich dachte, du möchtest ein Organigramm. Was du beschreibst
ist aber schon was anders…

Not macht ebend erfinderisch…

Kannst Du mir dafür bei der Schleifenprogrammierung bitte
helfen ?

Was möchtest du mit der Schleife denn machen?

Wie Du richtig festgestellt hast, sind die Einträge je Hirarchiestufe um eine Spalte eingerückt.
Das muss ich zunächst ändern, so dass alle Einträge in der selben Spalte A:A sind.
Dann brauch ich eine Schleife, die den Inhalt jeder Row liest und pro Rolle ein Tabellenblatt
einrichtet, in das die Kompetenzsätze hineingeschrieben werden.
Diese befinden sich normalerweise unter den Rollen. (hier rausgelöscht)
Kannst Du mir helfen ?

Grüße

powerblue

Gruß zurück !

#6

Hi,

du hast doch schon beschrieben, wie du es machen willst.

Dies in einem Script umzusetzten ist nicht mehr schwer, mit etwas eigener Recherche bekommst du das bestimmt auch allein hin.

Wenn du ne konkrete Frage hast, die ich schnell Beantworten kann, helfe ich gern. Für mehr habe ich selbst zu viel zu tun.

Grüße

powerblue

#7

Ich dank Dir trotzdem erst mal.

Christian

#8

Grundgerüst:

Sub Makro1()
    On Error GoTo NAECHSTER
    For I = 1 To 9
        'Sheet.Name ist auf 30 Zeichen begrenzt
        TABNAME = Left(Sheets(„Tabelle1“).Cells(I, 1).Value, 28)
        'Rolle 081500 Azubi: kommt 3xvor, deshalb habe ich lfd.Nummer angehängt
        TABNAME = TABNAME & Format(I, 0)
        Sheets.Add After:=ActiveSheet
        ActiveSheet.Name = TABNAME
NAECHSTER:
    Next I
End Sub

lg