Office: (Office 2019) Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen.

Problem: Habe ein Excelsheet, bei dem ein Datensatz immer aus zwei Zeilen zu je 9 Zellen besteht. Um das ausweren zu können, müsste immer die ungerade Zeile an die obige Zeile angehängt werden. Am besten in einem neuen Dokument.

Händisch ganz einfach, aber wegen der Masse nicht zu machen.

So sieht ein Datensatz aus:

ungerade Zeile: Feld 01 Feld 02 Feld 03 Feld 04 Feld 05 Feld 06 Feld 07 Feld 08 Feld 09
gerade Zeile : Feld 10 Feld 11 Feld 12 Feld 13 Feld 14 Feld 15 Feld 16 Feld 17 Feld 18

Im neuen Blatt soll die neue Zeile so aussehen:
Feld 01 Feld 02 Feld 03 Feld 04 Feld 05 Feld 06 Feld 07 Feld 08 Feld 09 Feld 10 Feld 11 Feld 12 Feld 13 Feld 14 Feld 15 Feld 16 Feld 17 Feld 18

Dann ist der Datensatz in einer Zeile und kann ausgewertet werden.

Wie kann man das mit VBA realisieren?

Praktisch erstelle einen neuen Datensatz aus der ungeraden Zeile, nimm die ersten 9 Felder, kopiere aus der folgenden gerade Zeile die ersten 9 Felder und füge sie ab Spalte 10 an.
usw.

Wie könnte man das machen?


Danke im voraus!

:)

 

zeig doch mal per Upload eine Bsp-Datei mit genügend Bsp-Datenzeilen.

 

leider enthält das personenbezogene Daten, die darf ich nicht rausgeben :-(

 

deswegen schrieb ich auch Bsp-Datei mit genügend Bsp-Datenzeilen

Du erstellst eine neue Excel-Datei.
Diese erhält den selben Tabellenaufbau wie das Original.
Du trägst ausreichend viele Bsp-Werte ein.
Diese neue Bsp-Datei stellst du dann hier per Upload zur Verfügung.

Bekommst du das hin?

 

Ich habe es so verstanden, s. Screenshot, Beispiel mit drei Spalten

 

Hi
Folgendes Makro kopiert den Datensatz mit der gewünschten Umwandlung an eine gewünschte Stelle.

Die ersten beiden Zeilen sind entprechend anzupassen.

Code:

Falls ein anderes Blatt befüllt werden soll, dann bitte die letzte Zeile anpassen.

LGB

 

danke Fake_News

Aber wenn der Rookie es nicht schafft, ausreichend mitzuarbeiten, dann mag ich auch nich für ihn seine Bsp-Dateien erstellen.

no file - no party!

oder anders:
Wer eine qualifizierte Antwort erwartet, muss erst mal qualifizierte Mitarbeit zeigen

Mag sein, dass ich nun arrogant wirke - bin ich aber nicht.

Hey rookie,

Beauftrage doch mit deinen bisherigen Texten einen Auftrags-Programmierer.
Ich bin sicher, dem werden deine bisherigen Angaben reichen - aber der Programmierer will auch mit Geld bezahlt werden.........

 

Der Screenshot ist kein reines Beispiel. Die Lösung im Screenshot ist mit Powerquery erzeugt. Eine Datei lade ich aber erst dann hoch, wenn der TS weitere Mitarbeit zeigt, heisst Beispieldatei hochlädt. Es ist ja nicht so, dass er nicht versucht hat, es zu erklären. Die Erklärung ist, milde gesagt, stark verbesserungswürdig.

PS Code von barbara_w ergibt bei mir im übrigen das gleiche Ergebnis, passt also auf "mein" Beispiel.

 

\@ Oberschlumpf69
Danke, danke, danke!
Das ist nicht arrogant sondern sehr vernünftig und trifft voll meine Linie.
Leider gibt es immer noch (imho) zu viele Helferlein, welche die Faulheit der Fragesteller demütig unterstützen.

Wir Helfer sind schließlich diejenigen, die ein hochwertiges Gut (unser Wissen und Können) zum Nulltarif weitergeben; da ist es nur legitim, dass ich ein Maximum an Anstrengung seitens eines Fragestellers erwarte. Oder aber er/sie wendet sich an einen Dienstleister, der freut sich über solche Steilvorlagen, denn jede Minute an (eigentlich unnötiger) Arbeit bringt Geld in die Kasse.

In dem Sinne: Mach weiter so!

 

Ich fühle mich jetzt mal angesprochen und würde dem widersprechen. Ich mache das, weil ich gerade Power Query lerne und echte Beispiele sind immer spannender als irgendwelche konstruierten wie in Tutorials usw. Und demütig schon mal gar nicht *mrcool Ich poste auch M-Code *grins und ich bin PQ-Anfänger. Da erwarte ich, dass andere den verstehen, ich bin ja auf dem untersten Level als PQ Anfänger. Da sollte jeder mehr Kompetenz haben als ich *grins *grins

 

\@ Fake News:

Ganz genau so (nur die Tabelle mit 9 Spalten).


@barbara_w

super! herzlichen Dank für Deinen Einsatz!

 

Sorry Leute,

ich musste arbeiten und war etwas inm Streß, mache aber gleich eine Beispieltabelle.

Herzlichen Dank für Euren unermüdlichen Einsatz, den ihr schon gemacht habt!

Liebe Grüße

 

Hier ist nun die Beispieltabelle (ich hoffe mal das klappt):

 

Siehe Anhang
Achtung, ich habe Deine Input-Daten nicht als intelligente Tabelle formatiert, sondern dem Bereich nur einen Namen gegeben, d.h. er wird nicht automatisch eweitert!

Nachvollziehen kannst Du die Lösung, indem Du auf Daten/Abfragen Verbindungen gehst und dann mit rechter Maustaste auf die angezeigten Verbindungen rechts auf Bearbeiten klickst.

Die Lösung ist mit Powerquery erstellt!

 

Herzlichen Dank @ Fake news!

Ich porbiere das gleich aus :-)

Viele Grüße

Rookie