Prüfung Spalteneingaben @Rudi Maintaire
Mirko
ich wende mich mit folgendem Makro an euch, ursprünglich von Rudi Maintaire zur Verfügung gestellt (nochmals danke!). Meine Frage, wenn ich im Bereich With Worksheets . Test + .Range (AJ ) nun nicht nur die Daten in der Spalte AJ sondern nach Abschluß der Prüfung der Spalte auch zusätzlich die Spalte AN prüfen will, wie muss dann das Makro angepasst werden? Wenn ich den ganzen With Worksheet-term mit der Anpassung AN anhänge, wird die Spalte AN nicht durchlaufen.
Wäre sehr happy, wenn mir jemand helfen könnte!
Besten Dank!
Mirko
Sub Navigation_Grenzwerte()
Application.ScreenUpdating = False
Blattschutz_aus
If Range("AJ21").Value > 0 Then
Msgbox_Privatkunden_Sicherheit
ElseIf Range("AJ25").Value > 0 Then
Msgbox_Privatkunden_Ertrag
ElseIf Range("AJ29").Value > 0 Then
Msgbox_Privatkunden_Wachstum
ElseIf Range("AJ33").Value > 0 Then
Msgbox_Privatkunden_Chance
ElseIf Range("AJ37").Value > 0 Then
Msgbox_Privatkunden_Spekulativ
End If
Blattschutz_aus
With Worksheets("Grunddaten_Grenzwerte")
For i = 21 To 37 Step 4
test = test + .Range("AJ" & i)
Next
End With
If test = 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
'mach was
End If
ActiveWindow.Zoom = 100
Blattschutz_ein
Range("A1").Select
End Sub
Anzeige