VBA-in Range suche, eigene Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
da ist ne ganze menge falsch.
1. der Hautpfehler dürfte das hier sein:

Standort = a
FeldN = b

hier meinst du sicherlich:

a = Standort
b = FeldN

denn bei der Variablenzuweisung mit "=" steht die Variable, die den Wert erhalten soll links, und der Wert den sie bekommen soll rechts
allerdings brauchst du a und b nicht, du kannst Standort und FeldNr auch in der .Find-Funktion verwenden:

Set o = Worksheets("Standort-Tabelle").Range("Z2:Z8000").Find(Standort, x1values)

2. dir ist schon klar, dass du diese Function nicht in einer Formel in einer Excelzelle verwenden kannst, sondern nur als Function innerhalb eines Makros?
3. das Tabellenblatt, das du im Code verwendest, ist in der Datei nicht vorhanden.
4. die .Find-Funktion hat viele Parameter, du hast nur 2 davon im Code angegeben. Für die fehlenden Parameter werden die zuletzt gemachten Einstellungen verwendet, dh wenn der Anwender zuletzt eine ganz spezielle Sucheinstellung hatte, kann sich das auf dein suchergebnis auswirken.
Hier solltest du mehr Parameter angeben.
5. Schreibe nicht nur die Parameter hin, sondern benenne sie!.
ohne Benennung der Parameter kommt es bei der Eingabe auf die korrekte Reihenfolge an und auch Parameter, die du nicht setzen willst, müssen berücksichtigt werden.
Wenn man die Parameter bennennt, spielt die Reihenfolge keine Rolle und man hat auch so die bessere Übersicht.
bei dir steht das xlvalues an 2. Stelle, und das ist nunmal der Paramter After:= und nicht LookIn:=
daher besser:

....Find(What:=a, LookIn:=xlvalues)

Gruß Daniel

Public Function TPNr(Standort As String, FeldN As String) As String Worksheets("Standort-Tabelle").Activate Dim o As Range Dim f As Range Dim result As Range Dim a As Range Dim b As Range Set o = Worksheets("Standort-Tabelle").Range("Z2:Z8000") Set f = Worksheets("Standort-Tabelle").Range("AA2:AA8000") a = o.Find(what:=Standort, LookIn:=x1values).Row b = f.Find(what:=FeldNr, LookIn:=x1values).Row If a.Row = b.Row Then result = a.Row Else MsgBox "Kein Ergebnis" End If If result Is Nothing Then MsgBox "Kein Ergebnis Gefunden" End If TPNr = result.Row Fin: End Function

Public Function TPNr(Standort As String, FeldN As String) As Variant Dim o As Range Dim f As Range Dim a As Range Dim b As Range Set o = Worksheets("Standort-Tabelle").Range("Z2:Z8000") Set f = Worksheets("Standort-Tabelle").Range("AA2:AA8000") set a = o.Find(what:=Standort, LookIn:=x1values) Set b = f.Find(what:=FeldNr, LookIn:=x1values) if a is nothing And b is nothing then TPNr = "Weder Standort noch Feld gefunden" ElseIf a is nothing then TPNr = "Standort nicht gefunden" ElseIf b is Nothing then TPNr = "Feld nicht gefunden ElseIf a.Row b.Row Then TPNr = "Standort und Feld gefunden, aber Zeile unterschiedlich" Else TPNr = a.Row end If If a.Row = b.Row Then result = a.Row End Function

Beliebteste Forumthreads (12 Monate)

VBA-in Range suche, eigene Funktion

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-in Range suche, eigene Funktion

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread