Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Kurzform von Variablenabrage

• Kurzform von Variablenabrage von MCO vom 22.10.2014 08:34:58
• AW: Kurzform von Variablenabrage - von Tino am 22.10.2014 08:43:25
  • AW: Kurzform von Variablenabrage - von MCO am 23.10.2014 10:28:53

Betrifft: Kurzform von Variablenabrage von: MCO
Geschrieben am: 22.10.2014 08:34:58

Guten Morgen!

Ich suche die Kurzform von folgender Abfrage:

If Uname = "Klar, Willy" Or _
    Uname = "Görgen, Ulf" Or _
    Uname = "Tiki, Jan" Then Makro = MsgBox("Makro starten?", vbQuestion + vbYesNo, "Makro")

Ich stell's mir ungefähr so vor:

If Uname = ("Klar, Willy"."Görgen, Ulf"."Tiki, Jan") Then ....

Weiß jemand eine Lösung?
Gruß, MCO

Betrifft: AW: Kurzform von Variablenabrage von: Tino
Geschrieben am: 22.10.2014 08:43:25

Hallo,
hier ein Beispiel.
Groß und Kleinschreibung wird nicht beachtet!

Sub Beispiel()
Dim ArNamen(), UName$

ArNamen = Array("Klar, Willy", "Görgen, Ulf", "Tiki, Jan")

UName = "Görgen, Ulf"

'Groß und Kleinschreibung wird nicht beachtet
If IsNumeric(Application.Match(UName, ArNamen, 0)) Then
    MsgBox "ok"
End If


End Sub

Gruß Tino

Betrifft: AW: Kurzform von Variablenabrage von: MCO
Geschrieben am: 23.10.2014 10:28:53

Super, vielen Dank!

Gruß, MCO