Office: Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen

Hallo Tom,

Ja. Schreibe das Makro in ein allgemeines Modul. Code:

Dann drücke Alt+F8, in dem sich dann öffnenden Fenster auf "Optionen" und gib deine Tastenkombination ein. Du kannst das Makro dann mit der Kombination von jedem Blatt aus aufrufen.

 

Hallo Hasso,

hab´s bereits angepasst! Läuft prima, könnte man noch die Ausgabe aufsteigend sortieren?

msg4021
msgA101
msgA12D

etc.

Gruß
Tom

 

Hallo Tom,

das kann man so machen (die roten Zeilen sind eingefügt): Code:

 

Bestens! Vielen Dank!

 

Hallo Hasso,

ich bräuchte nochmals Deine Hilfe. Es geht um das selbe Script, nur müsste etwas angepasst werden.

In der Spalte "C" hab ich jetzt keine Filterung nach "Ja" / "Nein" sondern jetzt sind hier Zahlen von 1 bis xy auch doppelt vorhanden + leere Zeilen. Man müsste also nach nicht leeren Zeile suchen (also nur die mit Inhalt / Zahlen von 1 bis xy)

Und diese dann wieder mit warning.msg verknüpfen, dh. Spalte A wird nicht gebraucht, warning.msg wird mit dem Wert aus Spalte "C" verknüpft. Spalte "G" mit bla bla Text bleibt bestehen.

warning.msg1 = bla bla
warning.msg1 = bla bla
warning.msg3 = bla bla
warning.msg13 = bla bla

Danke im Voraus!
Tom

 

Hallo Hasso,

ich bräuchte nochmals Deine Hilfe. Es geht um das selbe Script, nur müsste etwas angepasst werden.

In der Spalte "C" hab ich jetzt keine Filterung nach "Ja" / "Nein" sondern jetzt sind hier Zahlen von 1 bis xy auch doppelt vorhanden + leere Zeilen. Man müsste also nach nicht leeren Zeile suchen (also nur die mit Inhalt / Zahlen von 1 bis xy)

Und diese dann wieder mit warning.msg verknüpfen, dh. Spalte A wird nicht gebraucht, warning.msg wird mit dem Wert aus Spalte "C" verknüpft. Spalte "G" mit bla bla Text bleibt bestehen.

warning.msg1 = bla bla
warning.msg1 = bla bla
warning.msg3 = bla bla
warning.msg13 = bla bla

Danke im Voraus!
Tom

 

Hallo Tom,

ändere den Code so: Code:

 

Das ging aber schnell! Leider bekomme ich die Fehlermeldung: Index außerhalb des gültigen Bereichs..... *frown.gif*

 

Passt! Mein Fehler! Nochmals danke!

 

Hallo Hasso,

bräuchte nochmals Deine Hilfe. Es geht um zwei Macros die mir Inhalte in bestehende Tabellen hineinkopieren und die Inhalte anschliessend löschen.
Siehe Beispiel.xlsx

Hätte bereits ein Makro, hier werden aber 4Spalten kopiert, vielleicht kannst Du es nur schnell anpassen...

Sub DatenKopieren()
Dim kopieren As Range
Dim LzSpalteDaten As Long
Dim LzSpalteEintrag As Long
Dim letzte As Long
LzSpalteEintrag = Cells(7, Columns.Count).End(xlToLeft).Column
LzSpalteDaten = Cells(9, Columns.Count).End(xlToLeft).Column - 3
letzte = Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub

Dann hätte ich noch zwei Fragen:
- wie kann ich ein Makro aufrufen (strg+XY) damit es in zwei Reitern/Blättern
gleichzeitig ausgefürht wird?

- lässt sich eine sehr große csv Datei (ca.900MB), per Makro (filtern,
ersetzen) so aufbereiten, dass das Ergebnis dann in eine neue Datei
gespeichert werden kann (reduzierter Datenumfang).

Besten Gruß
Tom

 

Hallo Hasso,

