Excel Makro

Diskutiere Excel Makro im Office Forum im Bereich Microsoft Community Fragen; Hallo zusammen, ich würde gern in eine Excel Datei ein Makro einfügen, welches eine komplette Zeile in ein anderes Blatt verschiebt, sobald in...

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo zusammen,


ich würde gern in eine Excel Datei ein Makro einfügen, welches eine komplette Zeile in ein anderes Blatt verschiebt, sobald in einer Spalte das Wort "Erledigt" vorkommt. In dem aktiven Blatt soll die Zeile nach dem verschrieben gelöscht werden.


Allerdings kenne ich mich mit Makros nicht wirklich aus.

Ich habe im Internet einen Makro gefunden, der passen könnte. Allerdings funktioniert es nicht.


Kann mit evtl. jemand weiter helfen?



Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZielZeile As Long
ZielZeile = Sheets("erledigte Reparaturen").Cells(Rows.Count, 1).End(xlUp)
Set Target = Intersect(Target, Range("M1:M1000"))
If Target Is Nothing Then Exit Sub
If Target = "Erledigt" Then
Target.EntireRow.Copy Destination:=Sheets("erledigte Reparaturen").Cells(ZielZeile + 1, 1)
Target.EntireRow.Delete
End If
End Sub


Ich kann auch gerne die Datei zur Verfügung stellen.


Danke im Voraus.
 
#
schau mal hier: Excel Makro. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Excel Makro

Excel Makro - Ähnliche Themen

Excel Makro_ Zeilen ein- & ausblenden: Hallo Ich habe ein bisschen ein grösseres Problem und bin mit probieren und durchlesen von etlichen Foren nicht zu einer Lösung gekommen...
[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
Excel - VBA: Hallo Zusammen! Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen. LG Nikola Sub...
Verhalten beim Einfügen von Bildern per Makro: Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...
Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?: Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...

Sucheingaben

potawatomi casino

,

finlandia casino

,

finlandia c/asino

,
poker books
, pokejr books, california scasino, 888 casino, 888 Rcasino, online poker games, high 5 mcasino real slots, mirage casino, 3poker games list, free poker games download, free p7oker games download, ruby fortune casino, play free pokedr, pHoker winning, real cHasino slot machines, open face chinese poker, open face chinese pgoker, poker games list, what are pwoker chips made of
Oben