Find funktioniert nicht immer
28.08.2007 08:43:00
Philipp
Ich verwende einige Find Funktionen in einem anderen Tabellenblatt. Das komische: Wenn ich mein Blatt in einer gewissen Reihenfolge durchgehe ist alles kein Problem, doch manchmal funktionieren sie eifnach nicht. Hab keine Ahnung was da nicht genau passt.
Hiermal der Code:
Dim rng As Range, Spalte As Range
Dim i As Integer, x As Integer
Dim Ergebnis As String
On Error Resume Next
Set rng = Tabelle14.Columns.Find( _
what:=Range("I1"))
If rng Is Nothing Then
MsgBox "Passender Zonenleiter nicht gefunden, bitte geben Sie den Zonenleiter händisch an!"
End If
Set Spalte = Tabelle14.rows.Find( _
what:=Range("U13"))
If Spalte Is Nothing Then
MsgBox "Passender Zonenleiter nicht gefunden, bitte geben Sie den Zonenleiter händisch an!"
End If
i = rng.Row
x = Spalte.Column
Ergebnis = Format(Tabelle14.Cells(i, x), "#,##0")
Range("Z13") = Ergebnis
Also wie gesagt: Funktioniert oft problemlos, aber wenn ich z.b eine andere Suchezuerst mache oder was anderes gehts willkürlich nich.
Hoffe ihr könnt mir helfen.
LG