Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro nur auf einige Spalten beziehen

Makro nur auf einige Spalten beziehen
petra
Hallo,
habe den folgenden Makro:
Public

Sub Kopieren()
Sheets("Tabelle1").Cells.Copy
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Jetzt möchte ich diesen Vorgang allerdings nicht für die ganze Tabelle1 durchführen, sondern lediglich für die Spalten A bis N.
wie muss der Makro dann heißen?
habs nicht hinbekommen.
lg
petra
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro nur auf einige Spalten beziehen
15.02.2006 16:52:28
chris
Versuchs mal so:

Sub Kopieren()
Range("A:N").Copy
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle1").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Anzeige
AW: Makro nur auf einige Spalten beziehen
15.02.2006 17:00:30
petra
irgendwas fehlt!
der ganze makro sieht jetzt folgendermassen aus:
Public

Sub Einfügen()
'Workbooks("mappe1.xls").Worksheets("tabelle1").Copy after:=ThisWorkbook.Worksheets(1)
With Workbooks("mappe1.xls").Sheets("tabelle1")
.Columns("A:U").Copy Workbooks("mappe2.xls").Sheets("tabelle1").Range("A1")
End With
Application.CutCopyMode = False
Call Kopieren
End Sub

Public

Sub Kopieren()
With Sheets("tabelle1")
Range("A:N").Copy
Sheets("tabelle1").Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("tabelle1").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub

was der jetzt allerdings macht ist, dass er aus mappe 2 die Werte und Formate übernimmt. dabei soll er die werte und formate aus mappe 1 nehmen.
was stimmt nicht?
lg
petra
Anzeige
AW: Makro nur auf einige Spalten beziehen
15.02.2006 16:56:29
K.Rola
Hallo,

Sub so()
Tabelle1.[A:n] = Tabelle1.[A:n].Value
End Sub

Gruß K.Rola

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige