Excel Makro komplette Zeile markieren/kopieren
23.08.2005 15:43:48
MS
1. Die Suche im Sheet Ausgangstabelle funktioniert einwandfrei, jedoch möchte ich, dass nicht nur die gefundene Zelle "test" markiert und anschließend kopiert wird, sondern die komplette Zeile, in der "test" vorkommt.
2. Wie kann ich anschließend nicht benötigte Spalten rauslöschen, mit welchem Befehl?
_______________________________________________________________________________
Sub ProvisionsRechner()
'Provision xxxxx'Erstellt von xxxxxxx am 19.08.2005
Sheets("Ausgangstabelle").Select
Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Copy
Sheets("AusT").Select
ActiveSheet.Paste
End Sub
______________________________________________________________________________