Hallo Zusammen,

ich bin noch ganz am Anfang in der Programmierung mit Makros und braeuchte einmal eure Hilfe.
Ich versuche gerade mir ein Makro zu schreiben, welches Daten aus einem Sheet in ein zweites kopiert, wenn bestimmte Anforderungen erfuellt sind.
Klappt soweit super.
Problem nun ist, dass das erste Sheet mit SharePoint verbunden ist und sich somit veraendert, wenn man es aktualisiert. Ich mochte nun aber, dass beim erneuten ausfuehren des Makros die Daten im zweiten Sheet nicht ueberschrieben werden, sondern hinten dran gefuegt weren bzw. wenn schon vorhanden nicht kopiert werden. Das zweite habe ich denke ich mit meinem Makro schon geloest...
Hat jemand eine Idee fuer dieses Problem? Wenns noch fragen gibt, fragt gerne nach Vielen Dank fuer eure Hilfe


Option Explicit

Sub closed()

Application.ScreenUpdating = False

Dim i As Integer
Dim j As Integer
Dim z As Integer
Dim c As Range

Dim counter As Integer

counter = 2

Sheets(1).Activate


Rows(1).Copy
Sheets(2).Rows(1).PasteSpecial Paste:=xlPasteAll, SkipBlanks:=False

For i = 2 To 1000
Set c = Sheets(2).Range("A1:A1000").Find(Sheets(1).Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole)
If (Cells(i, 4) = "Cancelled" Or Cells(i, 4) = "Triage Received") And c Is Nothing Then
For j = 1 To 5
Cells(i, j).Copy
Sheets(2).Cells(counter, j).PasteSpecial Paste:=xlPasteAll, SkipBlanks:=False
Next j
counter = counter + 1
End If
Next i

Application.ScreenUpdating = True
End Sub