Nächste Spalte nach 16 Zeilen,Nächstes Blatt ....
15.03.2019 10:16:54
Curly
ich versuche gerade eine Liste mit Lagerorten einzulesen und diese dann "Blattweise" wieder auszugeben.
Und zwar habe ich 4 Spalten (A-D) mit je 16 Zeilen. Danach soll er wieder in Spalte A in Zeile 17 beginnen usw.
ich habe versucht mir auch schon einen Code zu basteln, allerdings hat er wohl noch ein paar Schwächen. Das Feld "A16" bleibt z.b. leer diese werte sind um 1 Spalte nach rechts verschoben...
in "B16"....
Das wäre mein Code..
Sub Lagerorte()
Dim LastRow As Long
Dim i As Byte
Dim Zeile As Byte
Dim Spalte As Byte
Dim y As Byte
Dim z As Byte
Dim Lagerort As String
Dim Zaehler As Byte
LastRow = Worksheets("Lagerorte").Cells(Rows.Count, 1).End(xlUp).Row
Spalte = 1
For i = 1 To LastRow
z = z + 1
Zeile = (i - 1) Mod 16 + 1
If Zeile Mod 16 = 0 Then
Spalte = Spalte + 1
If Spalte > 4 Then
Spalte = 1
y = y + 1
End If
End If
Lagerort = Worksheets("Lagerorte").Cells(i, 1).Value
Worksheets("Tabelle1").Cells(Zeile + (16 * y), Spalte) = Lagerort
Next i
End Sub