Hallo liebe User,

habe ein Makro zum Einlesen und Aktualisieren von einer Tabelle, das ich nun auf folgende Anforderungen anpassen möchte:

• es sollen nur ein gewisser Spaltenbereich, z.B. Spalte A bis D von dem Quellen-Tabellenblatt eingelesen und aktualisiert werden, dabei soll nur der Inhalt der Tabelle berücksichtigt werden, keine Formatierungen o.ä.
  
• Aktualierungen in einer Zelle oder Einschreibung neuer Zeilen sollen markiert werden, z.B. durch eine rote Zellenfarbe und durch nachmaliges Ausführen des Makros soll die Markierung wieder geschlöscht werden

Mein Code wäre:

 
Set wsQuelle = wbQuelle.Worksheets(arrSheets(iK))
            Set wsZiel = wbZiel.ActiveSheet                                         
            Z1 = 17 'Erste Zeile mit Daten ohne Überschriften definieren
            SP = 1 'Abfolge Daten
      
            LZ2 = wsQuelle.Cells(wsQuelle.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte TB2
      
            For i = Z1 To LZ2
                If WorksheetFunction.CountIf(wsZiel.Columns(SP), wsQuelle.Cells(i, SP)) > 0 Then
                'Wenn in Zeile vorhanden
                Zeile = WorksheetFunction.Match(wsQuelle.Cells(i, SP), wsZiel.Columns(SP), 0)
 
                Else
                'neues Problem in Übersicht einfügen
                Zeile = wsZiel.Cells(wsZiel.Rows.Count, SP).End(xlUp).Row + 1
                End If
 
            'Inhalt kopieren
            wsQuelle.Rows(i).Copy wsZiel.Rows(Zeile)
            Next