VBA: Fehler beim Kopieren eines Bereiches
01.12.2012 00:03:05
WalterK
ich komm nicht drauf wo der Fehler ist.
Bei der letzten Zeile kommt der Fehlerhinweis: Anwendungs- und objektdefinierter Fehler.
Der Code sollte derzeit (wird noch erweitert) aus wsQuelle Zellen in das aktive Blatt kopieren. Das aktive Blatt ist das Blatt Namensbearbeitungstabelle und aus diesem Blatt wird der Code auch gestartet.
Sub NamenKorrigieren()
'Änderung dürfen nur im Blatt Namensbearbeitungstabelle durchgeführt werden, hier im Code muss _
nichts geändert werden.
Dim wsQuelleA As String 'QuelleA = 1. Quelle
Dim wsQuelleB As String 'QuelleB = 2. Quelle
Dim LeZeiQuA As Long 'Letzte Zeile in der angegebenen Spalte in der 1. Quelle
Dim LeZeiQuB As Long 'Letzte Zeile in der nagegebenen Spalte in der 2. Quelle
Dim SpaQuAVSNR As Long 'Spalte mit der VSNR in der 1. Quelle
Dim SpaQuBVSNR As Long 'Spalte mit der VSNR in der 2. Quelle
Dim SpaQuAName As Long 'Namensspalte in der 1. Quelle
Dim SpaQuBName As Long 'Namensspalte in der 2. Quelle
wsQuelleA = [B8] 'String aus Zelle auslesen
wsQuelleB = [B16] 'String aus Zelle auslesen
SpaQuAVSNR = Range("B9") 'Zahl aus Zelle auslesen
SpaQuBVSNR = Range("B17") 'Zahl aus Zelle auslesen
SpaQuAName = Range("B10") 'Zahl aus Zelle auslesen
SpaQuBName = Range("B18") 'Zahl aus Zelle auslesen
LeZeiQuA = Worksheets(wsQuelleA).Cells(Rows.Count, SpaQuAVSNR).End(xlUp).Row
LeZeiQuB = Worksheets(wsQuelleB).Cells(Rows.Count, SpaQuBVSNR).End(xlUp).Row
Worksheets(wsQuelleA).Range(Cells(3, SpaQuAVSNR), Cells(LeZeiQuA, SpaQuAVSNR)).Copy _
ActiveSheet.Range(Cells(3, 10), Cells(LeZeiQuA, 10))
End Sub