Wenn Zelle = X dann Ausrichtung Spalte...
12.12.2012 15:35:10
Tim
ich möchte gerne folgendes für ein Blatt (Blatt7) einer Tabelle umsetzen:
Wenn V1 = X dann Ausrichtung Bereich F9:F1007 = linksbündig mit Schriftgröße 11, ansonsten Ausrichtung = zentriert mit Schriftgröße 12.
Ich habe bislang folgenden Codeteil im Change-Ereignis, das klappt allerdings nur, wenn ich anschließend manuell in eine Zelle klicke.
Kann mir jemand sagen, was ich hier anders / besser machen kann ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(7).Unprotect "XXX"
If Worksheets(7).Range("V1") = "X" Then
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlLeft
Worksheets(7).Range("F9:F1007").Font.Size = 11
Else
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlCenter
Worksheets(7).Range("F9:F1007").Font.Size = 12
End If
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="XXX"
End Sub
VG und vielen Dank im Voraus für jeden Tipp, Tim