Suchfunktion funktioniert nur bei Strings (VBA)
01.03.2006 14:42:40
Lotse
ich habe folgenden Code um eine Exceltabelle zu durchsuchen und dann die nicht relevanten Ergebnisse auszublenden.
Funktioniert auch alles prima, aber leider nur wenn die Zelleninhalte aus Strings bestehen.
Sobald es sich um Zahlen handelt werden einfach alle Felder ausgeblendet, obwohl es eigentlich Ergebnisse geben sollte.
Vielleicht kann mir ja jemand helfen.
Vielen Dank schonmal im vorraus.
Sub cboJahr_Change()
Dim query As Variant
Dim index As Integer
query = Worksheets(1).cboJahr.Value
Application.ScreenUpdating = False
Rows("1:65536").Select
Selection.EntireRow.Hidden = False
For index = 5 To Range("B65536").End(xlUp).Row
If Cells(index, 2).Value <> query Then
Rows(index).Select
Selection.EntireRow.Hidden = True
End If
If query = "Alle" Then
Rows("1:65536").Select
Selection.EntireRow.Hidden = False
Cells(1, 1).Select
End If
Next index
Application.ScreenUpdating = True
End Sub