VBA: Spalte in ein weiteres Tabellenblatt kopieren

Computer: Software & Programmierung Visual Basic
#1

Hallöchen,

habe folgendes Problem. Ich will in EXCEL eine Spalte von einem in ein zweites Tabellenblatt kopieren. Aber EXCEL meckert das das anfügen nicht klappt…

Folgender Code:

TabOriginal.Activate
iCol = 235 + iZaehler
Columns(iCol).Select
Selection.Copy
Sheets(TabOriginal.Cells(iZaehler, 235).Value).Select
Columns(„Q:Q“).Select
Selection.Insert Shift:=xlToRight ’ und hier meckert er

Warum nur?

Danke
CherryDip

#2

Warum nur?

Hallo CherryDip,

k.A.
vielleicht ist VBA wie mir schwindlig von dem ganzen unnötigen Select :smile:
Zu 99% braucht man kein Select.

Sub nn()
TabOriginal.Activate
iCol = 235 + iZaehler
With Sheets(TabOriginal.Cells(iZaehler, 235).Value)
 .Range("Q1").EntireColumn.Insert
 Columns(iCol).Copy Destination:=.Range("Q1")
End With
End Sub

Gruß
Reinhard

#3

Hi Reinhard,

daran merkt man dann also, das ich den Code aus 'nem aufgenommenen Makro hatte :wink:

Super bin dann selbst auf die Sache mit Copy und Destination gekommen aber deine Version ist noch viel besser… man kann ja immer soviel kürzen und ich vergeß das immer.

Danke