Thema Datum  Von Nutzer Rating
Antwort
Rot Einlsen und Aktualisieren von Tabellen
 08.07.2020 13:31:57 Julian
NotSolved
08.07.2020 14:36:37 Gast15380
NotSolved

Ansicht des Beitrags:
Von:
Julian		 Datum:
08.07.2020 13:31:57		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
Einlsen und Aktualisieren von Tabellen

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

 

Der 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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Einlsen und Aktualisieren von Tabellen
 08.07.2020 13:31:57 Julian
NotSolved
08.07.2020 14:36:37 Gast15380
NotSolved