Find(UCase(Environ("Username"))

[stonemaus]

Hallo Freunde
Mit Eurer Hilfe habe ich eine Userabfrage mit zusätzlichen Querverweisabfrage in eine Arbeitsmappe erfolgreich eingebaut. Nun ist noch ein Problem aufgetaucht, in den zu durchsuchenden Bereich sind immer wieder mal Zeilen ausgeblendet, in den ausgeblendeten Zeilen funktioniert diese Abfrage leider nicht. Vielleicht kann mir hier noch jemand helfen.

Code:

Set rngTreffer = Range("F11:F115").Find(UCase(Environ("Username")), LookIn:=xlValues, lookat:=xlWhole)
       If Not rngTreffer Is Nothing Then
           If rngTreffer.Offset(, -4).Value Like "MV" Then

Vielen Dank schon mal im Voraus!!!
Gruß Peter

[losgehts]

Hallo Peter,

wenn du mit

Code:

LookIn:=xlFormulas

arbeiten würdest, wäre der find-Methode egal, ob die Zellen eingeblendet sind, oder nicht: sie findet auch in ausgeblendeten Zellen das gesuchte.

Nun die Frage an dich: ist der Parameter xlValues in deinem Fall wichtig?

Grüße, Ulrich

[stonemaus]

Hallo Ulrich

Da ich diesen Code von Euch bekommen habe, weis ich dessen Funktion nicht wirklich.
Auf jeden Fall mit dem Änderunsvorschlag von Dir klappt es auch mit ausgeblendeten Zeilen.

Vielen Dank für die schnelle und Profesionelle Antwort.

Gruß Peter

[stonemaus]

Hallo Nochmal

Jetzt weiß ich warum es xlValues hieß!
Wenn das gesuchte direkt in den Zellen steht funktioniert es
Wenn das gesuchte das Ergebnis einer Formel ist dann nicht.
Formel „=WENN(Jan!F52="";"";Jan!F52)“

Ich bitte nochmal um Hilfe

Gruß Peter

[losgehts]

Hallo,

ich kenne ja deinen Code nicht daher auch den Kontext nicht. Dennoch ein Vorschlag statt der Zeile

Code:

Set rngTreffer = Range("F11:F115").Find(UCase(Environ("Username")), LookIn:=xlValues, lookat:=xlWhole)

Da der Bereich F11:F115 ja sehr klein ist, kann man ihn ja auch einfach mit einer Schleife ablaufen:

Code:

dim lZeile as long
...

Set rngTreffer = Nothing
For lZeile = 11 To 115
    If Cells(lZeile, 6).Value = UCase(Environ("Username")) Then
        Set rngTreffer = Cells(lZeile, 6)
        Exit For
    End If
Next

Wie wäre das für dich?

Grüße, Ulrich

PS:

„=WENN(Jan!F52="";"";Jan!F52)“

Na, da lohnt sich die WENN-Abfrage ja richtig .

[stonemaus]

Hallo Ulrich

Jetzt klapp es aber wirklich bestens!!!

Wennabfrage nur das keine "0" wenn die Zellen leer ist.

Also Vielen Dank nochmal und einen schönen Abend wünsch ich!

Gruß Peter