AW: Makro zum Suchen
30.08.2012 22:49:10
marika
Hi Boris, mach ich gerne... die Datei ist hier https://www.herber.de/bbs/user/81656.xlsm
und das ist mein Code, falls er unterwegs verlorengegangen ist
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+l
Sheets("Tabelle1").Select
Range("A1").Select
Cells.Find(What:="lost", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("lost").Select
Cells(1048576, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Tabelle1").Select
Selection.EntireRow.Delete
Range("A1").Select
Cells.Find(What:="in arbeit", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("in arbeit").Select
Cells(1048576, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Tabelle1").Select
Selection.EntireRow.Delete
Range("A1").Select
Cells.Find(What:="vertrag", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("vertrag").Select
Cells(1048576, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Tabelle1").Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub
VG marika