Bereich kopieren in andere Arbeismappe
21.01.2004 08:23:00
Daniel
ich habe folgendes problem. Ich sollte den Bereich (B5:G5) einer Arbeitsmappe in einer Tabelle in einen anderen Bereich (A4:A12) einer Arbeitsmappe kopieren, aber ich kriege keine kopierten daten, der entsprechende Bereich bleibt leer. was mache ich falsch?
'* Definieren der Variablen
Dim xlsArbeitsmappe As Workbook
Dim xlsTabBlatt As Worksheet
Dim xlsBereich As Range
Dim xlsTabBlatt_ As Worksheet
Dim xlsBereich_ As Range
Dim ArbeitsmappenPfad As String
Dim blnDateiVorhanden As Boolean
Dim blnDateiGeoeffnet As Boolean
Const cnstDrive = "A:\"
''Const cnstPfad = "A:\"
Const cnstDatei = "RS_BAKT_.xls"
'* Aufruf der entsprechenden Arbeitsmappe
ChDrive cnstDrive
'ChDir cnstPfad
On Error Resume Next
Workbooks.Open cnstDatei
Set xlsTabBlatt = Worksheets("Daten RS")
Set xlsBereich = xlsTabBlatt.Range("B5:G5")
Range("B5").Select
xlsBereich.Copy
Set xlsArbeitsmappe = Application.Workbooks("Abes_inf_")
Set xlsTabBlatt = xlsArbeitsmappe.Worksheets("1")
Set xlsBereich_ = xlsTabBlatt.Range("B5")
xlsBereich_.PasteSpecial Operation:=xlNone