Microsoft Excel

Herbers Excel/VBA-Archiv

Zellenwert bei Änderung kopieren

Betrifft: Zellenwert bei Änderung kopieren von: Marco
Geschrieben am: 10.09.2020 18:02:29

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

Betrifft: AW: Zellenwert bei Änderung kopieren
von: Dieter Klemke
Geschrieben am: 10.09.2020 18:31:12

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

Betrifft: AW: Zellenwert bei Änderung kopieren
von: Marco
Geschrieben am: 10.09.2020 18:54:16

Hallo Dieter,

funktioniert bestens - vielen Dank!

Beiträge aus dem Excel-Forum zum Thema "Zellenwert bei Änderung kopieren"