bräuchte nochmals Deine Hilfe. Es geht um zwei Macros die mir Inhalte in bestehende Tabellen hineinkopieren und die Inhalte anschliessend löschen.
Siehe Beispiel.xlsx

Hätte bereits ein Makro, hier werden aber 4Spalten kopiert, vielleicht kannst Du es nur schnell anpassen...

Sub DatenKopieren()
Dim kopieren As Range
Dim LzSpalteDaten As Long
Dim LzSpalteEintrag As Long
Dim letzte As Long
LzSpalteEintrag = Cells(7, Columns.Count).End(xlToLeft).Column
LzSpalteDaten = Cells(9, Columns.Count).End(xlToLeft).Column - 3
letzte = Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub

Dann hätte ich noch zwei Fragen:
- wie kann ich ein Makro aufrufen (strg+XY) damit es in zwei Reitern/Blättern
gleichzeitig ausgefürht wird?

- lässt sich eine sehr große csv Datei (ca.900MB), per Makro (filtern,
ersetzen) so aufbereiten, dass das Ergebnis dann in eine neue Datei
gespeichert werden kann (reduzierter Datenumfang).

Besten Gruß
Tom

 

Hallo Harry,

bräuchte nochmals Deine Hilfe. Es geht um zwei Macros die mir Inhalte in bestehende Tabellen hineinkopieren und die Inhalte anschliessend löschen.
Siehe Beispiel.xlsx

Das Macro ist von Dir, falls Dich noch daran erinnerst *wink.gif*
Jetzt sollten aber nur 2Spalten kopiert werden, könntest Du einen Blick drauf werfen..

Sub DatenKopieren()
Dim kopieren As Range
Dim LzSpalteDaten As Long
Dim LzSpalteEintrag As Long
Dim letzte As Long
LzSpalteEintrag = Cells(7, Columns.Count).End(xlToLeft).Column
LzSpalteDaten = Cells(9, Columns.Count).End(xlToLeft).Column - 3
letzte = Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub

 

könntest Du dir bitte das Macro zum Kopieren der 2Spalten nochmals ansehen...
Wäre super!

Danke & Gruß
Tom

 

Moin
Jetzt bist du dran.;-)) Ohne nochmal alles durchzulesen.
Es geht um Spalte C:D.
1. Wenn dort kein Inhalt dann Null eintragen?
2. Inhalt aus C:D kopieren(Wert und Format) wohin, 2 Spalten nach rechts?
3. Spalte C:D loeschen?
4. Bei nochmaligen start, wo sollen die Werte hin?
gruss hary

 

Hallo Harry, sorry für die späte Anwort.
Hier kurz zusammengefasst:

Es soll die letzte Spalte rechts ermittelt werden und der letzte Eintrag
Dann nur den Bereich mit "Inhalt" in die bestehende Tabelle kopieren, ab Zeile 7 (diesmal keine leeren Zellen mit "0" ausfüllen)
"Überschrift" nicht, es soll die ürsprümgliche Formatierung der Tabelle beibehalten werden, also nur Werte kopieren
Danach den kopierten Bereich löschen

Dein, von mir bereits eingesetztes, Macro:

Sub DatenKopieren()
Dim kopieren As Range
Dim LzSpalteDaten As Long
Dim LzSpalteEintrag As Long
Dim letzte As Long
LzSpalteEintrag = Cells(7, Columns.Count).End(xlToLeft).Column
LzSpalteDaten = Cells(9, Columns.Count).End(xlToLeft).Column - 3
letzte = Cells(Rows.Count, LzSpalteDaten).End(xlUp).Row
With Cells(10, LzSpalteDaten).Resize(letzte - 9, 4)
.SpecialCells(xlCellTypeBlanks).Value = 0
.Copy
Cells(10, LzSpalteEintrag).PasteSpecial Paste:=xlPasteValues
End With
Cells(9, LzSpalteDaten).Resize(letzte - 8, 4).Clear
End Sub

hier werden 4 Spalten kopiert beginnend mit der Zeile 10

Siehe die Beispieltabelle, hab dort alles genau aufgezeichnet.

Schönen Gruß
Tom