Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates. x

automatisch neue Zeile mit Spaltenwerten füllen
#1
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.
Top
#2
Hallo

Das sollte mit Power Query machbar sein.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

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

Das würde mir sehr helfen.
Top
#4
Beispiel:
http://www.excel-ist-sexy.de/pqq-spalten...-anordnen/
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#5
Vielen Dank für die Info,

ist dies auch mit VBA möglich und wenn ja wie?
Top
#6
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!
]
Top
#7
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
Top
#8
Hier in Register 1 wie es momentan ist und Register 2 wie es aussehen soll. Möglichst automatisiert


Angehängte Dateien
.xlsx   Testdatei.xlsx (Größe: 9,01 KB / Downloads: 12)
Top
#9
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
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#10
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
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste