Archiv aus Excelliste befüllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo nochmal,
also ist fast fertig.
Arbeitet bis jetzt wie folgt: Die Ordner werden einzeln in das Zwischenblatt "Transfer" aufgelistet (habs zuerst ohne Zwischenblatt probiert, habs partout nicht hingekriegt). Z.B. wenn Ordnerzahl für Mandant X 10 ist, steht 10x untereinander Mandant X.
Dann wird die Anzahl der nötigen Seitenwechsel ermittelt.
In 2er Schritten geht er immer (bzw. soll gehen) eine Zeile vorwärts und eine Zeile rückwärts.
Im Prinzip würds funzen. Das einzieg was jetz nicht geht, is der Rückwärtsbefehl, d.h. er fängt die Zeile jetzt immer in Spalte A an. Für den ersten Wechsel stimmt auch der Sprung nicht, d.h. er verschlampt jetzt eines. Für die anderen geht es komischerweise (Soweit ich jetzt gesehen hab). Irgendwie steh ich da auf dem Schlauch...
Ich habs jetz mal hochgeladen, schau zwar selber auch nochmal, aber vielleicht kriegt des jemand hin?
Wegen der Zwischentabelle gehts jetzt natürlich nur für Gesamtordnerzahl kleiner 66000. Falls Du mehr brauchst, meld Dich nochmal!
Greetings,
Florian
https://www.herber.de/bbs/user/26050.xls

Hi Florian,
fall es dich interessiert, hab jetzt die richtige Anpassung -> dank deiner super Vorarbeit


Sub Archiv()
Dim i As Integer, EndZeileBedarf As Integer, j As Integer
Dim m As Integer, n As Integer, p As Integer, x As Integer
Dim AnzahlOrdner As Integer, AnzahlSeitenWechsel As Integer
Dim GesamtAnzahlOrdner As Long, EndzeileArchiv As Integer
Dim Archiv As Worksheet, Bedarf As Worksheet, Transfer As Worksheet, Fertig As Worksheet
Set Bedarf = Sheets("Bedarf")
Set Archiv = Sheets("Archiv")
Set Transfer = Sheets("Transfer")
Set Fertig = Sheets("Fertig")
EndZeileBedarf = Bedarf.UsedRange.Rows.Count
p = 1
'   Schreibt jede Ordnerposition einzeln in Sheet "Transfer"
For i = 2 To EndZeileBedarf
AnzahlOrdner = Bedarf.Cells(i, 9)
For n = 1 To AnzahlOrdner
Transfer.Cells(n + p - 1, 1) = Bedarf.Cells(i, 9) 'geändert -1'
Transfer.Cells(n + p - 1, 2) = Bedarf.Cells(i, 1) 'geändert -1'
Next n
p = p + AnzahlOrdner
Next i
GesamtAnzahlOrdner = Transfer.UsedRange.Rows.Count
AnzahlSeitenWechsel = (Round(GesamtAnzahlOrdner / 144) + 1) * 2
p = 0
For i = 1 To AnzahlSeitenWechsel Step 2
For j = 1 To 145
m = 3
Archiv.Cells(m + p, j) = Transfer.Cells(j + x, 2) 'geändert aus j+1 -> j'
Archiv.Cells(m + p + 1, 146 - j) = Transfer.Cells(289 + x - j, 2)
Next j
p = p + 1
x = p * 144
Next i
EndzeileArchiv = Archiv.UsedRange.Rows.Count
For j = 3 To EndzeileArchiv
If j Mod 2 = 1 Then
For i = 1 To 144
Fertig.Cells(j, i + 1) = Archiv.Cells(j, i)
Next i
Else
For i = 1 To 144
Fertig.Cells(j, 146 - i) = Archiv.Cells(j, i)
Next i
End If
Next j
End Sub

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread