+ Reply to Thread
Results 1 to 2 of 2

Erneutes Ausfuehren des MAkros ueberschreibt alte Daten

  1. #1
    Registered User
    Join Date
    05-30-2013
    Location
    London
    MS-Off Ver
    Excel 2007
    Posts
    1

    Unhappy Erneutes Ausfuehren des MAkros ueberschreibt alte Daten

    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

  2. #2
    Forum Guru HaHoBe's Avatar
    Join Date
    02-19-2005
    Location
    Hamburg, Germany
    MS-Off Ver
    work: 2016 on Win10 (notebook), private: 2019 on Win10 (desktop), 2019 on Win11 (notebook)
    Posts
    8,197

    Re: Erneutes Ausfuehren des MAkros ueberschreibt alte Daten

    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
    Use Code-Tags for showing your code: [code] Your Code here [/code]
    Please mark your question Solved if there has been offered a solution that works fine for you

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1