Ich habe folgendes Problem:
Dieser Makro sucht mir aus Sheet 1 den Wert 2 in meinem Fall ist das die Kalenderwoche 2. Wenn der Wert 2 gefunden wurde soll er mir die Daten in Sheet 7 rüber kopieren. Es funktioniert alles super jedoch kopiert er mir die jeweiligen Werte immer exakt an die selbe Stelle z.B.: A51.
Ich will jedoch nun das er beim rüberkopieren bei A2 beginnt.
Ich hoffe ich habe mich deutlich ausgedrückt ansonsten einfach nachfragen.
Ich hoffe ihr könnt mir helfen
Hier folgt der VBA Code:
Sub Suche_Und_Kopiere_kw1()
Dim rngC As Range
Dim strAdresse As String
With Worksheets(1).Columns("A")
Set rngC = .Find("2", LookIn:=xlValues, LookAt:=xlWhole)
If Not rngC Is Nothing Then
strAdresse = rngC.Address
Do
rngC.EntireRow.Copy Destination:=Worksheets(7).Range("A" & rngC.Row)
Set rngC = .FindNext(rngC)
Loop While Not rngC.Address = strAdresse
End If
End With
End Sub