Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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




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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige