ich bin noch in der Lernphase mit VBA.
Ich habe ein VBA-Script was nur die Zeilen druckt die beschriftet sind.
Nachdem das aber eine Tabelle ist und hier einen Summenbildung stattfindet sollte die Summenzeile imm als letztes angehängt werden.
Nur wie geht das ?
Hier mein VBA-Script:
Private Sub CommandButton1_Click()
Dim intS As Integer, lngE As Long, lngZ As Long
'Spalte B;
intS = 2
'Letzte Zeile mit Eintrag suchen:
lngE = Cells(Rows.Count, intS).End(xlUp).Row
'Zeilen ausblenden:
For lngZ = 10 To lngE
If Cells(lngZ, 5) = "" Then Rows(lngZ).EntireRow.Hidden = True
Next
'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$7:$F$" & lngE
'Drucken:
ActiveSheet.PrintOut
'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""
'Zeilen einblenden:
Rows.Hidden = False
End Sub
Die Summenzeile befindet sich bei A97Schon mal besten Dank!