Startdatei Zellen Kopieren in Zieldatei
21.01.2004 16:41:40
Daniel
ich habe immer noch ein Problem beim kopieren eines Bereichs. Untenstehender Code funktioniert, die Daten werden in die Zellen eingefügt, verschwinden aber anschliessend wieder, warum?
Gruss Daniel
'* Definieren der Variablen
Dim xlsArbeitsmappe As Workbook, Dim xlsTabBlatt As Worksheet,
Dim xlsCell As Range, xlsBereich As Range, xlsTabBlatt_ As Worksheet
Dim xlsBereich_ As Range, ArbeitsmappenPfad As String,
Dim blnDateiVorhanden As Boolean, blnDateiGeoeffnet As Boolean
Const cnstDrive = "A:\"
Const cnstDatei = "RS_BAKT_.xls"
'* Aufruf der entsprechenden Arbeitsmappe
ChDrive cnstDrive
On Error Resume Next
Workbooks.Open cnstDatei
Set xlsArbeitsmappe = Workbooks(cnstDatei)
Set xlsTabBlatt = xlsArbeitsmappe.Worksheets("Daten RS")
Set xlsBereich = xlsTabBlatt.Range("B5:G5")
xlsBereich.Copy
Set xlsArbeitsmappe = Application.Workbooks("Abes_inf_")
Set xlsTabBlatt = xlsArbeitsmappe.Worksheets("1")
Set xlsBereich_ = xlsTabBlatt.Range("B5") ':G5")
xlsTabBlatt.Paste
Application.CutCopyMode = False