Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: finden in versteckten zellen

finden in versteckten zellen
chris
Hallo zusammen,brauche noch einmal eure Hilfe :(
Wie kann ich diese zeile so umbauen das Sie auch in versteckten also ausgeblendeten Zellen Findet ?
Set TestRange = Ziel.Range(pre & "_nr").EntireColumn.Find(Quelle.Cells(Zeile, Spalte_Nummer), LookIn:=xlValues, LookAt:=xlWhole)
Danke gruß Chris
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
teste mal diesen Variante...
05.02.2010 10:59:34
Tino
Hallo,
Dim vRow As Variant
vRow = Application.Match(Quelle.Cells(Zeile, Spalte_Nummer), _
Ziel.Range(pre & "_nr").EntireColumn, 0)
If IsNumeric(vRow) Then
MsgBox "Gefunden in " & Ziel.Range(pre & "_nr").EntireColumn.Cells(vRow, 1).Address
Else
MsgBox "nix gefunden"
End If
Funktioniert aber nur wenn Ziel.Range(pre & "_nr").EntireColumn aus einer Spalte besteht.
Gruß Tino
Anzeige
AW: teste mal diesen Variante...
05.02.2010 11:20:25
chris
danke Tino,
sieht gut aus.
Aber ich brauche als Rückgabewert ein range glaube ich :)
Also so wie Set TestRange
Drücke ich mich richtig aus ?
Danke dir
AW: teste mal diesen Variante...
05.02.2010 11:24:25
chris
Stopp.
Tino mach dir keine Arbeit.
ich blende die zeilen wieder ein.
Muss gehen.
Danke dir und schönen Tag !
Anzeige
mach es doch einfach ;-)
05.02.2010 11:29:45
Tino
Hallo,
Dim vRow As Variant
Dim rngRange As Range
vRow = Application.Match(Quelle.Cells(Zeile, Spalte_Nummer), _
Ziel.Range(pre & "_nr").EntireColumn, 0)
If IsNumeric(vRow) Then
Set rngRange = Ziel.Range(pre & "_nr").EntireColumn.Cells(vRow, 1)
Else
MsgBox "nix gefunden"
End If
If Not rngRange Is Nothing Then
End If
Gruß Tino
Anzeige
mach ich doch :)
05.02.2010 11:42:09
chris
Jetzt wo ich wes weiß.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige