Zellenabfrage
Werner
------------------------------------------------------------------------------------------------ _ -------------------------------
Sub Atest()
Range("A1:C1").Select
Dim rngData As Range
Set rngData = Selection
If ActiveCell.Value = "" Then
MsgBox " Keine Daten", , ""
Exit Sub
End If
If rngData.Range("A1").Value > 0 And rngData.Range("B1") >= 0 And rngData.Range("C1") >= 0 Then
MsgBox " Zug am Vorsignal A1 !", , ""
End If
If rngData.Range("A1").Value = 0 And rngData.Range("B1") = 0 And rngData.Range("C1") = 1 Then
MsgBox " Durchfahrt über A1.1 ", , ""
End If
If rngData.Range("A1").Value = 0 And rngData.Range("B1") = 0 And rngData.Range("C1") = 0 Then
MsgBox " Durchfahrt über A1.1 ", , ""
End If
If rngData.Range("A1").Value = 0 And rngData.Range("B1") = 1 And rngData.Range("C1") = 0 Then
MsgBox " Durchfahrt über A1.2 ", , ""
End If
If rngData.Range("A1").Value = 0 And rngData.Range("B1") = 1 And rngData.Range("C1") >= 1 Then
MsgBox " Alle Gleise belegt !!! ", , ""
End If
End Sub
--------------Die Abfragen funktionieren .-------------------------------------------------------------------------------------------
Wenn ich aber jetzt noch anderen Zellen wie K12,L12;M12 mit dem gleichen Modul nur die Zellen geändert
abfragen möchte funktioniert es nicht , egal wie ich die Zellen mit 1 oder 0 belege kommt immer nur ein falsches Ergebniss.
Hier das Modul:
Sub K12test()
Range("K12:M12").Select
Dim rngData As Range
Set rngData = Selection
If ActiveCell.Value = "" Then
MsgBox " Keine Daten", , ""
Exit Sub
End If
If rngData.Range("K12").Value > 0 And rngData.Range("L12") >= 0 And rngData.Range("M12") >= 0 _
_
Then
MsgBox " Zug am Vorsignal A1 !", , ""
End If
If rngData.Range("K12").Value = 0 And rngData.Range("L12") = 0 And rngData.Range("M12") = 1 _
Then
MsgBox " Durchfahrt über A1.1 ", , ""
End If
If rngData.Range("K12").Value = 0 And rngData.Range("L12") = 0 And rngData.Range("M12") = 0 _
Then
MsgBox " Durchfahrt über A1.1 ", , ""
End If
If rngData.Range("K12").Value = 0 And rngData.Range("L12") = 1 And rngData.Range("M12") = 0 _
Then
MsgBox " Durchfahrt über A1.2 ", , ""
End If
If rngData.Range("K12").Value = 0 And rngData.Range("L12") = 1 And rngData.Range("M12") >= 1 _
Then
MsgBox " Alle Gleise belegt !!! ", , ""
End If
End Sub
Danke für Eure Antworten