Liebe Excelfreunde,
leider komme ich erneut nicht weiter und hoffe auf Hilfe.
Ich Suche einen Weg ganze Zeilen (Markierte Zeilen) von Arbeitsbaltt "Karte" auf Arbeitsblatt "Abgetragen" ganz em Ende einzufügen.
Leider komme ich mit div. Codebatelein nicht weiter. Kann mir jemand Helfen?
Code:
Sheets("Karte").Rows("ActiveCell").Cut Cells(Sheets("Abgetragen").Rows.Count, 1).End(xlUp)(2, 1)
Vielen Dank
Hallo
probier es bitte mal so. Man achte auf die Feinheiten im Detail. Excel ist das sehr penibel!
Sheets("Karte").Rows(ActiveCell.Row).Cut _
Cells(Sheets("Abgetragen").Rows.Count, 1).End(xlUp).Cells(2, 1)
mfg Gast 123
Hallo Gast,
danke für die schnelle Antwort, leider kommt fehler 1004 (mit verbundenen Zellen nlcht möglich).
Mfg Marko
Hallo
wo befinden sich denn die verbundenen Zellen. Dann müsste man ggf. mehrere Zeilen rüberkopieren.
Dazu muss man aber den verbundenen Zellbereich wissen! Oder die verbünden Zellen auftrennen??
mfg Gast 123
Servus Gast 123,
die verbunden Zellen zeige ich dir im begefügtem Bild.
Die Zeilen dazu können jedoch immer Varieren, daher wollt ich, das eben die aktuelle Auswahl von Sheet 1 nach Sheet 2 verschoben wird.
Zeilen auftrennen ist leider keine richtige Option.
Hi,
wo ist denn das Bild? Mal ganz davon abgesehen, dass eine Datei wesentlich sinnvoller wäre.
Ohne die Datei zu kennen: Bei solchen Fragen ist es meist so, dass dies auf eine Vorgehensweise hindeutet, die im besten Fall fragwürdig, im schlechtesten Fall einfach nur schei... ist.
Auch die Aussage "Zeilen auftrennen ist leider keine richtige Option." deutet darauf hin.
Geh weg vom Papierdenken und denke in Listen. Dann wird das Leben in Excel viel viel einfacher.
https://www.excel-ist-sexy.de/design-vs-...onalitaet/ oder auch
https://www.online-excel.de/excel/singsel.php?f=52
In einer Liste macht man dann einfach eine weiter Spalte "Abgetragen" oder auch "Status" und filtert dann auf diese, wenn man nur "Abgetragen" sehen will oder eben nicht sehen will. Merke: Daten werden niemals kopiert, nur weil sich ein Status geändert hat. Das macht im Zweifel nur Probleme und Ärger. Und es erschwert Auswertungen wie "Wieviel Prozent der Projekte wurden im Januar 'abgetragen'?"
So, nach all dem Rumgemotze hier noch ein Lösungsvorschlag:
Code:
With Sheets("Abgetragen")
Selection.EntireRow.Cut .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End With
Mangels Beispieldatei natürlich ungetestet. Wird aber wahrscheinlich nur funktionieren, wenn deine verbundenen Zellen innerhalb der Selektion sind.
Lieber HKindler,
vorab wirklich besten Dank für deine Leereichen Worte.
Natürlich habe ich vorhin leider das Build vergessen, daher sende ich anbei einmal die Datei.
Zur Erklärung. Die Tabelle kann in Zukunft mit weit über 100 Zeilen (Format immer dentisch z.B. Zele 10+11) gefüllt sein.
Verschoben werden sollen dann immer die kombinierten Zelle ( 10+11, 12+13, 14+15 oder 16+17 usw. usw.)
Im Scheet Abgetragen sollen diese dann jeweils an Ende gestellt werden.
Wenn das irgenwie geht, wäre das MEGA, wenn nicht, ist es natürlich auch Okay.
Alternativen nehme ich gerne entgegen.
Tausend Dank für dein Zeit.
Mfg Marko
[
attachment=46670]
Hi,
1.
Meine Routine funktioniert, wenn du Zellen aus beiden Zeilen markierst.
2.
Du brauchst keine verbundenen Zellen. Wie ich vermutet habe, bist du gedanklich viel zu sehr im Papier gefangen. Mach einfach eine fortlaufende Liste. Damit lässt sich dann vernünftig arbeiten. Jede Materialbewegung ergibt einfach eine neue Zeile. Wenn du etwas auswerten willst, geht das dann mit einfachen Formeln oder Pivot-Tabellen oder Autofilter. Siehe Anhang.
Klar musst du dich da umstellen, aber auf Dauer lohnt es sich.
Hallo
@Helmut schöne Idee, hat mir gefallen, man sollte deinen Vroschlag m.E. noch weiter optimieren.
Der Frager muss aber selbst entscheiden ob er seine Tabelle neu aufbauen will. Das benötigt Zeit.
In der Zeit kann ich auch eine Lösung finden um verbundene Zellen zu verschieben.
Langfristiig lohnt es sich aber den Tabellenaufbau zu überdenken und neu zu gestalten!
mfg Gast 123