Ich habe folgendes Problem und bissher leider nirgends eine Lösung gefunden.
Eine Schleife im Main
Sub ruft das unter
Sub "copy" auf. In "copy" wird die variable "pos" definiert als die maximale zeilen anzahl im _
_
_
aktuellen Blatt.
Falls "pos" > 1 ist soll der vorher kopierte Bereich bei pos+1 eingefügt werden.
Wenn das Blatt gefüllt wird springt pos aber automatisch auf die neue maximale spaltenanzahl _
und bringt mir dadurch die Fehlermeldung "Anwendungs und objektdefinierter Fehler" _
Laufzeitfehler '1004'
Meine Idee wäre es den Wert der Variable für den Schleifendurchlauf einzufrieren damit sich _
nach der Definition sich der Wertbis zum nächsten Durchlauf nicht mehr verändert.
Anbei der aktuelle Code.
Option Explicit
Sub copy()
Dim pos As Long
pos = Worksheets(Family).Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Data").Range("G:G,J:J,S:S,T:T,U:U").copy
If pos = "1" Then
Worksheets(Family).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Else
Worksheets(Family).Range(Cells(pos + 1, 1)).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End With
End Sub