Überprüfen von Zellen mit VBA

[snb]

Code:

Sub M_snb()
  Sheets("K_5").Range("E2:E30").SpecialCells(2).Copy sheets("4-Bes").Cells(rows.count,1).end(xlup).offset(1)

  with sheets("4-Bes").cells(1).currentregion
    .Resize(, 3).Columns(2).SpecialCells(4) = "K_5"
    .Resize(, 3).Columns(3).SpecialCells(4) = Date
    .RemoveDuplicates 1
  End With
End Sub

[Hummingbeard]

Code:

Sub M_snb()
  Sheets("K_5").Range("E2:E30").SpecialCells(2).Copy sheets("4-Bes").Cells(rows.count,1).end(xlup).offset(1)

  with sheets("4-Bes").cells(1).currentregion
    .Resize(, 3).Columns(2).SpecialCells(4) = "K_5"
    .Resize(, 3).Columns(3).SpecialCells(4) = Date
    .RemoveDuplicates 1
  End With
End Sub

Lieber snb,

vielen Dank für deine Hilfe! Der Code tut fast das, was er soll - es muss nur aus der Range E2:E30 nicht der Wert der jeweiligen Zelle, sondern der Wert, der in der ersten Zelle der jeweiligen Zeile steht, übertragen werden.
Das wär genial, wenn du mir dabei noch helfen kannst.

Viele Grüße
HB

[Hummingbeard]

Ich habe zwischenzeitlich selbst versucht, den Code von snb so zu verändern, dass der erste Wert der Zeile kopiert wird und nicht die abgefragte Zelle in Spalte E - leider erfolglos...
Hat jemand da einen Tipp für mich? Oder eine andere Methode, die das problem löst?

Danke für eure Hilfe!
HB

[snb]

Code:

Sub M_snb()
  Sheets("K_5").Range("E2:E30").SpecialCells(2).offset(,-4).Copy sheets("4-Bes").Cells(rows.count,1).end(xlup).offset(1)

  with sheets("4-Bes").cells(1).currentregion
    .Resize(, 3).Columns(2).SpecialCells(4) = "K_5"
    .Resize(, 3).Columns(3).SpecialCells(4) = Date
    .RemoveDuplicates 1
  End With
End Sub