Automatische Treffersuche in Matrix@J. Ehrensberge
Mirko
ich melde mich nochmal bezüglich des Markos für die automatische Suche in einer Matrix. Habe dein Makro soweit implementiert. Ich bekommen allerdings nach einer Weile einen Laufzeitfehler, das ich mir beim besten Willen nicht erklären kann. Vielleicht kannst Du nochmal schauen.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim rng As Range, strFirst As String, vntRet() As Variant, lngIndex As Long
If KeyCode = 13 Then
ReDim vntRet(1 To 4, 1 To 8) 'mal für maximal 6 fundzeilen!
Set rng = Sheets("Master").Range("GD10:GD363").Find(What:=TextBox1, LookIn:=xlValues, LookAt:= _
_
xlPart, MatchCase:=False, After:=Range("GD363"))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
lngIndex = lngIndex + 1
vntRet(lngIndex, 1) = rng.Text
vntRet(lngIndex, 3) = rng.Offset(0, 1).Text -> Kann man hier Zahl stet Text schreiben? _
_
Wenn das Text ist, bekomme ich in der Zelle immer eine grüne Fehlermeldung, die dann sagt, dass _
Als Text gespeicherte Zahlen
vntRet(lngIndex, 5) = rng.Offset(0, 2).Text
vntRet(lngIndex, 7) = rng.Offset(0, 3).Text
vntRet(lngIndex, 9) = rng.Offset(0, 4).Text -> Ab hier Laufzeitfehler 9: Index auß _
erhalb des gültigen Bereichs
vntRet(lngIndex, 11) = rng.Offset(0, 5).Text
vntRet(lngIndex, 13) = rng.Offset(0, 6).Text
vntRet(lngIndex, 15) = rng.Offset(0, 7).Text
Set rng = Sheets("Master").Range("GD10:GD363").FindNext(rng)
Loop While Not rng Is Nothing And strFirst rng.Address And lngIndex Mirko
Anzeige