Bedingung um nächsten Tabellenblatt zu erreichen
25.02.2014 20:46:38
Thomas
ich habe eine Arbeitsmappe mit 15 Tabellenblättern. Zwischen den Tabellenblättern soll man mittels Pfeilen navigieren. Allerdings soll man von einem Tabellenblatt nur auf das nächste gelangen, wenn eine bestimmte Bedingung erfüllt ist. In einem Fall soll eine von drei Zellen ausgefüllt sein. Das funktioniert auch mit folgendem Code ganz gut:
If Range("A1").Value = "" Then
If Range("A2").Value = "" Then
If Range("A3").Value = "" Then
MsgBox "Bitte Zelle A1, A2 oder A3 ausfüllen.", vbCritical, "Achtung"
Exit Sub
End If
End If
End If
Sheets("Tabelle2").Select
Range("A1").Select
Ich habe es mit folgendem Code probiert, allerdings komme ich in diesem Fall bereits auf das nächste Tabellenblatt, wenn nur eine der sechs Zellen ausgefüllt ist.
If Range("A1").Value = "" Then
If Range("A2").Value = "" Then
If Range("A3").Value = "" Then
If Range("B1").Value = "" Then
If Range("B2").Value = "" Then
If Range("B3").Value = "" Then
MsgBox "Bitte Zelle A1, A2 oder A3 und B1, B2 oder B3 ausfüllen.", vbCritical, "Achtung"
Exit Sub
End If
End If
End If
End If
End If
End If
Sheets("Tabelle 3").Select
Range("A1").Select