Ich kann die kopierten Werte nicht einfügen
20.11.2003 12:29:21
marc
ich will eine Aufgabe automatisieren,
habe ein Vba-Code geschrieben und jetzt stehe ich vor dem Ende (im Programm) und kann nicht weiter.
Ich kann die kopierten werte nicht einfügen
ich will die kopierten Werte in die letzte/leere Spalte einfügen
der Spaltenanfang ist ("D") die werte werden 1x wöchentlich in
nächste leere Spalte eingetragen.
Sub ErrorExpToChart_Step2()
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim c As Range
Worksheets("Aus.Gr").Activate
If [G5] = "350" Then
Sheets(4).Range("C9") = Sheets(2).Range("C9").Value
Sheets(4).Range("D9") = Sheets(2).Range("G9").Value
Sheets(4).Range("E9") = Sheets(2).Range("H9").Value
Sheets(4).Range("F9") = Sheets(2).Range("I9").Value
Sheets(4).Range("G9") = Sheets(2).Range("J9").Value
Sheets(4).Range("H9") = Sheets(2).Range("H5").Value
End If
If [G5] = "212" Then
Sheets(4).Range("C11") = Sheets(2).Range("C9").Value
Sheets(4).Range("D11") = Sheets(2).Range("G9").Value
Sheets(4).Range("E11") = Sheets(2).Range("H9").Value
Sheets(4).Range("F11") = Sheets(2).Range("I9").Value
Sheets(4).Range("G11") = Sheets(2).Range("J9").Value
Sheets(4).Range("H11") = Sheets(2).Range("H5").Value
End If
If [G5] = "180" Then
Sheets(4).Range("C14") = Sheets(2).Range("C9").Value
Sheets(4).Range("D14") = Sheets(2).Range("G9").Value
Sheets(4).Range("E14") = Sheets(2).Range("H9").Value
Sheets(4).Range("F14") = Sheets(2).Range("I9").Value
Sheets(4).Range("G14") = Sheets(2).Range("J9").Value
Sheets(4).Range("H14") = Sheets(2).Range("H5").Value
End If
If [G5] = "230" Then
Sheets(4).Range("C7") = Sheets(2).Range("C9").Value
Sheets(4).Range("D7") = Sheets(2).Range("G9").Value
Sheets(4).Range("E7") = Sheets(2).Range("H9").Value
Sheets(4).Range("F7") = Sheets(2).Range("I9").Value
Sheets(4).Range("G7") = Sheets(2).Range("J9").Value
Sheets(4).Range("H7") = Sheets(2).Range("H5").Value
End If
If [G5] = "192" Then
Sheets(4).Range("C8") = Sheets(2).Range("C9").Value
Sheets(4).Range("D8") = Sheets(2).Range("G9").Value
Sheets(4).Range("E8") = Sheets(2).Range("H9").Value
Sheets(4).Range("F8") = Sheets(2).Range("I9").Value
Sheets(4).Range("G8") = Sheets(2).Range("J9").Value
Sheets(4).Range("H8") = Sheets(2).Range("H5").Value
End If
If [G5] = "149" Then
Sheets(4).Range("C10") = Sheets(2).Range("C9").Value
Sheets(4).Range("D10") = Sheets(2).Range("G9").Value
Sheets(4).Range("E10") = Sheets(2).Range("H9").Value
Sheets(4).Range("F10") = Sheets(2).Range("I9").Value
Sheets(4).Range("G10") = Sheets(2).Range("J9").Value
Sheets(4).Range("H10") = Sheets(2).Range("H5").Value
End If
If [G5] = "196" Then
Sheets(4).Range("C12") = Sheets(2).Range("C9").Value
Sheets(4).Range("D12") = Sheets(2).Range("G9").Value
Sheets(4).Range("E12") = Sheets(2).Range("H9").Value
Sheets(4).Range("F12") = Sheets(2).Range("I9").Value
Sheets(4).Range("G12") = Sheets(2).Range("J9").Value
Sheets(4).Range("H12") = Sheets(2).Range("H5").Value
End If
If [G5] = "190" Then
Sheets(4).Range("C13") = Sheets(2).Range("C9").Value
Sheets(4).Range("D13") = Sheets(2).Range("G9").Value
Sheets(4).Range("E13") = Sheets(2).Range("H9").Value
Sheets(4).Range("F13") = Sheets(2).Range("I9").Value
Sheets(4).Range("G13") = Sheets(2).Range("J9").Value
Sheets(4).Range("H13") = Sheets(2).Range("H5").Value
End If
Worksheets("QAL_Ges").Activate
Range("C7:H14").Copy
Workbooks.Open ("C:\Geradeauslauf\Q_Alarm\QAlarm_Ges.xls")
Worksheets("Q_AlarmTL_Info").Activate
Range("R7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("A4").Activate
Sheets("QA_DB").Activate
Range("D65536").End(xlUp).Offset(1, 0).Activate
Application.ScreenUpdating = False
Worksheets("Q_AlarmTL_Info").Activate
Range("W7:W14").Copy
'Fehler ich will die kopierten Werte in die letzte/leere Spalte einfügen
'der Spaltenanfang ist ("D") die werte werden 1x wöchentlich in
'nächste leere Spalte eingetragen
Worksheets("QA_DB").Activate
'ActiveCell.Offset(0, 0).PasteSpecial Paste:=Values
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Worksheets("Aus.Gr").Activate
End Sub