AW: Makro einem Symbol zuweisen
19.02.2015 12:36:36
Meike
Super, vielen Dank!!!
Ein Anliegen habe ich aber natürlich noch :):
Ich habe auf Tabelle1 eine Eingabemaske, in der Kontrollkästchen eine Seite auf Tabelle2 ein bzw. ausblenden. Wenn diese ausgeblendet ist, soll auch ein bestimmter Zellenhalt gelöscht werden (B425,426,428). Wäre es hier auch möglich, neben dem Löschen des Zellenhaltes den Befehl zu geben, die Häkchen in den Symbolen zu deaktivieren/ausblenden, so dass beim erneuten einblenden die Seite "leer"erscheint und keine Häkchen von der vorherigen Eingabe gesetzt sind?!
Ich hoffe, ich konnte mein Anliegen deutlich formulieren.
Franz hat mir in einem anderen Thread für meine Kontrollkästchen bereits den Befehl gebaut. Könnt ihr mir sagen, an welche Stelle der Verweis ( .Text = "") eingebaut werden könnte? Wichtig ist für mich, dass die Häkchen nur innerhalb der bestimmten Zellen (hier("425:462)) zurückgesetzt werden und nicht alle auf Tabelle2 deaktiviert sind.
Ich bedanke mich im Voraus für eure Unterstützung!! :)
LG Meike
Sub Button_G()
Application.ScreenUpdating = False
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("I15").Value
With Sheets("Tabelle2")
.Unprotect Password:="pw"
.Rows("425:462").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("B425").Select
ActiveWindow.ScrollRow = 425
Else
.Range("B425,B426,B428").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
Application.ScreenUpdating = True
End Sub