Verschiedene Werte sollen die selbe Action auslöse

Bild

Betrifft: Verschiedene Werte sollen die selbe Action auslöse
von: Karsten J.
Geschrieben am: 02.10.2003 08:39:11

Hallo

Bei meinem Programm wird eine Zahl an einer bestimmten Stelle hinterlege, jenachdem wer das Programm startet.

jetzt muß ich je nach anwender in verschiedene ordner.

ich hatte es folgendermaßen versucht:
If Sheets("Leer").Cells(1, 256).Value = 11 and 12 and 13 and 14 Then Sheets("a").Select
If Sheets("Leer").Cells(1, 256).Value = 21 and 22 and 23 and 24 Then Sheets("b").Select
If Sheets("Leer").Cells(1, 256).Value = 31 and 32 and 33 and 34 Then Sheets("c").Select

Wenn die Zahlen in Feld (1,256) jetzt 11, 21 oder 31 ist, klappt alles prima.
Aber wenn die Zahl 12, 13, 14, 22, 23, 24, 32, 33 oder 34 ist, läuft das Macro einfach ohne action durch.

Habe schon mal das "and" gegen "or" ersetzt, dann geht er bei jeder zahl erst nach "a" dann nach "b" und bleibt dann bei "c".

Was mache ich falsch?

MfG

Karsten

Bild


Betrifft: AW: Verschiedene Werte sollen die selbe Action auslöse
von: Andreas Schindler
Geschrieben am: 02.10.2003 08:49:44

If Sheets("Leer").Cells(1, 256).Value = (11 or 12 or 13 or 14) Then Sheets("a").Select


So sollte es funktionieren

11 and 12 ist immer falsch. Du kannst ja auch nicht gleichzeitig 11 und 12 Jahre alt sein, oder ?
Das lief nur deswegen bei 11 weil xxx.value = 11 als erstes ausgewertet wird und der rest dann verworfen wird.

Gruß
Andreas


Bild


Betrifft: AW: Verschiedene Werte sollen die selbe Action auslöse
von: Karsten J.
Geschrieben am: 02.10.2003 09:05:07

Hi

Danke, werde es gleich mal ausprobieren.

MfG

Karsten


Bild


Betrifft: AW: Verschiedene Werte sollen die selbe Action auslöse
von: Karsten J.
Geschrieben am: 02.10.2003 09:10:31

Hallo Andreas

Geht leider auch nicht.

Werde es aber weiter versuchen.

MfG

Karsten


Bild


Betrifft: AW: Verschiedene Werte sollen die selbe Action auslöse
von: WernerB.
Geschrieben am: 02.10.2003 08:53:45

Hallo Karsten,

Deine Syntax ist falsch. sie sollte so lauten:

Sub KarstenX()
    If Sheets("Leer").Cells(1, 256).Value = 11 Or _
      Sheets("Leer").Cells(1, 256).Value = 12 Or _
      Sheets("Leer").Cells(1, 256).Value = 13 Then Sheets("a").Select
End Sub

Eleganter ist aber sicherlich die Select-Case-Lösung:

Sub Karsten()
    Select Case Sheets("Leer").Cells(1, 256).Value
      Case 11, 12, 13, 14
        Sheets("a").Select
      Case 21, 22, 23, 24
        Sheets("b").Select
      Case 31, 32, 33, 34
        Sheets("c").Select
    End Select
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Verschiedene Werte sollen die selbe Action auslöse
von: Karsten J.
Geschrieben am: 02.10.2003 09:13:35

Hallo Werner

Ich habe die elegante Lösung gewählt und es klappt.

Danke für die Hilfe

MfG

Karsten

PS: Das ist echt ein klasse Forum. Ohne die Hilfe dieses Forums wäre mein Projekt, mangels Wissen gescheitert. DANKE nochmal an alle die hier helfen.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Verschiedene Werte sollen die selbe Action auslöse"