Private Sub Worksheet_Change
19.11.2008 10:35:41
Gordon
ich habe folgenden Code:
Sub Anzahl_Klassen()
Dim anzKl As Integer
anzKl = Worksheets("Tabelle1").Cells(1, 2).Value
With Worksheets("Tabelle1")
If anzKl = 0 Then
.Rows("5:102").RowHeight = 0
Else:
.Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75
.Rows(anzKl * 11 + 5 & ":103").RowHeight = 0
End If
If .Rows(11 * anzKl + 5 & ":104").RowHeight = 0 Then
For i = anzKl + 1 To 10
.Range("b" & 11 * i - 5 & ":c" & 11 * i - 4).ClearContents
.Range("b" & 11 * i - 1 & ":b" & 11 * i + 2).ClearContents
Next i
End If
End With
End Sub
Und möchte ich gerne, dass dieser Code immer ausgeführt wird, wenn sich der Wert in Zelle "B1" (bzw. in dem Fall auch Variable "anzKl") ändert. Ich weiß, dass es irgendwie mit Private Sub Worksheet_Change geht, aber bin leider nicht bewandert genug um es umzusetzen. Kann mir jemand da unter die Arme greifen?
Gruß
Gordon
Anzeige