Zeile mit Formel kopieren gemäss Anzahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim i As Integer lz = Sheets(2).Cells(1048576, 1).End(xlUp).Row anz = WorksheetFunction.CountA(Sheets(1).Range("A:A")) For i = 1 To anz Sheets(2).Cells(lz, 1).EntireRow.Copy Destination:=Sheets(2).Cells(lz + i, 1) Next i End Sub

Sub Test() Dim i As Integer lz = Sheets(2).Cells(1048576, 1).End(xlUp).Row anz = WorksheetFunction.CountA(Sheets(1).Range("A8:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp) _ .Row)) For i = 1 To anz Sheets(2).Cells(lz, 1).EntireRow.Copy Destination:=Sheets(2).Cells(lz + i, 1) Next i End Sub

Sub Test() Dim i As Integer lz = Sheets(3).Cells(1048576, 1).End(xlUp).Row anz = WorksheetFunction.CountA(Sheets(4).Range("A8:A" & Sheets(4).Cells(Rows.Count, 1).End(xlUp) _ _ .Row)) For i = 1 To anz Sheets(3).Cells(lz, 1).EntireRow.Copy Destination:=Sheets(3).Cells(lz + i, 1) Next i End Sub

Hallo Alexandra
Ich habe es versucht, es hat leider nicht geklappt. Deshalb versuche ich meine Projekt von Anfang an zu erklären:
Mein Ziel ist es vorhandene Daten als CSV einzulesen. Diese Daten beinhalten jedoch verschiedene "Produkte", diese möchte ich mit entsprechenden Listen ausgeben.
Im Tabellenblatt "ImportCSV" werden die Daten eingefügt (in der Hoch geladenen Datei sind diese bereits drin). Anschließend möchte ich diese auf die Listen "Platten", "Beschlag", "Massiv" verteilen. Um dies zu erreichen wollte ich mit einer Tabelle alle Dateneinlesen und mit der Filteroption nur die entsprechenden Produkte ausgeben. Im Blatt "Platten" wären das front, innenleben, konstruktion. Diese habe ich bewusst in den Zeilen 6 bis 8 eingefügt, damit ich den Filter auch bei einem Leeren Blatt immer auf nach diesen Kriterien filtern kann. Meine Ziel war es, dass Excel somit immer nur diese "Produkte" anzeigt. (Anscheinend wird der Filter jedoch nicht selber aktualisiert.) (Bei den Blättern "Beschlag" und "Massiv" sind das entsprechned andere Produkte)
Erstes Problem:
Ich werde unterschiedliche Daten importieren und möchte den Filter nicht jedes mal neu einstellen. Gibt es dafür eine Möglichkeit dies zu automatisieren? (Spalte L wird später ausgeblendet)
Zweites Problem:
Ich hätte gerne eine Zwischensummenzeile welche die Anzahl Teile der Gruppe ausgibt. Konkret wie viele Teile die Gruppe 1.1 hat. Ist das möglich und falls ja wie kriege ich das hin? (konkret sollte es so aussehen wie im Blatt "Platten" Rot markiert, jedoch sollte das automatisch erstellt werden.)
Des weiteren möchte ich die Zeilen im Blatt "ImportCSV" ab der Zeile 8 Zählen und die Formel (Zeile 11) im Blatt "Platten" entsprechend kopieren (Mit Veränderung des Zellenbezug um jeweils 1). Das wollte ich mit deinem VBA Code machen. Das ganze müsste ich anschliessend für die Blätter "Beschlag" und "Massiv" wiederholen.
Das möchte ich so machen weil Excel Zellen mit Formeln welche "Leer" sind, als nicht Leer anschaut und somit Seitenzahlen vergeben werden. Sprich Beim Drucken habe ich eine Seite mit Zahlen und ca. 20 leere Seiten mit Seitenzahlen...
Falls es eine Möglichkeit gibt welche einfacher ist damit Excel die "Leeren Zellen bei der Seitenzahl nicht berücksichtigt, würde mir das auch sehr helfen.
So ich hoffe ich habe das verständlich umschrieben. Mir ist auch bewusst dass ich extrem viel verlange. Falls mir jemand Helfen kann wäre das Super , würde es aber auch verstehen wenn das zu viel verlangt ist.
Besten Dank Euch
PS. Hier die Tabelle
https://www.herber.de/bbs/user/128994.xlsx

Hallo Alexandra
Wow ich bin sprachlos... Wie lange hast du dafür gebraucht 30min?!
Klappt soweit sehr gut.
1. Die CSV Daten werden immer neu eingelesen.
2. Genau so wollte ich das.
3. Formel kopieren hat sich somit erübrigt.
Was jetzt noch nicht ganz optimal ist, sind die Zwischensummen. Die stimmen noch nicht. Ebenfalls wäre es optimal wenn die Gruppe in der Ergebnisszeile nochmals erwähnt wird (evtl als Total 2.1) sowie die Stk. in der Spalte M als Summe.
Weiter sind die CSV Listen unterschiedlich gross. Das übertragen der Daten funktioniert bei längerer Liste noch nicht ganz.
Meine Überlegung zu den zwei Stückzahlen ist folgend:
Die CSV Daten werden aus einem CAD exportiert. Es kann sein das zum Beispiel ein Schrank jedoch mehrfach produziert wird. Dies möchte ich im Excel auf dem Blatt Start Zeile C4 steuern. Gebe ich dort folglich 3 ein, soll es mir in der Spalte D T. Stk die Stk. (Spalte M) mal 3 rechnen.
Vielen Dank schon mal für die bisher geleistete Arbeit.
Gruss Dani

Beliebteste Forumthreads (12 Monate)

Zeile mit Formel kopieren gemäss Anzahl

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile mit Formel kopieren gemäss Anzahl

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread