Office: Wert in spalte suche, zeile ausschneiden und in anderes Blatt kopieren

Hallo zusammen,

komme leider keinen Millimeter weiter...

Ich habe eine Excel-Datei mit Tabelle1, in der in Spalte J ("Status") nach "erledigt" gesucht werden soll. Wenn er eine Zelle mit "erledigt" findet, dann soll er die ganze Zeile kopieren, auschneiden und in Tabelle 3 kopieren.
In Tabelle 3 sollen alle Zeilen mit "erledigt" nach und nach eingetragen werden.

Die Suche und das Einfügen der Zeile in Tabelle 3 soll immer beim Schließen der Datei durchgeführt werden. Die Datei wird regelmäßig bearbeitet.

Hilfeeee!!

:)

 

hi

was nun? kopieren oder ausschneiden
oder soll vielleicht auch noch diese Zeile löschen in Tab1?

 

sorry!

Er soll sie kopieren, in Tabelle3 eintragen und in Tabelle1 löschen.

 

hi


Code:

 

PERFEKT!!!!!

Danke!

 

danke*Smilie

 

Ich bin auch Makro-Anfänger. Makros-auzeichnen geht, aber dann wird's langsam dünn.
Das Makro oben benötige ich auch so ähnlich, nur möchte ich nach einer Feldfarbe suchen (grün, statt erledigt). Für's erste habe ich erstmal noch auf das suchen nach "erledigt" durchgeführt. Da bekomme ich allerdings immer den "Fehler": Argument nicht optional. Habe ich das Makro falsch eingepflegt? Ich starte über einen Button.

 

Hallo liebe Office-Experten,
ich habe ein ähnliches Problem und komme mit dem Tipp vom @chris-kaiser leider nicht weiter.
Ich muss aus einer Excell-Tabelle Namen und dazugehörige Werte (also die ganze Zeile) ausschneiden und in eine neue Tabelle einfügen. Habe Office 2013 und kenne mich mit Makros usw. nicht aus. Es sind viel zu viele Werte, um sie einzeln auszuschneiden. Ich würde gerne für jede Person eine einzelne Tabelle erstellen. In dieser Tabelle sollen alle Werte diser Person einzeln aufgelistet werden.
Ich wäre sehr froh, wenn mir jemand behillich sein könnte.
Vielen Dank

 

Guten Abend

Kann mir jemanden diesen Code so anpassen, dass es nur die Werte in die neue Tabelle ohne Formeln kopiert?


Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
With Sheets("Dispo")
For i = .Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
If .Cells(i, "B") Like "Verrechnet" Then
.Rows(i).Copy Sheets("Verrechnet").Cells(Sheets("Verrechnet").Cells(Rows.Count, "B").End(xlUp).Row + 1, "A")
.Rows(i).Delete
End If
Next
End With
ActiveWorkbook.Save
End Sub


Freundliche Grüsse
wmikael

 

Moin
Geht mit Pastespecial.
Code:

gruss hary

 

Hallo Zusammen,

sicher recht simpel aber bekomme es gerade nicht hin.
möchte gerne Werte mit gleichen Wert in A in neues Blatt untereinander kopieren. So mit Formel zu Auf und runterziehen mit festen Bezug auf Spalte A.

neue Blatt A1=A1(Auswertungsblatt)wenn("$A2")=2 als Formel zu aufziehen

A ----- B ----- C
2--- Mayer -- heizen
5--- Karl --- Ofen
5--- Fritz --- Rad
4--- Auer --- Auto

Danke an alle

 

Ganz starke Leistung. Hammer Makro. Vielen lieben Dank!

 

Hallo zusammen,

erst mal vielen Dank an chris-kaiser .... HAMMER Makro
Wie kann man dieses Makro (mit erledigt) über mehrere Tabellenblätter laufen lassen?
D.h. Tabelle1 + Tabelle2 + Tabelle3 in Spalte J nach "erledigt suchen" und diese dann in Tabelle4 übertragen?


Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
With Sheets("Tabelle1")
For i = .Cells(Rows.Count, "J").End(xlUp).Row To 2 Step -1
If .Cells(i, "J") Like "erledigt" Then
.Rows(i).Copy Sheets("Tabelle3").Cells(Sheets("Tabelle3").Cells(Rows.Count, "J").End(xlUp).Row + 1, "A")
.Rows(i).Delete
End If
Next
End With
ActiveWorkbook.Save
End Sub

 

Das funktioniert soweit einwandfrei.

Wenn ich aber den Bereich von A1:A3 ausschneide, diesen dann aber im anderen Tabellenblatt C1:C3 kopieren möchte, kommt die Meldung "Laufzeitfehler 1004 - Sie können dies hier nicht einfügen, da der Kopier-Bereich und der Einfügebereich nicht die gleiche Größe haben. Wählen Sie im Einfügebereich nur eine Zelle oder einen Bereich mit derselben Größe aus, und versuchen Sie das Einfügen noch mal."

Bitte um Hilfe :-)