Makro löschen

deen_90 · 22. Juli 2008

Hallo

So ich habe wieder einmal ein Problem, ich hoffe das ist das letzte.
Wie kann ich das Makro löschen mit Code wenn ich das Excel File speichere. Er soll mir ebe keine Meldung mehr geben ob das Makro aktiviert werden soll oder nicht wenn ich die neue Datei aufmache.
Bis jetzt sieht der Code so aus. Ich hab mal gemacht das der Button gelöscht wird.Leider löscht er aber den Code nicht...

Code:

Sub Data()




End Sub

Private Sub CommandButton1_Click()

On Error Resume Next

Dim i
Dim j As Long

'FluxX öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\0-v_rs_rms_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'FluxX kopieren in Sheet log
    
    Windows("0-v_rs_rms_500.log").Activate
    Sheets("0-v_rs_rms_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("0-v_rs_rms_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'FluxX von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("B8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 2))
      i = i + 1
   Loop
  
Cells(i, 2).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("B9:B2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'FluxY öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\1-v_st_rms_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'FluxY kopieren in Sheet log
    
    Windows("1-v_st_rms_500.log").Activate
    Sheets("1-v_st_rms_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("1-v_st_rms_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'FluxY von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("C8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 3))
      i = i + 1
   Loop
  
Cells(i, 3).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("C9:C2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'----------------------------------------------------------------------------------

'RotorPosition öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\2-i_r_rms_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'RotorPosition kopieren in Sheet log
    
    Windows("2-i_r_rms_500.log").Activate
    Sheets("2-i_r_rms_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("2-i_r_rms_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'RotorPosition von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("D8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 4))
      i = i + 1
   Loop
  
Cells(i, 4).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("D9:D2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'VRS_CLS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\3-i_t_rms_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'VRS_CLS kopieren in Sheet log
    
    Windows("3-i_t_rms_500.log").Activate
    Sheets("3-i_t_rms_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("3-i_t_rms_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'VRS_CLS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("E8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 5))
      i = i + 1
   Loop
  
Cells(i, 5).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("E9:E2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'VST_CLS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\4-OverlapAngle_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'VST_CLS kopieren in Sheet log
    
    Windows("4-OverlapAngle_500.log").Activate
    Sheets("4-OverlapAngle_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("4-OverlapAngle_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'VST_CLS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("F8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 6))
      i = i + 1
   Loop
  
Cells(i, 6).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("F9:F2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'V_CLS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\5-OverlapTime_500.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'V_CLS kopieren in Sheet log
    
    Windows("5-OverlapTime_500.log").Activate
    Sheets("5-OverlapTime_500").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("5-OverlapTime_500.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'V_CLS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("G8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 7))
      i = i + 1
   Loop
  
Cells(i, 7).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("G9:G2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'VRS_CMS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\6-v_rs_rms_501.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'VRS_CMS kopieren in Sheet log
    
    Windows("6-v_rs_rms_501.log").Activate
    Sheets("6-v_rs_rms_501").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("6-v_rs_rms_501.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'VRS_CMS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("H8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 8))
      i = i + 1
   Loop
  
Cells(i, 8).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("H9:H2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'VST_CMS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\7-v_st_rms_501.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'VST_CMS kopieren in Sheet log
    
    Windows("7-v_st_rms_501.log").Activate
    Sheets("7-v_st_rms_501").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("7-v_st_rms_501.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'VST_CMS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("I8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 9))
      i = i + 1
   Loop
  
Cells(i, 9).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("I9:I2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'V_CMS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\8-Speed_501.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'V_CMS kopieren in Sheet log
    
    Windows("8-Speed_501.log").Activate
    Sheets("8-Speed_501").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("8-Speed_501.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'V_CMS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("J8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 10))
      i = i + 1
   Loop
  
Cells(i, 10).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("J9:J2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

'-----------------------------------------------------------------------------------

'IntegratorCLS öffnen
    
Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\9-OverlapAngle_501.log" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True


'IntegratorCLS kopieren in Sheet log
    
    Windows("9-OverlapAngle_501.log").Activate
    Sheets("9-OverlapAngle_501").Range("A:A").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("log").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00000E+00"
    Windows("9-OverlapAngle_501.log").Activate
    ActiveWorkbook.Close
    Sheets("Data").Select
    
'IntegratorCLS von log in Data kopieren

For j = 1 To 2000

If IsEmpty(Range("K8")) Then Exit Sub
   i = 8
   Do Until IsEmpty(Cells(i, 11))
      i = i + 1
   Loop
  
Cells(i, 11).FormulaR1C1 = Sheets("log").Cells(j, 1)

Next

'Formatieren

Sheets("Data").Range("K9:K2010").Select
Selection.NumberFormat = "0.00000E+00"

'Sheets "log" Inhalt löschen

Sheets("log").Select
Selection.Delete

Sheets("Data").Select

'-----------------------------------------------------------------------------------

'LOGs öffnen und speichern

Workbooks.OpenXML Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RowData\examples\2.AC800 PEC _ ConfigurableTransientRecorder_beforeSwitchOverToLciMode\AC800P~1.LOGs" _
        , LoadOption:=xlXmlLoadImportToList

Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\LOGs.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        
Application.DisplayAlerts = True

'Daten kopieren in Sheet "LOGs"

    Windows("LOGs.xls").Activate
    Sheets("Sheet1").Range("A:BG").Select
    Selection.Copy
    Windows("RecData_neu.xls").Activate
    Sheets("LOGs").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("LOGs").Range("A1").Select
    Windows("LOGs.xls").Activate
    ActiveWorkbook.Close
    
'qualified-name von Sheet "LOGs" zu Sheet "Data" kopieren

    Sheets("LOGs").Range("AI8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J1").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AI17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K1").Select
    ActiveSheet.Paste

'group von Sheet "LOGs" zu Sheet "Data" kopieren

    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J2").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AL17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K2").Select
    ActiveSheet.Paste
    
'data-type von Sheet "LOGs" zu Sheet "Data" kopieren

    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J3").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AN17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K3").Select
    ActiveSheet.Paste

'minValue von Sheet "LOGs" zu Sheet "Data" kopieren
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J4").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AP17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K4").Select
    ActiveSheet.Paste

'maxValue von Sheet "LOGs" zu Sheet "Data" kopieren

    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J5").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AQ17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K5").Select
    ActiveSheet.Paste
    
'unit von Sheet "LOGs" zu Sheet "Data" kopieren

    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR8").Select
    Selection.Copy
    Sheets("Data").Select
    Range("B7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR9").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR10").Select
    Selection.Copy
    Sheets("Data").Select
    Range("D7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR11").Select
    Selection.Copy
    Sheets("Data").Select
    Range("E7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR12").Select
    Selection.Copy
    Sheets("Data").Select
    Range("F7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR13").Select
    Selection.Copy
    Sheets("Data").Select
    Range("G7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR14").Select
    Selection.Copy
    Sheets("Data").Select
    Range("H7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR15").Select
    Selection.Copy
    Sheets("Data").Select
    Range("I7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR16").Select
    Selection.Copy
    Sheets("Data").Select
    Range("J7").Select
    ActiveSheet.Paste
    
    Sheets("LOGs").Activate
    Sheets("LOGs").Range("AR17").Select
    Selection.Copy
    Sheets("Data").Select
    Range("K7").Select
    ActiveSheet.Paste

'Inhalt von Sheet "LOGs" löschen

    Sheets("LOGs").Activate
    Sheets("LOGs").Range("A:BG").Select
    Selection.Delete
    Sheets("Data").Activate

'-----------------------------------------------------------------------------------

    ActiveSheet.Shapes("CommandButton1").Select
    Selection.Delete

'-----------------------------------------------------------------------------------

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\chdezau\My Documents\Aufgaben\Analyze REC\RecData_mitDaten.xls"

Application.DisplayAlerts = False
    
ActiveWorkbook.Close

'-----------------------------------------------------------------------------------

End Sub

NeMeSiS1987 · 22. Juli 2008

Schau mal hier: http://www.cpearson.com/excel/vbe.aspx
Allerdings muss jeder User bei dem das laufen soll die Schritte unter "Introduction" anwenden. Könnte bei vielen Usern u.U. problematisch werden.

Grüße
NeMeSiS

deen_90 · 23. Juli 2008

So, ich habe den Code gefunden um ein Modul zu löschen, aber wie kann ich jetzt auch noch machen, dass wenn ich die neue Datei öffne das keine Meldung kommt für die Makros.Ob eneable oder disable. Weiss du vielleicht wie ich das machen kann?

NeMeSiS1987 · 23. Juli 2008

Das liegt an deinen Sicherheitseinstellungen. Wenn du unter Tools->Macro->Security... "Low" auswählst wirst du nicht mehr gefragt.

deen_90 · 23. Juli 2008

Ja ich weiss, aber das darf ich eben nicht. Der, der die Datei braucht möchte das eben nicht.Gibt es eine andere Lösung?

NeMeSiS1987 · 23. Juli 2008

Du kannst dein Makro zertifizieren. Vielleicht hilft dir das: http://forum.chip.de/office/makro-zertifizieren-installieren-730771.html
Ansonsten musst du mal danach googlen. Gemacht habe ich das auch noch nicht.

Grüße

Makro löschen

deen_90

Erfahrenes Mitglied

NeMeSiS1987

Erfahrenes Mitglied

deen_90

Erfahrenes Mitglied

NeMeSiS1987

Erfahrenes Mitglied

deen_90

Erfahrenes Mitglied

NeMeSiS1987

Erfahrenes Mitglied

Neue Beiträge