Suche
14.11.2003 10:40:33
Nico D
ich lasse per Makro eine Spalte nach einer Zahl durchsuchen:
Dim sBegriff As String
Dim fzelle As Range
sBegriff = Einfache_Suche.TextBox1.Value
If sBegriff = "" Then
MsgBox "Es wurde keine Debitorennummer erfasst!"
Exit Sub
End If
Set fzelle = Worksheets("Kundendaten").Range("D1:D200").Find(sBegriff)
If fzelle Is Nothing Then
MsgBox "Es ist kein Kundendatensatz mit dieser Debitorennummer enthalten!"
Exit Sub
End If
fzelle.Activate
Einzelansicht.Show
Unload Me
Dieses Makro läuft auch einwandfrei, wenn es sich um eine Zahl oder eine Wert in der Zelle handelt. Allerdings läuft es nicht wenn der Wert in der Zelle per Formel ermittelt wird. Gibt es hierzu einen Lösungsansatz?
Beste Grüße ans Forum
Nico