Find-Funktion liefert keine Ergebnisse
14.06.2015 22:31:31
watzi3
Ich suche in meinem Code nur das Wort "Kosten", das immer in der selben Reihe steht, jedoch nicht in der selben Spalte! Das Wort steht mit Sicherheit in der Zeile 4 und ist als Text formatiert.
Habe aber immer das Problem, das die .Find-Funktion nichts findet, und "adresse" auf nothing lässt!
Vermutlich nur ein Anfängerfehler, aber ich hoffe ihr könnt mir weiterhelfen!
Dim wort As String, adresse As Range
Dim a As Integer
wort = "Kosten"
Set adresse = Rows(4).FIND(wort, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not adresse Is Nothing Then
a = adresse.Column
End If
Lg Lukas
Anzeige