Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Teile einer Spalte übertragen

Forumthread: Teile einer Spalte übertragen

Teile einer Spalte übertragen
17.01.2008 14:46:57
Horst
Hallo,
ich muss mit VBA einen Teil* einer Spalte aus dem Blatt Blattname1 in das Blatt Blattname2 kopieren.
*ab Zeile 2 bis Zeile 500
Ich habe mir das ganze so gedacht: (QSpalte und ZSpalte enthällt die Spaltennummer)
Set QSpalteninhalt = Worksheets("Blattname1").Range(Cells(2, QSpalte), Cells(500, QSpalte))
Set ZSpalteninhalt = Worksheets("Blattname2").Range(Cells(2, ZSpalte), Cells(500, ZSpalte))
ZSpalteninhalt = QSpalteninhalt
Leidet geht es jedoch nicht.
Bei der Zeile Set ZSpalteninhalt erhalte ich "Anwendungs oder Objektorientierter Fehler"
Auch ZSpalteninhalt = QSpalteninhalt scheint nicht zu gehen
Es wäre toll, wenn mir jemand auf die Sprünge helfen könnte.
Gruß Horst

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teile einer Spalte übertragen
17.01.2008 15:17:00
Beverly
Hi Horst,
versuche es hiermit

With Worksheets("Blattname1")
.Range(.Cells(2, qSpalte), .Cells(500, qSpalte)).Copy Worksheets("Blattname2").Cells(2,  _
zSpalte)
End With




Anzeige
AW: Teile einer Spalte übertragen
17.01.2008 15:26:00
Peter
Hallo Horst,
so sollte es gehen:

Public Sub Kopieren()
Dim WkSh_Q    As Worksheet
Dim WkSh_Z    As Worksheet
Dim QSpalte   As Integer: QSpalte = 1
Dim ZSpalte   As Integer: ZSpalte = 7
Set WkSh_Q = Worksheets("Blattname1")
Set WkSh_Z = Worksheets("Blattname2")
WkSh_Q.Range(WkSh_Q.Cells(2, QSpalte), WkSh_Q.Cells(500, QSpalte)).Copy _
Destination:=WkSh_Z.Range(WkSh_Z.Cells(2, ZSpalte), WkSh_Z.Cells(500, ZSpalte))
End Sub


Gruß Peter

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige