Erneutes Ausfuehren des MAkros ueberschreibt alte Daten

[svenjawei]

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

[HaHoBe]

Hallo, svenjawei,

es gibt in diesem Forum einen eigenen Bereich für fremdsprachliche Fragen (soll hier gleichbedeutend mit nicht englische sein).

Vielleicht wechselst Du die Codezeile

Please Login or Register  to view this content.

die immer die erste Zeile des zweiten Blattes beschreibt aus gegen

Please Login or Register  to view this content.

wenn in Spalte A ein durchgehend gefüllter Bereich vorhanden ist (ansonsten bitte die Angabe der Spalte austauschen). Hier sollte immer die erte Zeile unter dem bisher letzten Eintrag genutzt werden.

Da ich die Daten und den Aufbau nicht kenne, würde ich nach einem eindeutigen Schlüssel per ZählenWenn suchen und nur bei Rückgabe von 0 auch die Zeiule kopieren, während in Deinem Makro immer kopiert und danach kontrolliert wird. Für Zählenwenn kann in VBA

Please Login or Register  to view this content.

verwendet werden.

Ciao,
Holger