In Array suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: In Array suchen

09.07.2008 20:51:00

Peter

AW: In Array suchen

09.07.2008 20:53:45

Daniel

AW: In Array suchen

09.07.2008 21:11:00

Peter

AW: In Array suchen

09.07.2008 21:22:16

Peter

AW: In Array suchen

09.07.2008 21:34:50

Daniel

AW: In Array suchen

09.07.2008 21:41:46

Peter

Public Sub Test() Dim aTemp As Variant Dim iIndex As Integer Dim bGefunden As Boolean aTemp = Array("Alpha", "Bravo", "Charlie", "Delta", "Echo", "Foxtrot", _ "Golf", "Hotel", "India", "Juliet", "Kilo", "Lima", "Mike", "November", _ "Oscar", "Papa", "Quebec", "Romeo", "Sierra", "Tango", "Uniform", _ "Victor", "Whisky", "X-Ray", "Yankee", "Zulu") For iIndex = 0 To UBound(aTemp) If Range("A1").Value = aTemp(iIndex) Then bGefunden = True Exit For End If Next iIndex If bGefunden = True Then MsgBox "Der Begriff """ & Range("A1").Value & """ wurde auf der Position " _ & iIndex & " gefunden.", _ 64, " Information für " & Application.UserName Else MsgBox "Der Begriff """ & Range("A1").Value & """ wurde NICHT gefunden.", _ 48, " Hinweis für " & Application.UserName End If End Sub

Sub Array_durchsuchen() Dim Suchbegriff As String Dim Reihe As Long, Spalte As Long Dim arr '... hier muss das Array definiert werden Suchbegriff = "xxx" For Reihe = LBound(arr, 1) To UBound(arr, 1) For Spalte = LBound(arr, 2) To UBound(arr, 2) If Suchbegriff = arr(Reihe, Spalte) Then Exit For Next If Spalte UBound(arr, 1) Then MsgBox Suchbegriff & " konnte nicht gefunden werden." Else MsgBox Suchbegriff & " wurde gefunden. Reihe: " & Reihe & ", Spalte: " & Spalte End If End Sub

hi
so:


dim arr
arr = Range("a1:D100").value

allerdings geht das was du willst dann wesentlich einfacher mit der FIND-funktion:


Dim Reihe as Long
Reihe = Range("A1:D100").Find(What:="xxx", lookat:=xlwhole, lookin:=xlvalues).row

diese Methode hat allerdings den Nachteil, daß sie einen Fehler erzeugt, wenn der Suchbegriff nicht im Zellbereich vorhanden ist.
Da kann man auf verschiedene Methoden aber abfangen:


Dim Reihe as Long
Reihe = 0
on error resume  next
Reihe = Range("A1:D100").Find(What:="xxx", lookat:=xlwhole, lookin:=xlvalues).row
on error goto 0
if Reihe = 0 then
msgbox "kein Treffer"
else
msgbox "gefunden in Reihe: " & Reihe
end if

oder so:


Dim Reihe as Long
Dim Zelle as Range
Set Zelle  = Range("A1:D100").Find(What:="xxx", lookat:=xlwhole, lookin:=xlvalues).
if Zelle is Nothing then
msgbox "kein Treffer"
else
Reihe = Zelle.row
msgbox "gefunden in Reihe: " & Reihe
end if

oder so:


Dim Reihe as Long
if worksheetfunction.countif(Range("A1:D100"), "xxx") > 0 then
Reihe = Range("A1:D100").Find(What:="xxx", lookat:=xlwhole, lookin:=xlvalues).row
msgbox "gefunden in Reihe: " & Reihe
Else
msgbox "kein Treffer"
end if

Gruß, Daniel

Public Sub Array_Test() Dim aWerte() As Variant Dim iX_Achse As Integer Dim iY_Achse As Integer Dim sBegriff As String Dim bgefunden As Boolean aWerte = Range("A1:D100").Value sBegriff = "D75" 'MsgBox aWerte(1, 1) & " / " & aWerte(100, 4) For iX_Achse = 1 To 4 For iY_Achse = 1 To 100 If sBegriff = aWerte(iY_Achse, iX_Achse) Then MsgBox "Der Begriff """ & sBegriff & """ wurde auf den Koordinaten """ _ & iX_Achse & "/" & iY_Achse & """ gefunden.", _ 64, " Information für " & Application.UserName bgefunden = True Exit For End If Next iY_Achse Next iX_Achse If bgefunden = False Then MsgBox "Der Begriff """ & sBegriff & """ wurde NICHT gefunden.", _ 48, " Hinweis für " & Application.UserName End If End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Array suchen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread