Zeile durch Makro in Kontrollkästchen verschieben

Forumthread: Zeile durch Makro in Kontrollkästchen verschieben
10 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Forumthread: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 11:48:28

Fischer

Hallo Ihr VBA-Götter,
ich habe eine Tabelle mit mehreren Einträgen in Tabelle3. Am Ende jedes Eintrages (Spalte M) ist je ein Kontrollkästchen. Jetzt soll beim Setzen des Hakens die jeweilige Zeile aus der Liste ausgeschnitten und ans Ende von Tabelle4 gesetzt werden. Nun soll noch die leer gewordene Zeile in Tabelle3 gelöscht werden.
Ist sowas überhaupt möglich ?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 12:07:16

Rudi
AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 12:40:21

Fischer
AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 13:13:42

Rudi
AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 14:36:39

Fischer
.Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 15:35:05

Rudi
AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 15:47:07

Fischer
AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 16:09:05

Rudi
AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 16:43:34

Fischer
AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 17:59:40

Rudi
AW: .Copy Sheets("Tabelle4").Cells(... owT

06.09.2013 12:13:59

Fischer

AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 12:07:16

Rudi

Hallo,
Ist sowas überhaupt möglich ?
Ja.
Gruß
Rudi

AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 12:40:21

Fischer

Danke Rudi,
würde mir evtl. jemand helfen ?

AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 13:13:42

Rudi

Hallo,
so?

Sub Verschieben()
Dim shp As Shape
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp.TopLeftCell.EntireRow
.Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Delete
End With
shp.Delete
End Sub

Gruß
Rudi

AW: Zeile durch Makro in Kontrollkästchen verschieben

05.09.2013 14:36:39

Fischer

Danke Rudi !....
das ist schon super. Allerdings wird der Eintrag ans Ende der selben Liste geschoben und nicht ans Ende der Tabelle4.

.Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 15:35:05

Rudi

AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 15:47:07

Fischer

? Warum hast Du das in der Betreff geschrieben. Fehlt doch bestimmt noch was.

AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 16:09:05

Rudi


Sub Verschieben()
Dim shp As Shape, rng As Range
With ActiveSheet.Shapes(Application.Caller)
Set rng = .TopLeftCell.EntireRow
.Delete
End With
rng.Copy Sheets("Tabelle4").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 16:43:34

Fischer

OK, ich will dich ja nicht nerven aber jetzt wird die Zeile zwar in Tabelle 4 kopiert...bleibt aber auch in der Tabelle3 noch vorhanden.
Danke,Danke,Danke

AW: .Copy Sheets("Tabelle4").Cells(... owT

05.09.2013 17:59:40

Rudi

Hallo,
jepp, vergessen.

Sub Verschieben()
Dim shp As Shape, rng As Range
With ActiveSheet.Shapes(Application.Caller)
Set rng = .TopLeftCell.EntireRow
.Delete
End With
rng.Copy Sheets("Tabelle4").Cells(Rows.Count, 1).End(xlUp).Offset(1)
rng.Delete
End Sub