Worksheet_Calculate()
13.12.2006 12:50:17
Sophie
Versuche meiner Datei beizubringen, dass wenn ein Blatt sich ändert oder neu berechnet wird, dass das Blatt entpsrechend verändert wird.
Also, in der Tabelle "1" steht folgender Code:
Private Sub Worksheet_Calculate()
Call Makro_1
End Sub
Somit rufe ich nachstehendes Makro, frage durch Schleifen nach den Zeileninhalt und lasse jenachdem ein- bzw. ausblenden. Funktioniert aber nicht. Fehler, die vorkommen: Änderung anderer Blätter führt dazu, dass ich irgendwann auf Blatt "1" springe in die Zeile j7, die Schleifen sind endlos und erfüllen immer nur die erste Zeile des Befehls, danach springen sie zum Anfang...
Wenn jemand weiß, wie man das löst, bin ich sehr-sehr für die Unterstützung dankbar!!!
LG
Sophie ;-)
Sub Makro_1()
Dim a As Integer
Dim b As Integer
a = Worksheets("1").Range("o19").Value
For a = 1 To 2
If a = 1 Then
Worksheets("1").Rows("20:22").Hidden = True And _
Worksheets("1").Shapes("Check Box 52").Visible = False And _
Worksheets("1").Shapes("Check Box 53").Visible = False And _
Worksheets("1").Shapes("Check Box 54").Visible = False
End If
If a = 2 Then
Worksheets("1").Rows("20:22").Hidden = False
Worksheets("1").Shapes("Check Box 52").Visible = True
Worksheets("1").Shapes("Check Box 53").Visible = True
Worksheets("1").Shapes("Check Box 54").Visible = True
End If
Next
b = Worksheets("1").Range("o7").Value
For b = 1 To 2
If b = 1 Then
Worksheets("1).Shapes("Button 213").Visible = False
Worksheets("1").Shapes("text box 130").Visible = False
Worksheets("1").Range("j7").Value = 0
End If
If b = 2 Then
Worksheets("1").Shapes("text box 130").Visible = True
Worksheets("1").Shapes("Button 213").Visible = True
End If
Next
Worksheets("1").Range("j7").Select
End Sub