18.12.2016, 16:47
Hallo Houston,
ich hab ein Problem.
Habe mir ein kleines Filterprogramm geschrieben. Das sieht folgendermassen aus:
Ich möchte also die Zeilennummer mit der Zelle erhalten, in der sowohl das Wort "Mühe" als auch "lag" drin vorkommt.
Der Code ist Marke einfach wie man sieht, aber für meine Zwecke völlig ausreichend. Jetzt aber mein Problem.
Bis i = 400000 und ein paar Zerquetschte drüber läuft alles wie geschmiert, nur habe ich in der Spalte C
über 1 Mio Einträge, die der Code durchsuchen soll. Deklariere ich i as long funktioniert gar nichts. i als double
zu deklarieren, ist das Maximale was ich derzeit hinbekomme. Wie erhöhe ich die Reichweite der
Schleife?
ich hab ein Problem.
Habe mir ein kleines Filterprogramm geschrieben. Das sieht folgendermassen aus:
Code:
Sub Filtereinschalten()
Dim Feld, tmp1 As String, tmp2 As String, i As Double
tmp1 = "Mühe"
tmp2 = "lag"
Feld = Sheets("Tabelle1").Range("C:C")
For i = 1 To 400000 'UBound(Feld)
If InStr(Feld(i, 1), tmp1) And InStr(Feld(i, 1), tmp2) > 0 Then
Debug.Print i
End If
Next
Debug.Print
End Sub
Der Code ist Marke einfach wie man sieht, aber für meine Zwecke völlig ausreichend. Jetzt aber mein Problem.
Bis i = 400000 und ein paar Zerquetschte drüber läuft alles wie geschmiert, nur habe ich in der Spalte C
über 1 Mio Einträge, die der Code durchsuchen soll. Deklariere ich i as long funktioniert gar nichts. i als double
zu deklarieren, ist das Maximale was ich derzeit hinbekomme. Wie erhöhe ich die Reichweite der
Schleife?