folgendes Problem:
Ich stehe in einer Tabelle in einer beliebigen Zelle und möchte in dieser Zeile nun die erste Zelle (z.B. A30) kopieren.
So sieht mein Versuch aus, klappt aber nicht so wie ich es mir wünsche
Sub Preis_anzeigen()
Dim SuchNr
Set SuchNr = ActiveCell
Selection.End(xlToLeft).Select
SuchNr.Copy
Sheets("alle").Select
Range("a3").Select
Cells.Find(What:=SuchNr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Selection.End(xlToLeft).Select
End Sub
Hat jemand eine Idee wie man das hinbekommt?
Besten Dank im Voraus
Gruss
Ralf