Ich bin kurz vor dem Verzweifeln, und sehe meinen Fehler nicht:
Ich gebe über folgenden Code einen Range ein und gebe dieser Variablen (RngKey) einen Wert zu.
Falls "A2" nicht leer ist, ist es ein Bereich "X", ansonsten halt "A1". In dieser Zelle steht der Wert "Termine". Aus meiner Sicht also in diesem Fall RngKey = "Termine":
ThisWorkbook.Worksheets("KeyWatcher").Activate
If ActiveSheet.Range("A2") "" Then
With ActiveSheet
ZKey = Cells(Rows.Count, 1).End(xlUp).Row
Set RngKey = .Range(Cells(2, 6), Cells(ZKey, 6))
End With
For Each mycell In RngKey
mycell.FormulaR1C1 = "=RC[-5]&RC[-4]"
Next
Else
Set RngKey = ThisWorkbook.Worksheets("KeyWatcher").Range("A1")
End If
Später im Code möchte ich diese variable quasi auslesen und entsprechend geht es dann weiter:
Worksheets("KeyWatcher").Activate
If RngKey "Termine" Then
With Worksheets("KeyWatcher").Range(Cells(2, 6), Cells(ZKey, 6)).ClearContents
End With
End If
Range("A1").Activate
Doch das führt zu "Laufzeitfehler 13, Typenunverträglich"
Was mache ich falsch?
Besten Dank für Eure Hilfe
Grüsse aus der Schweiz
Daniel