Select Case -Erster Versuch

Forumthread: Select Case -Erster Versuch
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Select Case -Erster Versuch

17.05.2018 20:44:34

Kai

Hallo zusammen,
ich versuche mich das erste mal an der Select Case-Anweisung. Sieht logisch aus, ich habe aber folgendes Problem:
A wird markiert, mit der Meldung: Variable nicht definiert.

    strZylinder = wksZiel.Range("O27").Text
strZylinder = Right(strZylinder, 1)
MsgBox strZylinder
dblHüP = wksZiel.Range("R27").Value
Select Case strZylinder
Case A, C
dblH1 = 11.99 - dblHüP
Case B, E, F
dblH1 = 12 - dblHüP
Case D
dblH1 = 11.98 - dblHüP
Case Else
MsgBox "Zylinder nicht gefunden"

Ich habe mir inzwischen einige Beispiele und die Excelhilfe angeschaut, weiß aber nicht, wo der Fehler liegt. Funktioniert Select Case nicht mit Stringvariablen?
Gruß
Kai

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Select Case -Erster Versuch

17.05.2018 20:52:38

Werner
AW: Select Case -Erster Versuch

17.05.2018 21:04:42

Kai
Gerne u.Danke für die Rückmeldung. o.w.T.

17.05.2018 21:21:30

Werner
beachte auch, ...

17.05.2018 22:17:48

Rudi

AW: Select Case -Erster Versuch

17.05.2018 20:52:38

Werner

Hallo Kai,
so:

Select Case strZylinder
Case "A", "C"
dblH1 = 11.99 - dblHüP
Case "B", "E", "F"
dblH1 = 12 - dblHüP
Case "D"
dblH1 = 11.98 - dblHüP
Case Else
MsgBox "Zylinder nicht gefunden"
End Select

Gruß Werner

AW: Select Case -Erster Versuch

17.05.2018 21:04:42

Kai

Danke Werner,
Text in Anführungszeichen. Darauf hätte ich kommen müssen. Alle Beispiele waren mit Zahlen. Ich glaube der (Arbeits-)Tag war zu lang...
Funktioniert natürlich.
Gruß
Kai

Gerne u.Danke für die Rückmeldung. o.w.T.

17.05.2018 21:21:30

Werner

beachte auch, ...

17.05.2018 22:17:48

Rudi

Hallo,
...dass Select Case zwischen Groß- und Kleinschreibung unterscheidet.
Gruß
Rudi