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
Hallo Peter,
wenn du mit
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
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
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
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:
Zitat:„=WENN(Jan!F52="";"";Jan!F52)“
Na, da lohnt sich die WENN-Abfrage ja richtig
.
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