Laufzeitfehler 13
27.07.2021 15:33:02
Siegfried
Was muss beim zweiten Teil des Codes verändert werden, damit er funktioniert?
Der Zelle "PC5" habe ich den Namen "P2.Rde1" zugewiesen
Sub Schaltfläche56_Klicken()
Dim n1 As Integer
' dieser Schnipsel funktioniert
For n1 = 1 To 16
Debug.Print Range("PC5").Offset(n1, 0)
Next n1
' bei diesem Schnipsel erhalte ich die Fehlermeldung "Laufzeitfehler 13"
For n1 = 1 To 16
Debug.Print Range("P2.Rde1").Offset(n1, 0)
Next n1
End Sub
Siegfried