Wert>= auslesen und kopieren

Question

Hallo,
ich habe ein Problem in meinem Makro und benötige unbedingt Hilfe da ich absolut nicht mehr weiter komme. Folgender Code läuft einwandfrei.

Dim Lrow As Long

ActiveWorkbook.ActiveSheet.Range("B4:H10000").Copy
Lrow = ThisWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).row + 1
ThisWorkbook.Sheets("Daten").Range("A" & Lrow).PasteSpecial xlValues

ActiveWorkbook.Close savechanges:=False Close

Ich möchte aber eine kleine Änderung vornehmen und bin absolut hilflos.
Ich möchte, dass nicht mehr "ActiveWorkbook.ActiveSheet.Range("B4:H10000").Copy" kopiert wird, sondern aus dem "ActiveWorkbook", die Zelle ermittelt wird, die dem Wert >="H6"aus dem Sheet "Daten" entsprcht und dann kopiert wird.
Ich bin für jede Hilfe dankbar.
Viele Grüße

Answer 1

Hallo,

hier mal eine Möglichkeit, wie du das lösen kannst:

Dim zelle As Range

For Each zelle In ActiveWorkbook.ActiveSheet.Range("B4:H10000")
If zelle.Value => ThisWorkbook.Sheets("Daten").Range("H6").Value then
'hier kommt dann deine Kopierroutine
End if
Next zelle

Gruß

M.O.