Danke!
Mir ist damit sehr geholfen!
Weist du eventuell auch wie ich das ganze so hinbekomme wenn eine Zeile markiert ist?
Also Markierte Zeile und (z.B.) A2:E2?
Mein Code sieht momentan so aus:
Columns("A:A").Select
Selection.Find(What:="Schrank €", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Select
Range("A2:E2, ActiveCell").Select
Mit Range("A2:E2, ActiveCell").Select bekomme ich immer eine Fehlermeldung
und mit Range("A2:E2", ActiveCell).Select funktioniert es zwar aber es werden immer auch alle Zeilen die Zwischen der ursprünglich markierten und A2:E2 liegen mit markiert.
Gruß
|