Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Find Copy Paste Funktion

Find Copy Paste Funktion
05.03.2009 19:05:05
Xen
Hallo,
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? :-)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Find Copy Paste Funktion
05.03.2009 20:45:20
Frank
Hallo,
ganz sicher, daß dafür nicht der Autofilter reicht?
Gruß, Frank
AW: Find Copy Paste Funktion
05.03.2009 22:42:34
Xen
Habs gelöst ;)

Sub Suche_Kostenstelle()
Dim rng As Range, rngSource As Range, rngStart As Range
Dim varInput As Variant
Dim iRow As Integer
varInput = Application.InputBox( _
prompt:="Geben Sie bitte die Kostenstelle ein: zB IS42*", _
Title:="Kostenstelle kopieren nach Generator", _
Default:="IS42*", _
Left:=263, _
Top:=169, _
Type:=2)
If varInput = False Then Exit Sub
Set rng = ActiveSheet.Columns("A:F").Find( _
what:=varInput, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Kostenstelle nicht gefunden!"
Exit Sub
End If
Set rngStart = rng
Set rngSource = rng.EntireRow
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = rngStart.Address Then Exit Do
Set rngSource = Application.Union(rngSource, rng.EntireRow)
Loop
With Worksheets("Generator")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
rngSource.Copy .Cells(iRow, 1)
.Columns.AutoFit
End With
End Sub


Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige