Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub ArrayTest()
   Dim arrTest(1 To 12)
   Dim var As Variant
   Dim iCounter As Integer
   For iCounter = 1 To 12
      arrTest(iCounter) = iCounter
   Next iCounter
   var = Application.Match(7, arrTest, 0)
   If IsError(var) Then
      MsgBox "Der Wert wurde nicht gefunden!"
   Else
      MsgBox "Position: " & var
   End If
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Variable