Thema Datum  Von Nutzer Rating
Antwort
28.06.2014 12:35:15 Perry
NotSolved
28.06.2014 17:34:23 Gast78328
*****
NotSolved
28.06.2014 18:15:50 Perry
NotSolved
28.06.2014 23:55:13 Gast75232
NotSolved
Rot Array Programmierung
 29.06.2014 02:19:39 Gast52509
NotSolved

Ansicht des Beitrags:
Von:
Gast52509		 Datum:
29.06.2014 02:19:39		 Views:
892		 Rating:
     
Antwort:
  Ja
Thema:
Array Programmierung

Du musst einfach Element für Element im Array abklappern.

Option Explicit

Public Sub Test()
  
  Dim a As Variant
  Dim strWhat As String
  Dim blnFound As Boolean
  Dim i As Long
  Dim j As Long
  
  a = Range("A1:D10").Value
  
  strWhat = "Test1234"
  
  For i = LBound(a) To UBound(a)
    For j = LBound(a, 2) To UBound(a, 2)
      If CBool(InStr(1, a(i, j), strWhat, vbTextCompare)) Then
        blnFound = True
        Exit For
      End If
    Next
    If blnFound Then Exit For
  Next
  
  If blnFound Then
    Debug.Print "a(" & i & ", " & j & ") = '" & a(i, j) & "'"
  Else
    Debug.Print "'" & strWhat & "' in Array nicht gefunden"
  End If
  
End Sub

Es würde sich anbieten daraus eine Hilfsfunktion zu machen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.06.2014 12:35:15 Perry
NotSolved
28.06.2014 17:34:23 Gast78328
*****
NotSolved
28.06.2014 18:15:50 Perry
NotSolved
28.06.2014 23:55:13 Gast75232
NotSolved
Rot Array Programmierung
 29.06.2014 02:19:39 Gast52509
NotSolved