Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einlesen und Aktualisieren best. Bereich

Einlesen und Aktualisieren best. Bereich
08.07.2020 13:18:54
Julian
Hallo liebe User,
ich brauche Eure Unterstützung. Ich habe ein Macro das mir eine Tabelle einliest und aktualisiert.
Ich möchte das Macro folgendermaßen erweitern und anpassen:

  • 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.ä.

  • Überschriebene Zellen in der Ziel-Tabelle sollen markiert werden, z.B. soll die Zelle rot gefüllt werden, und nach anschließenden neuen Ausführungen des Macros soll die Zelle ihre Markierung wieder verlieren

  • neu dazugekommen Zeilen sollen komplett markiert werden und nach erneuten Durchführen des Makros soll die Makierung wieder entfallen
    Vielen Dank schonmal.

    • 1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Einlesen und Aktualisieren best. Bereich
    08.07.2020 13:25:19
    Julian 
    
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
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

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige