Case - Abfrage
31.05.2002 13:37:37
Detlef
bei Eingabe von der Zahl 186 und
187 in einer Spalte, sollte mir
jeweils auf ein Tabellenblatt
umgeschaltet werden:
Sub Fensterwechsel()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Worksheets("eingabe").range("o25:o65")
For Each Zelle in Bereich
Select Case Zelle.Value
Case Is = 186
Sheets("Ausgabe 1").Select
Case Is = 187
Sheets("Ausgabe 2").Select
End Select
Next
End Sub
Mein Problem, wenn ich 186 oder
187 schon eingegeben habe, wird
auch bei Eingabe andere Zahlen auf
jeweils die Sheets umgeschaltet.
Wie kann ich erreichen das nur bei
Eingabe in jeder Zeile von O25 bis O65
nur einmal umgeschaltet wird ?
Vielen Dank !