|
Hallo zusammen,
ich möchte eine Zelle suchen, deren Position lokalisieren und die Zellposition dann in einer Variable as Range festhalten, damit ich damit weiterarbeiten kann. Leider funktioniert das Umwandeln in die Range nicht, da es dann immer den ursprünglichen String hinterlegt. Hier der Code:
Dim ow As Worksheet
Dim rng1, rng2 As Range
Dim TargetCol As Range
Set ow = ThisWorkbook.Sheets("Overview")
Set rng1 = ow.Cells.Find("[1]", LookIn:=xlValues) 'Find [1] string in spreadsheet
Set rng2 = rng.Address(False, False) 'Declare Variable with Cell position of rng1
Set TargetCol = ow.Range(rng2) 'Declare Variable with Cell position As Range
Das Ergebnis ist wie folgt:
- rng1 ist [1], korrekt
- rng2 ist R1, korrekt
- TargetCol ist wieder [1], obwohl es eine Range("R1") sein soll.
Vielen Dank schon einmal!
|