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

DVD-Rookie · 27. August 2020

\@ Fake news

Klappt super! Nochmals herzlichen Dank für Deine Lösung. Bitte teile mir noch mit, wie ich den Bereich vergrößern kann, dass das auch für tausende Datensätze zu machen ist :-)

Viele Grüße

Fake_News · 27. August 2020

How to Create and Use Excel Named Ranges

DVD-Rookie · 27. August 2020

\@ Fake News

SUPER! Klappt vorzüglich, nochmals herzlichen Dank!

Gibst Du mir bitte noch einen Hinweis, wie ich die Größe der Ausgangstabelle einstellen kann (für richtig groß :-) )

Liebe Grüße & herzlichen Dank!!!

Rookie

*EDIT*

jetzt hab ich es gesehen!

barbara_w · 27. August 2020

Hi, nur zur Info: Das Makro von #6 wäre auch mit der Beispieltabelle von Beitrag #13 fertig geworden. LGB

DVD-Rookie · 27. August 2020

Hallo Barbara,

auch Dir möchte ich nochmals herzlich danken - ihr seit super!!!

LG

Rookie

Oberschlumpf69 · 12. Januar 2021

von Fake_News

Ich fühle mich jetzt mal angesprochen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi,

da musst du dich nich angesprochen fühlen.
Denn dein, so vermute ich, primärer Grund zu antworten, ist nicht die Hilfeleistung, sondern weil du mit dem hier vorliegenden Problem selbst etwas lernen willst - somit ist deine Hilfestellung hier nur ein "Nebenprodukt"..wenn auch ein hilfreiches ;-)

Und glaub mal, du weißt in PQ mehr als ich, denn ich hab mich damit noch gar nicht beschäftigt :-)

Weiter so!

Ciao
Thorsten

WS-53 · 27. August 2020

Ich habe in die Mappe von Fake_News noch eine alternative Lösung eingefügt.

Die bisherige Lösung ist übrigens ein sehr interessanter Ansatz!

DVD-Rookie · 6. September 2020

\@ Fake News

ich versuche gerade, das mit echten Daten zu füttern.

Könntest Du mir mitteilen, wie ich das machen muss:

- Ich brauche leider doch noch eine Spalte mehr
- Ich habe das nicht nachvollziehen können, wo ich die Größe der Ausgangsdatei definieren kann

Ich hatte jetzt mal 1000 Zeilen Daten in Tabelle 1 reinkopiert - ist das so OK?

Danke im Voraus!

Rookie

barbara_w · 6. September 2020

Habe mein erstes Makro angepasst. Es geht nun davon aus, dass die Tabelle eine Überschriftenzeile hat. Das war ursprünglich nicht gegeben. Und es funktioniert nun mit jeder Tabellengröße.

Die Adresse einer Zelle der Tabelle ist im Modul bei "Ecke" einzutragen. Davon ausgehend bestimmen die umschließenden leeren Zellen bzw. der Tabellenrand die Kopiertabelle. (=Current Region, kann mit Strg+Shift+Stern, der neben dem ü, markiert werden, zur Kontrolle)

Dieses Makro in ein allgemeines Modul setzen.
Die drei Zeilen im Makro oben, die mit "Anpassen" enden, sind anzupassen.
Das Blatt der Kopiertabelle ist aktiv.

Code:

Sub Zeilen_m_Kopfzeile()
' Das Blatt der Kopiertabelle ist aktiv.
' Der Bereich der Kopiertabelle hat eine Kopfzeile,
' gefolgt von einer geraden Zahl von Zeilen.
' Der Bereich der Kopiertabelle ist von leeren Zellen umrahmt.

Const Ecke As String = "e3" 'Anpassen
Const Ziel As String = "a23" 'Anpassen
Const Zielblatt As String = "Tabelle1" 'Anpassen
Dim z As Long, c As Long
Dim Daten, Ergebnis
Daten = Range(Ecke).CurrentRegion
ReDim Ergebnis(1 To (UBound(Daten, 1) - 1) / 2, 1 To UBound(Daten, 2) * 2)
For z = 1 To UBound(Ergebnis, 1)
For c = 1 To UBound(Daten, 2)
Ergebnis(z, c) = Daten(2 * z, c)
Next c
For c = 1 To UBound(Daten, 2)
Ergebnis(z, c + UBound(Daten, 2)) = Daten(2 * z + 1, c)
Next c
Next z
Worksheets(Zielblatt).Range(Ziel).Resize(UBound(Ergebnis, 1), UBound(Ergebnis, 2)) = Ergebnis
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte teste. Vllt habe ich was übersehen. Habe es an Deinem Beispiel, gepostet in Beitrag #13, getestet.

LGB

Fake_News · 12. Januar 2021

von DVD-Rookie

@ Fake News

ich versuche gerade, das mit echten Daten zu füttern.

Könntest Du mir mitteilen, wie ich das machen muss:

- Ich brauche leider doch noch eine Spalte mehr
- Ich habe das nicht nachvollziehen können, wo ich die Größe der Ausgangsdatei definieren kann

Ich hatte jetzt mal 1000 Zeilen Daten in Tabelle 1 reinkopiert - ist das so OK?

Danke im Voraus!

Rookie
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

s #17

DVD-Rookie · 6. September 2020

Zitat von barbara_w;1997289:

Habe mein erstes Makro angepasst. Es geht nun davon aus, dass die Tabelle eine Überschriftenzeile hat. Das war ursprünglich nicht gegeben. Und es funktioniert nun mit jeder Tabellengröße.

Hallo Barbara,

super! herzlichen Dank! Ich werde gleich mal einen Probelauf machen :-)

LG

Rookie
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DVD-Rookie · 7. September 2020

Hi barbara_w,

Dein Makro ist die Wucht in Dosen! Funktioniert perfekt, ganz herzlichen Dank nochmals!

Kann man mit Makros auch aus Stücklisten gleiche Artikel zusammenfassen? Das Makro müsste selbst entscheiden, wieviele Zeilen der gleiche Artikel sind, dann müsste Menge und Preis aufsummiert werden und als eine Zeile in eine neue Tabelle geschrieben werden?

Lieferant Artikel Menge Preis

17 255 1 17,30

Erkannt werden muss, dass wenn Lieferant und Artikel gleich sind, die betreffenden Zeilen hinsichtlich Menge und Preis addiert werden müssen und als eine neue Zeile in der Ausgangstabelle eingetragen werden. Dabei ist nicht bekannt, wieviele Artikel gleich sind. Das kann vollkommen unterschiedlich sein :-)

Kann man so etwas über Makros realisieren?

Liebe Grüße

Rookie

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

Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen.

Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen.

Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen.

Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen.

Mit VBA aus geraden und ungeraden Zeilen neuen Datensatz in neuem Blatt erstellen. - Similar Threads - VBA geraden ungeraden

VBA - Ausblenden aller Tabellenblätter außer X

Kamera in Excel einbinden und per vba Fotos erstellen

Liste aller Comboboxen im Sheet

Pivot Tabelle: Quelle per VBA verändern

Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich