'Suche in Array
Function SucheInArray()
Dim ix, iy
For ix = 0 To 6
For iy = 0 To CountLines
'Bei Suche nach Vornamen:
If strSuche = arrAdresse(ix, iy) Then
MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)
' 'Suche nach Nachnamen
' Elseif strSuche = arrAdresse(ix+1, iy) Then
' MsgBox "Vorname:" & arrAdresse(ix,iy) & vbCr & "Nachname:" & arrAdresse(ix+1,iy) & vbCr & "Strasse:" & arrAdresse(ix+2,iy) & vbCr & "PLZ:" & arrAdresse(ix+3,iy) & vbCr & "Ort:" & arrAdresse(ix+4,iy) & vbCr & "Telefonnummer:" & arrAdresse(ix+5,iy)
' [/PHP]
kann sein dass die variable da zu klein ist und desshalb die letzte zeile nicht mitnimmt... darum bitte mal um noch eins erhöhen (vorher)