Zitat:

Ich bin jetzt lediglich unsicher, ob man einer Collection Strings hinzufügen kann - oder ob es Objekte sein müssen. Check ich morgen früh ... das war hier aus der Lamäng.

Option Explicit
 
Public gl_c As New Collection
 
'Button namens Command
Private Sub Command_Click()
 
  Select Case Command.Caption
 
    Case vbNullString, "Fehler"
      Command.Caption = gl_c("IDName")
 
    Case "Katalog"
      Command.Caption = gl_c("IDWert")
 
    Case 2987
      Command.Caption = gl_c("IDWert2")
 
    Case 1234
      Command.Caption = gl_c("IDName")
 
    Case Else
      Command.Caption = "Fehler"
 
  End Select
 
End Sub
 
Private Sub Form_Load()
 
  Command.Caption = vbNullString
 
  gl_c.Add "Katalog", "IDName"
  gl_c.Add 2987, "IDWert"
 
  Dim l As Long
 
  l = 1234
  gl_c.Add l, "IDWert2"
 
End Sub

Gruß
Dirk

--
?Get it right the first time