Excel Makro Kopieren

Question

Hallo,

wie schaffe ich es denn in einer Exceldatei mit tausenden von Datensätzen, ab dem Datensatz in dem dann "Anfang der Hinweisliste" steht, alles in die 2. Lasche "Hinweisliste" zu kopieren und das kopierte aus der ersten Lasche "Niederswert" zu löschen, quasi aus Sheet1 ausschneiden und in Sheet 2 einfügen?

Viele Grüße und danke im voraus!

Answer 1

Hallo,

leider genau so unverständlich wie deine andere Anfrage, was willst du da machen, etwas umkopieren?

Versuch es mal mit einer Beispieltabelle

http://www.file-upload.net/?why=1

und den Link hier hinterlegen.

Du solltest dran denken, du kennst deine Tabellen, wir nicht

Gruß

Helmut

Answer 2

Hallo habe dir in deinem Pager geschrieben, bin auf Arbeit, kann ich dir die Beispieldatei per Email senden?

Answer 3

Hallo,

in welcher Spalte steht denn "Anfang der Hinweisliste"? Steht das allein in der Zelle, oder ist das Teil eines längeren Textes? Und wie Helmut bereits geschrieben hat, wäre eine Beispieltabelle nicht schlecht.

Gruß

M.O.

Answer 4

Hallo Benjamin,

hier mal ein Makro zum Ausschneiden:

Sub hinweisliste_kopieren()
Dim anfang, zeile As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Anfang der Hinweisliste suchen

For zeile = 3 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Left(Cells(zeile, 1), 23) = "Anfang der Hinweisliste" Then
anfang = zeile
Exit For
End If
Next zeile

'Ausschneiden und in Tabelle Hinweisliste einfügen
Range(Cells(anfang, 1), Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 1)).EntireRow.Cut
Sheets("Hinweisliste").Paste

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub

Wie immer: bitte erst einmal in einer Testdatei probieren.

Gruß

M.O.