Registriert seit: 12.04.2014
Version(en): Office 365
Moin
Mache es mit Power Query:
Original nach PQ laden.
Spalten umsortieren.
Ergebnis in das Tabellenblatt laden.
Fertig.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 10.04.2014
Version(en): Office 2019
(04.03.2019, 18:54)shift-del schrieb: Moin
Mache es mit Power Query:
...
Moin Detlef, gute Idee, wird aber nicht gehen... Schau mal auf's Profil...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Registriert seit: 12.04.2014
Version(en): Office 365
Tja, selbst schuld.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hallo User15351,
bin keine VBA-Expertin aber hiermit funktioniert es, du musst immer eine Zelle in der Zeile markieren die du kopieren willst bevor du den Code ausführst!
Wie gesagt ich bin keine Expertin und es geht sicherlich auch eleganter, bin für Verbesserungsvorschläge immer dankbar und offen!
Code:
Sub Kopie()
Zeile = Selection.Row
loletze = ThisWorkbook.Sheets("Ausgabe").Cells(Rows.Count, 1).End(xlUp).Row + 1
ThisWorkbook.Sheets("Ausgabe").Cells(loletze, 1).Value = ThisWorkbook.Sheets("Übergabe").Cells(Zeile, 2).Value
ThisWorkbook.Sheets("Ausgabe").Cells(loletze, 2).Value = ThisWorkbook.Sheets("Übergabe").Cells(Zeile, 3).Value
ThisWorkbook.Sheets("Ausgabe").Cells(loletze, 3).Value = ThisWorkbook.Sheets("Übergabe").Cells(Zeile, 5).Value
ThisWorkbook.Sheets("Ausgabe").Cells(loletze, 4).Value = ThisWorkbook.Sheets("Übergabe").Cells(Zeile, 4).Value
End Sub
LG
Alexandra
