Schleife in Array
07.06.2006 15:26:18
Ulf
Ich frage in 8 Tabellen 1995 Zeilen ab nach 20 verschieden Nummern.
kann mann die 20 Nummern nicht in ein Array einlesen um sie dann abzufragen
reduziert die Schleifendurchläufe von ca 320000 auf 16000.
Option Explicit
Sub ZeitAAAWeichen()
Dim i As Integer
Dim x As Integer
Dim IHvar As Variant
Dim Mytag As String
Dim Tbb As Integer
For x = 2 To 21 'diese Schleife ins Array
IHvar = Sheets(9).Cells(x, 11).Value
For Tbb = 1 To 8
For i = 6 To 2001
If Sheets(Tbb).Cells(i, 8) = IHvar Then
Mytag = Mytag & Sheets(Tbb).Cells(i, 4) & vbCr
End If
Next i
Next Tbb
Next x
MsgBox Mytag
End Sub
im voraus vielen Dank
mfg Ulf