Auswertung

Guten Abend
Ich suche schon längere Zeit und komme jetzt an meine Grenzen. Ich habe eine csv Datei welche mir Messwerte von diversen Modellen ausgibt.
Pro Modell mehrere Zeilen. Siehe Spalte AP im Beispiel.
Ich habe diese nun schon in Excel per VBA exportiert. Aber jetzt müsste ich die Werte in einzelne Blätter in der Tabelle auslesen.
Die Blätter sollten automatisch erstellen und umbenannt werden, nach Modell 1, Modell 2
und die Werte aus der Gesamtauswertung je nach Modell kopiert werden.
Ich habe eine Beispieldaten hochgeladen
https://www.herber.de/bbs/user/142264.xlsx
Die Werte stehen immer in der gleichen Zeile einzig die Anzahl der Modelle variiert. Darum wäre es noch sehr hilfreich das die Formeln nach dem Wert in Spalte AP schaut und entsprechend der Modelle die jeweilige Anzahl Tabellenblätter mit den Werten erzeugt.
Ich habe schon zig Foren nach Möglichkeiten durchsucht aber nicht das Richtige gefunden bzw. nur Teillösungen
Schon mal ein Dankeschön für die Unterstützung
Grüße Klaus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auswertung

11.12.2020 17:22:50

Werner

AW: Auswertung

11.12.2020 17:35:57

worti

AW: Auswertung

14.12.2020 13:19:48

Klaus

AW: Auswertung

15.12.2020 08:26:48

Klaus

AW: Auswertung

17.12.2020 12:36:03

Klaus

Sub Klaus() Dim ws As Worksheet, wsQuelle As Worksheet Dim lngZeile As Long, lngZielZeile As Long Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1") Set ws = Worksheets.Add ws.Name = "Modell " & wsQuelle.Cells(1, 42).Value lngZielZeile = 1 For lngZeile = 1 To wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row wsQuelle.Rows(lngZeile).Copy Destination:=ws.Range("A" & lngZielZeile) If wsQuelle.Cells(lngZeile, 42).Value = wsQuelle.Cells(lngZeile + 1, 42).Value Then lngZielZeile = lngZielZeile + 1 Else If lngZeile

Hallo Zusammen
Dank Eurer Hilfe habe ich es, wie gewünscht, hinbekommen das meine Daten je nach Modell aufgeteilt werden.
Jetzt habe ich noch ein Diagramm eingefügt damit die Analyse besser und schöner zu erkennen ist.
Ich habe mir das Diagramm in einem Blatt (Diagramm) gespeichert.
Jetzt komme ich aber nicht mehr weiter, da ich nun das Diagramm auf die einzelnen Blätter kopieren möchte.
In diversen Foren finden ich nur wie man ein Diagramm von - nach kopieren kann. Da aber meine Tabelle variabel ist, je nach Modell auch mal mehr oder weniger Blätter, hänge ich hier fest.
ich habe eine Beispieltabelle (mit 5 Modellen) hochgeladen:
https://www.herber.de/bbs/user/142397.xlsm
In diesem Beispiel sind schon 3 Makros vorhanden:
1. csv Daten in Excel kopieren (Blatt Import)
2. Pro Modell Daten kopieren und eigenes Blatt erstellen
3. Blatt Import wieder leeren
Im Blatt Diagramm ist das Diagramm gespeichert, welches ich nun auf die einzelnen Tabellen Blätter (Modell 1, Modell 2, usw.) kopieren möchte.
Da die Anzahl der Modell variert wäre es super, wenn es per VBA möglich wäre das Diagramm zu kopieren
schon mal vielen Dank im Voraus
Grüße Klaus

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread