Wie schreibe ich ein Makro, um eine Zahlenliste so zu ändern, dass sie auf jedem Blatt größer wird?

Question

Ich habe eine Tabelle, die in Spalte 2 eine Liste mit Zahlen enthält. Ich muss 50 Blätter gleichzeitig ausdrucken, wobei die Zahlen auf jedem Blatt ansteigen. Blatt 1 beginnt also mit 2834 und endet mit 2848; die nächste Seite beginnt mit 2849 und endet mit 2863 und so weiter und so fort. Wie schreibe ich das Makro und wo platziere ich das Makro? Ich bin ratlos.

Ich habe noch nie ein Makro geschrieben oder verwendet, aber ich bin sicher, dass dies die Lösung wäre, anstatt jede Seite einzeln auszudrucken und jedes Mal die Zahlen zu ändern.

Answer 1

Dies könnte ein guter Ausgangspunkt sein

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

Öffnen Sie VBA/Makros mit ALT+ F11.

Doppelklicken Sie auf der linken Seite auf das Arbeitsblatt und fügen Sie auf der rechten Seite den Code ein.

Passen Sie die Variablen lastsheet, numbersPerPage, selectedColumnund firstValuenach Ihren Wünschen an.