Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - Array überprüfen

VBA - Array überprüfen
25.01.2007 12:06:44
Florian
Hallo zusammen,
folgendes Problem:
Wie kann ich ein Array auf Werte prüfen? Also ob diese enthalten sind?
Außerdem möchte ich gerne die Array Größe ausgeben lassen.
Fragestellung: Enthält Array meinArray den Wert 1(String)?
Vielen Dank für die Hilfe schonmal im Voraus!
Gruss Flo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Array überprüfen
25.01.2007 12:46:29
Uduuh
Hallo,
beispielsweise so:

Sub tt()
Dim myArray, i As Long, blnFound As Boolean, strSuch As String
strSuch = "c"
myArray = Array("a", "b", "c", "d", "e")
For i = 0 To UBound(myArray)
If myArray(i) = strSuch Then
blnFound = True
Exit For
End If
Next i
If blnFound = True Then
MsgBox strSuch & " gefunden."
Else
MsgBox strSuch & " nicht gefunden."
End If
End Sub

Gruß aus’m Pott
Udo

AW: VBA - Array überprüfen
25.01.2007 13:26:21
Florian
Hallo Udo,
danke für die Antwort. Auf die von dir gepostete For Schleife mit Verzweigung bin ich mittlerweile schon gekommen, hätte nur gehofft, dass es vielleicht ohne diese Umständlichkeit funktioniert.
Die UBound Funktion ist mir neu, Danke :) Die müsste aber auch über ein Array funktionieren, dass ich über
Dim testarray(100) as variant
erstellt habe funktionieren, oder?
Vielen Dank für die Hilfe schonmal im Voraus!
Gruss Flo
Anzeige
AW: VBA - Array überprüfen
25.01.2007 13:48:10
yps
hi,
um mal bei dem Beispiel zu bleiben:

Sub tt()
Dim myArray, strSuch As String
strSuch = "c"
myArray = Array("a", "b", "c", "d", "e")
If IsError(Application.Match(strSuch, myArray, 0)) Then
MsgBox strSuch & " nicht gefunden."
Else
MsgBox strSuch & " gefunden."
End If
End Sub

cu Micha

146 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige