AW: Kopieren von bestimmten Bereichen
19.08.2008 15:49:05
bestimmten
HI
verwende mal die FIND-Funktion ohne das .ACTIVATE am Ende, dann sollte es funktionieren.
das ON ERROR RESUME NEXT ist dann auch überflüssig, in diesem Fall kein Fehler bei einem nicht gefundenen Suchtext erzeugt wird.
das hier müsste als code funktionieren:
Set rAnfang = Cells.Find(What:=original, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Set rEnde = Cells.Find(What:="Ende", After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not rAnfang Is Nothing And Not rEnde Is Nothing Then
Range(rAnfang, rEnde).Select
End If
Gruß, Daniel