Einlesen und Aktualisieren von Tabelle (VBA)

Julian, Mittwoch, 08.07.2020, 13:36 (vor 678 Tagen)

Hallo liebe User,

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


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
 

gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum