Zusatzfrage zum Spaltentauschen

[Oldman]

Hallo und einen guten Tag,

noch eine Zusatzfrage zur Datei Spaltentauschen.

Ich möchte zum Ausdrucken der Belege, für jeden Abnehmer ein Blatt ausdrucken auf dem immer nur seine Daten ersichtlich sind.
Im Klartext zur angehängten Datei:
Für Abnehmer 1 von A 2 bis J 2
für Abnehmer 2 von A 3 bis J 3
bis Abnehmer 3 bis Abnehmer 18 ebenso
zusätzlich auf jedem Blatt A 1 bis J 1, (sozusagen als Überschriften)
und den gesamten Bereich A 17 bis C 31.
somit auf Druckbefehl 15 x ein Blatt für jeden Abnehmer mit seinen Daten und immer auf jeden Blatt der Bereich - Rechnungsbetrag bis Gesamtumlage. (A 17 - C 31)

Mit freundlichen Grüssen

Oldman


angehängte Datei der jetzige Stand.


Angehängte Dateien
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]   Energieabrechnung 2020 zum Versenden.xlsm (Größe: 26,11 KB / Downloads: 0)

[AlterDresdner]

Hallo Oldman,
der Code wäre

Code:

Option Explicit
Private Sub CommandButton1_Click()
Dim zeile As Long, LastRow As Long, i As Long
  If MsgBox("Abrechnungen auf Drucker " & ActivePrinter & " drucken?", vbYesNo, "richtiger Drucker?") = vbNo Then Exit Sub
  LastRow = 2
  Do
    Rows(LastRow).Hidden = True
    LastRow = LastRow + 1
  Loop Until Trim(Cells(LastRow, 1)) = "Rechnungsbetrag"
  LastRow = LastRow - 1
  For zeile = 2 To LastRow
    Rows(zeile).Hidden = False
    'ActiveWindow.PrintOut copies:=1
    Rows(zeile).Hidden = True
  Next zeile
  Rows("2:" & LastRow).Hidden = False
End Sub

Das Option Explicit sollte in jedes VBA-Projekt, erzwingt Variablendeklaration und behütet vor Schreibfehlern.

[Oldman]

Hallo Alter Dresdener,

danke für die schnelle Antwort.
Habe unter dem Thema Spaltentauschen die vorhergehende  Excel Datei angehängt.
Dort ist bereits unter anderen die Zeile Command Button 1 click vorhanden.
könnte es daraus Probleme geben mit deinem Code?
Wo soll der Code eingefügt werden in der neuen Datei?
Wenn es Dir möglich wäre das zu überprüfen grossen Dank von einem wiklich alten Mann (80)

Vielen dank

Oldman