automatisch neue Zeile mit Spaltenwerten füllen

[chposc]

Hall zusammen,

ich hätte mal eine spezifische Frage, vielleicht könnte mir irgendjemand helfen. Mein Problem ist folgendes:
Ich habe eine Excel Liste mit Spalten A bis P. In den Spalten A bis L sind in jeder Zeile bereits Werte eingegeben. In den Spalten M bis P tragen nun Mitarbeiter Personalnummern ein. Jetzt kommt die eigentliche Frage:
Meine Excel Liste sollte nun wenn in den Spalten M bis P (also 4 Spalten) etwas drin steht, meine Vorhandene Zeile 4 mal darunter kopieren und die Werte von M bleibt in der zweiten Zeile in M. Die Werte von N geht in der 3ten Zeilen auch in M. Die Werte von O geht in der vierten Zeile auch in Spalte M usw.

Hätte jemand ein Lösung. Wäre sehr dankbar für Hilfe.

[shift-del]

Hallo

Das sollte mit Power Query machbar sein.

[chposc]

Da ich absoluter Neuling in Excel bin, könntest du mir dies vielleicht an meinem Beispiel erläutern??

Das würde mir sehr helfen.

[shift-del]

Beispiel:
http://www.excel-ist-sexy.de/pqq-spalten...-anordnen/

[chposc]

Vielen Dank für die Info,

ist dies auch mit VBA möglich und wenn ja wie?

[chposc]

Vielleicht habe ich es nicht richtig erläutert, dafür sorry erstmal [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Und zwar, machen wir es leichter:

Ich habe vier Spalten A bis D. In Spalte A und B stehen Werte die sich nicht ändern. In den Spalten C bis D schreiben Mitarbeiter nur Personalnummern ihrer Mitarbeiter hinein. Jetzt steht also in der ersten Zeile in A und B vordefinierte Werte und in C und D Personalnummern. Jetzt möchte ich, dass 2 Zeilen mit den Werten (C und D) aus der ersten Zeile hinzugefügt werden.
Jetzt soll in Zeile 2 stehen In A die Werte aus A in der ersten Zeile und in B die Werte aus B in der ersten Zeile. Aber in dieser neuen zweiten Zeile steht nun in der Spalte C der Wert aus der ersten Spalte C. Analog zur dritten Zeile. In der neuen dritten Zeile soll nun in Spalte C der Wert aus der ersten Spalte D stehen.

Hoffe es ist nun verständlicher[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

[WillWissen]

Hallo,

für mich eher noch verwirrender. Stell mal bitte eine Muster.xlsx vor. Etwa 10-15 Datensätze sind ausreichend; hilfreich zum Helfen wären ein paar händisch eingetragene Wunschergebnisse. Lies mal bitte hier: http://www.clever-excel-forum.de/Thread-...ng-stellen

[chposc]

Hier in Register 1 wie es momentan ist und Register 2 wie es aussehen soll. Möglichst automatisiert

[shift-del]

Daten -> Daten abrufen und transformieren -> Aus Tabelle/Bereich
Spalte "Anlage" markieren und Rechtsklick: Andere Spalten entpivotieren
Spalte "Attribut" markieren und Rechtsklick: Entfernen
Spalte "Wert" markieren und Rechtsklick: Umbenennen... -> Mitarbeiter

[Frogger1986]

Mein Versuch mit Makro... in ein Modul in der Bsp.- Datei einfügen und ausführen..

Code:

Sub neueZeile()

For Each Sheet In Sheets
       If Sheet.Name = "Vorschlag" Then
       
       Else
       Vs = Vs + 1
       End If
Next
       If Vs = Sheets.Count Then
       Sheets.Add
       ActiveSheet.Name = "Vorschlag"
       ActiveSheet.Range("A1") = "Anlage"
       ActiveSheet.Range("B1") = "Qualifikation"
       ActiveSheet.Range("C1") = "Mitarbeiter"
    End If


l1 = Sheets("Ausgangsdatei").Cells(Rows.Count, 1).End(xlUp).Row
l2 = Sheets("Vorschlag").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Vorschlag").Range("A2:C" & l2).Clear


For i = 2 To l1

       l1 = Sheets("Ausgangsdatei").Cells(Rows.Count, 1).End(xlUp).Row
       l2 = Sheets("Vorschlag").Cells(Rows.Count, 1).End(xlUp).Row + 1
           
       Sheets("Vorschlag").Cells(l2, 1) = Sheets("Ausgangsdatei").Cells(i, 1)
       Sheets("Vorschlag").Cells(l2, 1).HorizontalAlignment = xlCenter
       Sheets("Vorschlag").Cells(l2, 2) = Sheets("Ausgangsdatei").Cells(i, 2)
       Sheets("Vorschlag").Cells(l2, 2).HorizontalAlignment = xlCenter
       Sheets("Vorschlag").Cells(l2, 3) = Sheets("Ausgangsdatei").Cells(i, 3)
       Sheets("Vorschlag").Cells(l2, 3).HorizontalAlignment = xlCenter
       
       Sheets("Vorschlag").Cells(l2 + 1, 1) = Sheets("Ausgangsdatei").Cells(i, 1)
       Sheets("Vorschlag").Cells(l2 + 1, 1).HorizontalAlignment = xlCenter
       Sheets("Vorschlag").Cells(l2 + 1, 2) = Sheets("Ausgangsdatei").Cells(i, 2)
       Sheets("Vorschlag").Cells(l2 + 1, 2).HorizontalAlignment = xlCenter
       Sheets("Vorschlag").Cells(l2 + 1, 3) = Sheets("Ausgangsdatei").Cells(i, 4)
       Sheets("Vorschlag").Cells(l2 + 1, 3).HorizontalAlignment = xlCenter

Next

End Sub