werte werden falsch kopiert
25.11.2003 17:50:40
marc
ich war mir sicher, dass ich alles korrekt geschrieben habe und am Ende
musste ich feststellen, dass meine Werte werden aus dem falschen Blatt kopiert
und in falsche Zeile eingefügt.
Ich will aus dem Blatt("Werte").Range("D7:G11") kopieren
und in einen neuen Workbook zB: Blatt("QAlarm_190_2.xls").Range("S7") einfügen
marc.
Sub Gr_Exp_Step4()
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim c As Range
Worksheets("Aus.Gr").Activate
If [B7].Value = "" Then
Sheets(3).Range("B7:B9") = Sheets(2).Range("D9:D13").Value
Sheets(3).Range("C7:C9") = Sheets(2).Range("C9:C13").Value
Sheets(3).Range("D7:D9") = Sheets(2).Range("G9:G13").Value
Sheets(3).Range("E7:E9") = Sheets(2).Range("H9:H13").Value
Sheets(3).Range("F7:F9") = Sheets(2).Range("I9:I13").Value
Sheets(3).Range("G7:G9") = Sheets(2).Range("J9:J13").Value
Sheets(3).Range("G11") = Sheets(2).Range("H5").Value
End If
Select Case wb.Worksheets("2").Range("A7")
Case Is = "1901"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_190_1.xls")
Worksheets("Q_Alarm190.1").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1902"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_190_2.xls")
Worksheets("Q_Alarm190.2").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1903"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_190_3.xls")
Worksheets("Q_Alarm190.3").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1931"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_193_1.xls")
Worksheets("Q_Alarm193.1").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1932"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_193_2.xls")
Worksheets("Q_Alarm193.2").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1932"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_193_2.xls")
Worksheets("Q_Alarm193.2").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1933"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_193_3.xls")
Worksheets("Q_Alarm193.3").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
Case Is = "1934"
Range("D7:G11").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_193_4.xls")
Worksheets("Q_Alarm193.4").Activate
Range("S7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A1").Activate
End Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Worksheets("Aus.Gr").Activate
End Sub