ich möchte bei diversen Pivottabellen nur die unterste Zeile = Gesamtsumme anzeigen lassen.
Dafür habe ich das Zahlenformat auf Weiß gestellt, also sind alle unsichtbar. Jetzt soll in jeder Tabelle (sind immer Nummern als Namen) die unterste Zeile der Spalten G und H auf normales Zahlenformat und damit sichtbar gemacht werden.
Hier die Schleife:
Sub NurLetzteZelle()
Dim i As Integer
Dim letztezeile As Integer
Dim wks As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
.Calculation = xlCalculationManual
With ThisWorkbook
For i = .Sheets.Count To 1 Step -1
'Ist Tabellenname eine Zahl?
If IsNumeric(.Sheets(i).Name) Then
'Tabelle nur letzte Zeile Normal
letztezeile = Sheets(i).Cells(65536, 8).End(xlUp).Row
Cells(letztezeile, 8).Select
Selection.NumberFormat = "#,##0.00"
Cells(letztezeile, 7).Select
Selection.NumberFormat = "#,##0.00"
DoEvents
End If
Next i
End With
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
On Error Resume Next
Set wks = Worksheets("(Leer)")
On Error GoTo 0
'If Not wks Is Nothing Then
' Sheets("(Leer)").PrintOut
'Else
Sheets("Eingabe").Select
'End If
End Sub
Ich denke, es liegt am Select und man sollte irgendwie with machen aber ich weiß nicht wie.
Kann jemand Helfen?
Vielen Dank und viele Grüße Lutz