Makro auf anderes Blatt
27.02.2007 13:26:40
Florian
ich habe folgendes Problem:
Dieses Makro habe ich einem Button in dem zu bearbeitenden Blatt zugeordnet. Nun möchte ich diesen Button (Befehl) auf einem anderen Tabellenblatt einfügen, doch leider funktioniert das Makro dann nicht mehr!
Wie kann ich das Makro über das ursprüngliche Blatt im Hintergrund laufen lassen?
Was muß ich dem Makro einfügen?
Private Sub Grafik_Click()
ActiveSheet.Unprotect
Dim ix As Single
If GRAFIK.Caption = "Grafik bearbeiten" Then
GRAFIK.Caption = "RESET"
For ix = 8 To 494
If Application.WorksheetFunction.Sum(Range(Cells(ix, 4), Cells(ix, 55))) = 0 _
Then ActiveSheet.Rows(ix).EntireRow.Hidden = True
End If
Next ix
For ix = 4 To 55
If Application.WorksheetFunction.Sum(Range(Cells(8, ix), Cells(494, ix))) = 0 _
_ _ Then ActiveSheet.Columns(ix).EntireColumn.Hidden = True
End If
Next ix
Else
GRAFIK.Caption = "Grafik bearbeiten"
ActiveSheet.Range(Cells(1, 1), Cells(494, 55)).EntireRow.Hidden = False
ActiveSheet.Range(Cells(1, 1), Cells(494, 55)).EntireColumn.Hidden = False
End If
If GRAFIK.Caption = "RESET" Then
Sheets("Diagramm_II").Select
End If
ActiveSheet.Protect
End Sub
Herzlichen Dank,
Florian