Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1780to1784
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
Inhaltsverzeichnis

Zellenwert bei Änderung kopieren

Zellenwert bei Änderung kopieren
10.09.2020 18:02:29
Marco
Hallo,
mich plagt folgendes Problem.
Ich habe in Tabellenblatt1 eine riesige Tabelle. Der Wert in Spalte G ändert sich nur alle 300-400 Zeilen. Es soll nun Spalte G über ein Makro durchlaufen werden, welches den ersten Wert von Spalte G in die Zeile A von Tabellenblatt2 kopiert, sowie alle weiteren Werte, aber nur wenn diese sich ändern. Anbei ein kurzes Beispiel zur Erklärung.
Ausgangsspalte:
18.02.2019 12:26:04
18.02.2019 12:26:04
18.02.2020 12:26:04
18.02.2020 12:26:04
18.02.2020 12:26:04
18.02.2019 15:26:04
Ergebniszeile:
18.02.2019 12:26:04; 18.02.2020 12:26:04; 18.02.2019 15:26:04
Würde mich sehr freuen wenn mir jemand weiterhelfen kann! Grüße

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenwert bei Änderung kopieren
10.09.2020 18:31:12
Dieter
Hallo Marco,
das kannst du z.B. mit dem folgenden Programm amchen:
Sub Verarbeiten()
Dim aktWert As Date
Dim letzteZeile As Long
Dim spalte As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim zeile As Long
Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
Set ws2 = ThisWorkbook.Worksheets("Tabelle2")
ws2.Rows(2).ClearContents
letzteZeile = ws1.Cells(ws1.Rows.Count, "G").End(xlUp).Row
spalte = 1
For zeile = 2 To letzteZeile
If ws1.Cells(zeile, "G")  aktWert Then
ws2.Cells(2, spalte) = ws1.Cells(zeile, "G")
spalte = spalte + 1
aktWert = ws1.Cells(zeile, "G")
End If
Next zeile
ws2.Columns(1).Resize(, spalte).AutoFit
End Sub

https://www.herber.de/bbs/user/140179.xlsm
Viele Grüße
Dieter
Anzeige
AW: Zellenwert bei Änderung kopieren
10.09.2020 18:54:16
Marco
Hallo Dieter,
funktioniert bestens - vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige