Statt in freie Spalte kopieren, überschreibt Makro

Sub kopieren() Worksheets("Tabelle1").Range("F:F").Copy Worksheets("Tabelle1").Cells(1, Worksheets("Tabelle1"). _ Columns.Count).End(xlToLeft).Offset(0, 1). _ PasteSpecial Paste:=xlValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro1() Dim lastColumn As Long lastColumn = Worksheets("Tabelle1").Cells(8, Worksheets("Tabelle1").Columns.Count).End( _ xlToLeft).Column Worksheets("Tabelle1").Range("F:F").Copy Worksheets("Tabelle1").Columns(lastColumn + 1).PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

Natürlich Tanja.
Du rufst die nun parametrierte


Sub einfach öfters aus dem Macro1 auf.
Die PrimaerZeile ist die Zeile, die immer einen Inhalt haben sollte, denn danach wird die nä _
chste freie Spalte gesucht.
(Die End-Funktion kann nicht mehrere Zeilen/Spalten auf Inhalte prüfen.
Sie nimmt immer die oberste Zeile/ linke Spalte des Bereiches aus, der ihr übergeben wird!
Auch übersieht sie ausgeblendete Zeilen!)

Sub Macro1()
SpaltenKopieren "Tabelle1", "F", 8
SpaltenKopieren "Tabelle2", "D", 8
End Sub


Sub SpaltenKopieren(TabellenBlatt As String, Spalte As String, PrimaerZeile As Long)
Dim letzteSpalte As Long
letzteSpalte = Worksheets(TabellenBlatt).Cells(PrimaerZeile, 256).End(xlToLeft).Column
Worksheets(TabellenBlatt).Columns(Spalte).Copy
Worksheets(TabellenBlatt).Columns(letzteSpalte + 1).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

NBoch Fragen ? :-)

Gruss Adelhorst

Option Explicit Sub SpaltKop() Sheets("Tabelle1").Select SpalteKopieVal Sheets("Tabelle1 (2)"), 11 ' 11 ist Spalte K SpalteKopieAll ActiveSheet, 3 ' 3 ist Spalte C End Sub Sub SpalteKopieVal(wks As Worksheet, lngSpalte As Long) ' Kopiert Werte von Blatt!Spalte in das aktive Blatt hinter die letzte Spalte Dim lngCol As Long With ActiveSheet lngCol = LetzteSpalteBer(1, .Rows.Count) ' Zeilenbereich ist ganze Tab. If lngCol

Beliebteste Forumthreads (12 Monate)

Statt in freie Spalte kopieren, überschreibt Makro

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Statt in freie Spalte kopieren, überschreibt Makro

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread