2 Prozeduren ausführen
14.03.2007 22:24:00
Max
hab 1 Probleme.
1. Ich will per Buttonclick zwei Prozeduren aktivieren, eine wird im selben Tabellenblatt ausgeführt, das zweite in einem anderen Tabellenblatt. Ich habs bisher mit Call "Prozedurname" versucht, hat aber nichts gebracht. Was muss ich tun, damit die Prozedur auch im anderen Tabellenblatt ausgeführt wird?
Das hab ich bisher. Also ab dem Dim die Prozedur soll in einem anderen tabellenblatt ausgeführt werden.
Private Sub CommandButton1_Click()
ActiveSheet.PivotTables("PivotTable5").RefreshTable
ActiveSheet.PivotTables("PivotTable6").RefreshTable
Dim i As Integer
For i = 1 To 53
If Cells(4, i).Value = "0" Or Cells(4, i).Value = "(Leer)" Then
Columns(i).EntireColumn.Hidden = True
Else
Columns(i).EntireColumn.Hidden = False
End If
Next
End Sub
Gruss Max
Anzeige