Wenn Code Ja ergibt, endet der Code?
26.02.2020 17:26:21
Dieter(Drummer)
Auf die Gefahr, dass ich nerve, habe ich eine Frage und Bitte um Hilfe.
Problem im Code:
Immer wenn die If-Anweisung "Ja" ergibt, wird die nächste If-Anweisung nicht mehr ausgeführt, Sobald "Nein" das Ergbnis ist, geht es zur nächsten If-Anweisung, bis "Ja" und der Code geht dann auch nicht mehr weiter.
Was ist falsch in meinem Code?
Gruß, Dieter(Drummer)
'Rahmen Linien Prüfung
Sub Linie_ja_nein()
Range("B3").Select
If ActiveCell.Borders(xlEdgeLeft).LineStyle = 1 Then
MsgBox "Linie links ja"
Else
MsgBox "Linie links Nein"
If ActiveCell.Borders(xlEdgeTop).LineStyle = 1 Then
MsgBox "Linie oben ja"
Else
MsgBox "Linie oben Nein"
If ActiveCell.Borders(xlEdgeRight).LineStyle = 1 Then
MsgBox "Linie rechts ja"
Else
MsgBox "Linie rechts Nein"
If ActiveCell.Borders(xlEdgeBottom).LineStyle = 1 Then
MsgBox "Linie unten ja"
Else
MsgBox "Linie unten Nein"
End If
End If
End If
End If
End Sub