Laufzeitfehler 13
04.12.2017 16:45:32
Norbert
beim nachfolgenden Script folgt immer ein Laufzeitfehler 13
Beim Debuggen bleibt das Maskro immmer hier hängen:
Schlüssel = Quellblatt.Cells(i, 1).Value
Sub Formular_fuer_jeden_Datensatz_kopieren()
Dim Quellblatt As Worksheet, Zielblatt As Worksheet
Set Quellblatt = Worksheets("Berechnung")
Set Zielblatt = Worksheets("Adaption")
Dim Höhe As Integer, Breite As Integer, Abstand As Integer
Höhe = 27 ' Höhe des Formulars
Breite = 12 ' Breite des Formulars
Abstand = 2 ' Abstand zwischen 2 Formularen
Dim Formular As Range, Schlüssel As Double, i As Integer, Schlüsselzelle As Range
Set Formular = Zielblatt.Range(Cells(1, 1), Cells(Höhe, Breite))
Formular.Select ' nur zur Verdeutlichung
For i = 3 To Quellblatt.UsedRange.Rows.Count
Schlüssel = Quellblatt.Cells(i, 1).Value
Formular.Copy Formular.Offset((i - 2) * (Höhe + Abstand), 0)
Formular.Offset((i - 2) * (Höhe + Abstand), 0).Select ' nur zur Verdeutlichung
Set Schlüsselzelle = Formular.Offset((i - 2) * (Höhe + Abstand), 0).Cells(1).Offset(3, 1)
Schlüsselzelle.Select ' nur zur Verdeutlichung
Schlüsselzelle = Schlüssel
Next i
End Sub
Wie bringer ich den Fehler weg?Danke für Hilfe
Gruss Norbert