Set Range scheitert auf anderem Tabellenblatt
Osito
Ich verzweifle gerade an einer scheinbar trivialen Sache, bekomme ständig Fehlermeldung wenn er in den gekennzeichneten Block läuft (ich habe da alle Varianten ausprobiert, die mir einfielen. Natürlich einzeln nacheinander).
Ich möchte hier einfach nur eine Zelle auf einem anderen Tabellenblatt als Ziel festlegen, wo ich dann vom aktiven Blatt aus Formeln hinkopiere.
Was mache ich bloß falsch?
Die Zeile (Set ZelleQuelle ...) oberhalb des Blocks funktioniert einwandfrei und hat ja die gleiche Struktur wie Set ZelleZiel.
Sub Nachgefragt()
'Ich möchte Formeln aus dem aktiven Tabellenblatt als String in ein anderes _
Tabellenblatt "FormelListe" kopieren
Dim ZelleQuelle As Range, ZelleZiel As Range
Set wbMappe = Application.ActiveWorkbook
Set wsBlattQuelle = wbMappe.ActiveSheet
Set wsBlattZiel = wbMappe.Worksheets("FormelListe")
wsBlattQuelle.Activate 'Wir arbeiten auf dem Quellen-Worksheet
Set ZelleQuelle = wsBlattQuelle.Range(Cells(z, s), Cells(z, s)) 'funzt OK!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Funzt nicht !!!!!!!!!!!!!!!
Set ZelleZiel = wsBlattZiel.Range(Cells(ZeileZiel, SpalteZiel), Cells(ZeileZiel, SpalteZiel) _
)
Set ZelleZiel = wsBlattZiel.Cells(ZeileZiel, SpalteZiel)
Set ZelleZiel = wbMappe.Worksheets("FormelListe").Range(Cells(ZeileZiel, SpalteZiel), _
Cells(ZeileZiel, SpalteZiel))
Set ZelleZiel = Worksheets("FormelListe").Range(Cells(ZeileZiel, SpalteZiel), _
Cells(ZeileZiel, SpalteZiel))
Set ZelleZiel = wbMappe.Worksheets("FormelListe").Cells(ZeileZiel, SpalteZiel)
Set ZelleZiel = Worksheets("FormelListe").Cells(ZeileZiel, SpalteZiel)
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Funzt nicht !!!!!!!!!!!!!!!
End Sub 'Nachgefragt
Herzlichen Dank im Voraus.