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
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.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