Find Copy Paste Funktion
05.03.2009 19:02:10
Xen
ich brauche mal ein wenig hilfe.
Ich möchte aus einer datei wo mehere
Datensätze drin sind. Es gibt ca 20 Kostenstellen
zb
Kostenstelle Nummer Netto MwSt. Brutto
IS55550 1781012762 17,66 3,36 21,02
IS55550 1781012763 17,66 4,36 25,02
IS55551 1791012762 17,66 3,36 21,02
Jetzt möchte ich ein makro haben was mir jeweils ein sheet erstellt für die Kostenstellen
und die Werte aus dem Ersten sheet einfach in die entsprechenden sheets reinkopiert.
Ich habe auch schon etwas gebastelt.Allerdings scheiter ich :/
Sub Makro3()
' Makro3 Makro
Cells.Find(What:="IS3240", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows("59:59").Select
Selection.Copy
Sheets("Gesamt").Select
Sheets.Add
ActiveSheet.Paste
Sheets("Gesamt").Select
Selection.FindNext(After:=ActiveCell).Activate
Rows("60:60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle3").Select
Rows("2:2").Select
ActiveSheet.Paste
End Sub
Kann mir einer einen tipp geben? :-)