Ich habe im Usenet ein Programm gefunden, was mir bei einem Problem unwahrscheinlich weiterhilft.
Leider läuft es nicht und ich kann dafür den Grund nicht finden.
'##########################################
Private Sub CommandButton1_Click() 'Start Suchen
Dim findWert$, i%
Dim letzteZeile%
Dim Zelle As Range
findWert = TextBox1
letzteZeile = ActiveSheet.UsedRange.Rows.Count
Select Case (findWert)
Case Is = ""
MsgBox "Bitte geben Sie einen Suchwert ein!"
Exit Sub
Case Is <> ""
Application.ScreenUpdating = False
'Alle DatensätzeAusblenden
Range("A2:A" & (Range("A65536").End(xlUp).Row)) _
.EntireRow.Hidden = True
For Each Zelle In Range _
(Cells(2, 1), Cells(letzteZeile, 12))
If Zelle = findWert Then
Zelle.EntireRow.Hidden = False
i = 1
End If
Next
End Select
If i = 0 Then
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
MsgBox "der Suchwert " & findWert & " wurde nicht gefunden"
End If
End Sub
Private Sub CommandButton2_Click()
' Alle DatensätzeEinblenden
Cells.EntireRow.Hidden = False
TextBox1 = ""
End Sub
Private Sub CommandButton3_Click() 'Schliessen
Unload Me
Cells.EntireRow.Hidden = False
End Sub
'##########################################
In der Zeile : "If Zelle = findWert Then" bricht die Sache
mit Laufzeitfehler13 - Typen unverträglich ab.
Warum?
Kann mir jemand helfen?
Besten Dank im Voraus!
mfg Guido