Office: Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

S.Stubbe · 11. Oktober 2015

Hallo zusammen,

es tut mir leid, das ich ein neues Thema aufmache, aber ich habe bei der Arbeit einef Aufgabe bekommen, die ich alleine nicht bewätigen kann.

Ich beschreibe einfach mal.

In der ersten Tabelle habe ich eine Aufgabenliste (Datum, Fälligkeit, Titel, Prio, Bearbeiter, Status, Gremium und weitere).
Beim Öffnen der Tabelle soll geprüft werden, ob die Zelle Gremium gefüllt ist, wenn das so ist, sollen bestimmte Spalten (Datum, Status, Titel und Gremium) in eine neues Sheet ("Gremien") kopiert werden.

Also zweites ist gefordert, dass wenn der Status auf erledigt ist, soll die ganze Zeile in ein Sheet ("erledigt") kopiert werden.

Ich hoffe, dass mir irgendjemand helfen kann.

:)

hary · 13. Oktober 2015

Moin
Ohne Bsp.-Mappe wuerd ich Filtern /kopieren und einfuegen.
gruss hary

S.Stubbe · 13. Oktober 2015

Leider ist das mit dem Filtern und kopieren so nicht gewünscht.

Es soll automatisch klappen.

Habe nun mal eine Beispiel Datei angehängt. Vielleicht wird dann klarer, was gewünscht ist.

hary · 13. Oktober 2015

Moin
Setz einen Filter bei Gremium.
Filter nach Leer.
Dann kopiertst du die Bereich in das Blatt "Gremium".
Kannst alles mit dem Makrorecorder(wegen automatisch) aufzeichnen.
Diesen Code kann man dann vereinfachen.
Hab jetzt Schicht im Schacht. Geht erst Morgen wieder.
gruss hary

S.Stubbe · 14. Oktober 2015

Werde ich ausprobieren.
Vielen lieben Dank erstmal.

hary · 14. Oktober 2015

Moin
Hier mal ganz verstaendlich und einfach aufgebaut. Da kommt bestimmt noch mehr, da Fragen offen sind.
Bsp. Sollen die Eintraege in den Blaettern ueberschrieben werden? usw.
Code:

Sub Versuch1()
With Worksheets("Themen").Range("$A$3:$K$90")
.AutoFilter Field:=11, Criteria1:=""
If .SpecialCells(xlVisible).Count > 12 Then
Worksheets("Gremien").Cells(3, 1).CurrentRegion.ClearContents
Union(.Columns(4), .Columns(7), .Columns(11)).SpecialCells(xlVisible).Copy
Worksheets("Gremien").Cells(3, 1).PasteSpecial Paste:=xlValues
Worksheets("Themen").ShowAllData
End If
.AutoFilter Field:=10, Criteria1:="erledigt"
If .SpecialCells(xlVisible).Count > 12 Then
Worksheets("erledigt").Cells(3, 1).CurrentRegion.ClearContents
.SpecialCells(xlVisible).Copy
Worksheets("erledigt").Cells(3, 1).PasteSpecial Paste:=xlValues
End If
Worksheets("Themen").ShowAllData
Application.CutCopyMode = False
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

S.Stubbe · 15. Oktober 2015

Danke danke danke...

das hilft mir erst schon mal super weiter.

Ja die Blätter können immer wieder neu überschrieben werden. bzw. wenn es einene einfacheren Weg gibt, dann wird das auch gehen.

DANKE

hary · 15. Oktober 2015

Moin
Einfacher wie ueberschreiben geht nicht. Das einzigste was noch vereinfacht werden kann ist, dass der Code automatisch ausgefuehrt wird wenn in den Spalten Status und Gremium der Inhalt wechselt. Dann braucht das Makro nicht von Hand gestartet werden.
Ansonsten macht der Code das was du moechtest??
gruss hary

Office: Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

Makro Wenn Wert in Zelle dann in andere Tabelle kopieren

Makro Wenn Wert in Zelle dann in andere Tabelle kopieren - Similar Threads - Makro Wert Zelle

Makro für wenn Zelle gefüllt dann Nachbarzelle wert eintragen

Makro Zellüberwachung wenn Wert dann Mail mit Wert einer anderen Zelle

Makro stoppen und sobald Wert in Zelle vorhanden Makro weiter ausführen

Makro erst ausführen wenn Wert in Zelle >0

Makro: vorhandenes Tabellenblatt kopieren und bennennen nach Wert in Zelle

Makro das Zellen bei einem bestimmten Wert entsperrt

VBA Makro - Beim Drücken des "Tab" soll Zelle gefüllt werden