Neue Tabellenblätter erstellen nach Templete

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Mach() Dim WS1 As Worksheet, WS2 As Worksheet Dim iZeile As Long Set WS1 = Worksheets("Übersicht") Set WS2 = Worksheets("Template") For iZeile = 6 To WS1.Cells(WS1.Rows.Count, 1).End(xlUp).Row If Not BlattExists(WS1.Cells(iZeile, 1)) Then WS2.Copy After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = WS1.Cells(iZeile, 1) End If Next iZeile End Sub

Private Function BlattExists(sBlattname As String) As Boolean Dim i As Integer For i = 1 To Worksheets.Count If Worksheets(i).Name = sBlattname Then BlattExists = True Exit Function End If Next i End Function

Hallo Chris,
ich glaube jetzt haben wir uns missverstanden.
Mit dem ersten Punkt meinte ich das wenn wie im 1. Beispiel nur bei jedem 2. Datum ein Betrag steht, dann soll er auch nur jedes zweite Datum (und den dazugehörigen Betrag) in das jeweilige Tabellenblatt übernehmen (ohne dabei Leerzeilen zu hinterlassen).
Ich hatte schon einmal ein wenig rumprobiert und hab das für das Datum mit folgender Matrixformel gelöst, allerdings weiß ich nicht wie ich die Formel umbaue damit es für das Template passt.

{=WENN(ZEILE(Kosten!B2)>ANZAHL2(Kosten!$B$2:$B$204);"";INDEX(Kosten!A:A;
KKLEINSTE(WENN(Kosten!B$2:B$1004"";ZEILE(Kosten!$2:$1000));ZEILE(Kosten!A2))))}

Ich hoffe du kannst mir noch folgen :-)
Und mit dem zweiten Punkte meinte ich das ich die Formeln ja erst sehe wenn ich die Spalte A befülle. Also kann ich die Formel ja erst hinterher ändern. Ich würde Sie aber gern schon im voraus anpassen.
Gruß Jörg

Ach Mist, jetzt habe ich wieder das Häckchen für den offenen Teil vergessen :-(
Von daher jetzt das ganze nochmal mit Häckchen ;-):
Hallo Chris,
ich glaube jetzt haben wir uns missverstanden.
Mit dem ersten Punkt meinte ich das wenn wie im 1. Beispiel nur bei jedem 2. Datum ein Betrag steht, dann soll er auch nur jedes zweite Datum (und den dazugehörigen Betrag) in das jeweilige Tabellenblatt übernehmen (ohne dabei Leerzeilen zu hinterlassen).
Ich hatte schon einmal ein wenig rumprobiert und hab das für das Datum mit folgender Matrixformel gelöst, allerdings weiß ich nicht wie ich die Formel umbaue damit es für das Template passt.

{=WENN(ZEILE(Kosten!B2)>ANZAHL2(Kosten!$B$2:$B$204);"";INDEX(Kosten!A:A;
KKLEINSTE(WENN(Kosten!B$2:B$1004"";ZEILE(Kosten!$2:$1000));ZEILE(Kosten!A2))))}

Beliebteste Forumthreads (12 Monate)

Neue Tabellenblätter erstellen nach Templete

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neue Tabellenblätter erstellen nach Templete

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread