Endw with ohnewith
Mate
Ich wende mich an euch da ich permanent die obige Fehlermerldung erhalte. Ich versuche _ folgendes zu machen: Auf der Seite Grunddaten Grenzwerte werden bestimmte Zellen überprüft, sofern eine Zelle (z.B. AJ21) >0 ist, erfolgt eine Meldung durch eine Messagebox. Sobald im Anschluss der Meldung der Wert berichtigt wird soll die nächste Seite angesteuert werden können. Wenn die entsprechenden Zellwerte (u.a.AJ 21) nicht berichtigt wurden, soll die Schleife wieder durchlaufen werden.
Sub Navigation_Grenzwerte()
Application.ScreenUpdating = False
Blattschutz_aus
If Range("AJ21").Value > 0 Then
Msgbox_Privatkunden_Sicherheit
Else
If Range("AJ25").Value > 0 Then
Msgbox_Privatkunden_Ertrag
Else
If Range("AJ29").Value > 0 Then
Msgbox_Privatkunden_Wachstum
Else
If Range("AJ33").Value > 0 Then
Msgbox_Privatkunden_Chance
Else
If Range("AJ37").Value > 0 Then
Msgbox_Privatkunden_Spekulativ
End If
End If
Blattschutz_aus
With Worksheets("Grunddaten_Grenzwerte")
If Worksheets("Grunddaten_Grenzwerte").Range("AJ21").Value = 0 Then
Sheets("Simulation").Visible = True
Sheets("Simulation").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Neutralwerte").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
Else
If Worksheets("Grunddaten_Grenzwerte").Range("AJ25").Value = 0 Then
Sheets("Simulation").Visible = True
Sheets("Simulation").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Neutralwerte").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
Else
If Worksheets("Grunddaten_Grenzwerte").Range("AJ29").Value = 0 Then
Sheets("Simulation").Visible = True
Sheets("Simulation").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Neutralwerte").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
Else
If Worksheets("Grunddaten_Grenzwerte").Range("AJ33").Value = 0 Then
Sheets("Simulation").Visible = True
Sheets("Simulation").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Neutralwerte").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
Else
If Worksheets("Grunddaten_Grenzwerte").Range("AJ37").Value = 0 Then
Sheets("Simulation").Visible = True
Sheets("Simulation").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Neutralwerte").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
End If
End If
End If
End If
ActiveWindow.Zoom = 100
Blattschutz_ein
Range("A1").Select
End With
End Sub