Microsoft Excel

Herbers Excel/VBA-Archiv

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

Kurzform von Variablenabrage

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