Hallo
Ich möchte ein zelle mit dem selben Wert wie einer anderen Zelle Suchen. danach möchte Ich von die Zelle und alle rechts volgen und eintrag haben kopieren und die Zeile darunter den selben bereich kopieren.
'Das ist was ich weiss nacher kamm ich einfach nicht weiter. Ganz herzlichen Dank für die hilfe!
Worksheets("Daten berechnung").Activate
Dim Woche As Integer
Woche = Range("J6")
MsgBox Woche
Worksheets("Wochen berechnung").Activate
Dim SucheA As Range
Set SucheA = Range("C1:BB1").Find(What:=Woche)
MsgBox SucheA.Adress
Dim size As Integer
size = Application.WorksheetFunction.CountA(Range("von SucheA.Adress nach BB1"))
Range.Copy = ("von SucheA.Adress nach size(0, 1)")
Worksheets("Daten berechnung").Activate
Range.Replace("L1")
|