Microsoft Excel

Herbers Excel/VBA-Archiv

Case - Abfrage



Excel-Version: 8.0 (Office 97)

Betrifft: Case - Abfrage
von: Detlef
Geschrieben am: 31.05.2002 - 13:37:37

Hallo zusammen,
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 !


  

Re: Case - Abfrage
von: Michael Scheffler
Geschrieben am: 31.05.2002 - 14:17:33

Hallo,

es muss lauten:


Select Case Zelle.Value
Case 186
Sheets("Ausgabe 1").Select
Case 187Sheets("Ausgabe 2").Select
End Select

schau mal in die Hilfe "Is" ist für ">" etc.

Gruß

Micha

  

Re: Case - Abfrage
von: Detlef
Geschrieben am: 31.05.2002 - 14:27:43

Hallo Micha,
das spielt keine Rolle ob
ich "Case Is = 186" oder
"Case 186" eingebe, funktioniert
beides. Mein Problem ist wenn ich
in Spalte O, z.B. die Zahl 186 einge-
geben habe und dann in der nächsten
Zeile z.B. 100 eingebe, wird trotzdem auf
das Sheet umgeschaltet wird.
Gruß Detlef

  

Re: Case - Abfrage
von: WernerB.
Geschrieben am: 31.05.2002 - 14:59:59

Hallo Detlef,

teste doch mal diesen Code:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column <> 15 Then Exit Sub
    If Target.Row < 25 Or Target.Row > 65 Then Exit Sub
    Select Case Target.Value
      Case 186
        Sheets("Ausgabe 1").Select
      Case 187
        Sheets("Ausgabe 2").Select
      Case Else
        Exit Sub
    End Select
End Sub

Schreibe/kopiere dieses Makro in das Klassenmodul des betreffenden Tabellenblattes.

- Mache dazu einen Rechtsklick auf den Tabellennamen.
- Klicke dann auf "Code anzeigen".
- Automatisch öffnen sich nun der VB-Editor und das Klassenmodul des betreffenden Tabellenblattes.
- Schreibe/kopiere das Makro in die große weiße Fläche auf der rechten Seite.
- Zurück zum "normalen" Excel geht's mit Alt + Q.
- Fertig.


Viel Erfolg wünscht
WernerB.

  

Re: Case - Abfrage
von: Detlef
Geschrieben am: 03.06.2002 - 10:29:58

Super !!!
Vielen Dank !

 

Beiträge aus den Excel-Beispielen zum Thema "Case - Abfrage"