Hallo.
In einer Spalte Suche ich nach einem Wert. Der Wert kommt einmal vor. Das Suchen per VBA habe ich soweit hinbekommen. Jetzt möchte ich, dass der Bereich von einschließlich der gefundenen Zelle bis zur letzten beschrieben Zelle in der Spalte selektiert wird. Diesen Bereich möchte ich dann kopieren und an anderer Stelle einfügen. Mein Problem ist ich bekomme es nicht hin per VBA diesen Bereich zu selektieren. Die gefundene Zelle ist aktiv.
Freundliche Grüße
mobusta
Dim gefunden As Range
For Each gefunden In ActiveSheet.Range("F:F").Cells
If gefunden.Text = "11091" Then
gefunden.Activate
Exit For
End If
Next
lezef = Sheets("Wipo").Cells(Rows.Count, 6).End(xlUp).Row
|