1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Hilfe bei einem Excel Makro

Discussion in 'Programmieren' started by iliajenia, Oct 4, 2013.

Thread Status:
Not open for further replies.
  1. iliajenia

    iliajenia ROM

    Hallo alle Zusammen

    ich bin ein leihe in Makro aufzeichnung von Excel und in VBA Programmierung.

    ich habe folgendes mit der Makro aufzeichnung in Excel aufgezeichnet und möchte das er es nicht immer an der selben stelle sondern immer hinten dran fortgeführt.

    Kann mir jemand helfen ich danke im Vorraus.

    Sub Back2()
    '
    ' Back2 Makro
    ' Makro am 04.10.2013 von Ilia aufgezeichnet
    '

    '
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Backplan 36KW").Select
    Sheets("Backplan 36KW").Copy Before:=Sheets(93)
    Sheets("Backplan 36KW (2)").Select
    Sheets("Backplan 36KW (2)").Move Before:=Sheets(95)
    Sheets("Backplan 36KW (2)").Select
    Sheets("Backplan 36KW (2)").Name = "Backplan 37KW"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "16.09.13 bis 22.09.13"
    Range("A2").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Lager_Apr (6)").Select
    Range("DZ2:DZ33").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-15
    Range("EB2").Select
    ActiveSheet.Paste
    Range("ED2").Select
    ActiveSheet.Paste
    Range("EF2").Select
    ActiveSheet.Paste
    Range("EH2").Select
    ActiveSheet.Paste
    Range("EJ2").Select
    ActiveSheet.Paste
    Range("EL2").Select
    ActiveSheet.Paste
    Range("EN2").Select
    ActiveSheet.Paste
    Range("EJ1:EK1").Select
    With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    Range("EN1:EO1").Select
    Selection.Interior.ColorIndex = xlNone
    Range("EB3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-129]"
    Range("EB3").Select
    Selection.AutoFill Destination:=Range("EB3:EB8"), Type:=xlFillDefault
    Range("EB3:EB8").Select
    Range("EB9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-129]"
    Range("EB9").Select
    Selection.AutoFill Destination:=Range("EB9:EB14"), Type:=xlFillDefault
    Range("EB9:EB14").Select
    Range("EB16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-129]"
    Range("EB16").Select
    Selection.AutoFill Destination:=Range("EB16:EB21"), Type:=xlFillDefault
    Range("EB16:EB21").Select
    Range("EB23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-129]"
    Range("EB23").Select
    Selection.AutoFill Destination:=Range("EB23:EB33"), Type:=xlFillDefault
    Range("EB23:EB33").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("ED3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-130]"
    Range("ED3").Select
    Selection.AutoFill Destination:=Range("ED3:ED8"), Type:=xlFillDefault
    Range("ED3:ED8").Select
    Range("ED9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-130]"
    Range("ED10").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("ED9").Select
    Selection.AutoFill Destination:=Range("ED9:ED14"), Type:=xlFillDefault
    Range("ED9:ED14").Select
    Range("ED16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-130]"
    Range("ED16").Select
    Selection.AutoFill Destination:=Range("ED16:ED21"), Type:=xlFillDefault
    Range("ED16:ED21").Select
    Range("ED23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-130]"
    Range("ED23").Select
    Selection.AutoFill Destination:=Range("ED23:ED33"), Type:=xlFillDefault
    Range("ED23:ED33").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("EF3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-131]"
    Range("EF3").Select
    Selection.AutoFill Destination:=Range("EF3:EF8"), Type:=xlFillDefault
    Range("EF3:EF8").Select
    Range("EF9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-131]"
    Range("EF9").Select
    Selection.AutoFill Destination:=Range("EF9:EF14"), Type:=xlFillDefault
    Range("EF9:EF14").Select
    Range("EF16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-131]"
    Range("EF16").Select
    Selection.AutoFill Destination:=Range("EF16:EF21"), Type:=xlFillDefault
    Range("EF16:EF21").Select
    Range("EF23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-131]"
    Range("EF24").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("EF23").Select
    Selection.AutoFill Destination:=Range("EF23:EF33"), Type:=xlFillDefault
    Range("EF23:EF33").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("EH3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-132]"
    Range("EH3").Select
    Selection.AutoFill Destination:=Range("EH3:EH9"), Type:=xlFillDefault
    Range("EH3:EH9").Select
    Range("EH9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-132]"
    Range("EH9").Select
    Selection.AutoFill Destination:=Range("EH9:EH14"), Type:=xlFillDefault
    Range("EH9:EH14").Select
    Range("EH16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-132]"
    Range("EH16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-132]"
    Range("EH16").Select
    Selection.AutoFill Destination:=Range("EH16:EH21"), Type:=xlFillDefault
    Range("EH16:EH21").Select
    Range("EH23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-132]"
    Range("EH23").Select
    Selection.AutoFill Destination:=Range("EH23:EH33"), Type:=xlFillDefault
    Range("EH23:EH33").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("EJ3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-133]"
    Range("EJ3").Select
    Selection.AutoFill Destination:=Range("EJ3:EJ8"), Type:=xlFillDefault
    Range("EJ3:EJ8").Select
    Range("EJ9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-133]"
    Range("EJ9").Select
    Selection.AutoFill Destination:=Range("EJ9:EJ14"), Type:=xlFillDefault
    Range("EJ9:EJ14").Select
    Range("EJ16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-133]"
    Range("EJ16").Select
    Selection.AutoFill Destination:=Range("EJ16:EJ21"), Type:=xlFillDefault
    Range("EJ16:EJ21").Select
    Range("EJ23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-133]"
    Range("EJ23").Select
    Selection.AutoFill Destination:=Range("EJ23:EJ33"), Type:=xlFillDefault
    Range("EJ23:EJ33").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("EL3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[-1]C[-134]"
    Range("EL3").Select
    Selection.AutoFill Destination:=Range("EL3:EL8"), Type:=xlFillDefault
    Range("EL3:EL8").Select
    Range("EL9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[7]C[-134]"
    Range("EL9").Select
    Selection.AutoFill Destination:=Range("EL9:EL14"), Type:=xlFillDefault
    Range("EL9:EL14").Select
    Range("EL16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-134]"
    Range("EL16").Select
    Selection.AutoFill Destination:=Range("EL16:EL21"), Type:=xlFillDefault
    Range("EL16:EL21").Select
    Range("EL23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 36KW'!R[12]C[-134]"
    Range("EL23").Select
    Selection.AutoFill Destination:=Range("EL23:EL33"), Type:=xlFillDefault
    Range("EL23:EL33").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("EN3").Select
    ActiveCell.FormulaR1C1 = "='Backplan 37KW'!R[-1]C[-142]"
    Range("EN3").Select
    Selection.AutoFill Destination:=Range("EN3:EN8"), Type:=xlFillDefault
    Range("EN3:EN8").Select
    Range("EN9").Select
    ActiveCell.FormulaR1C1 = "='Backplan 37KW'!R[7]C[-142]"
    Range("EN9").Select
    Selection.AutoFill Destination:=Range("EN9:EN14"), Type:=xlFillDefault
    Range("EN9:EN14").Select
    Range("EN16").Select
    ActiveCell.FormulaR1C1 = "='Backplan 37KW'!R[12]C[-142]"
    Range("EN16").Select
    Selection.AutoFill Destination:=Range("EN16:EN21"), Type:=xlFillDefault
    Range("EN16:EN21").Select
    Range("EN23").Select
    ActiveCell.FormulaR1C1 = "='Backplan 37KW'!R[12]C[-142]"
    Range("EN23").Select
    Selection.AutoFill Destination:=Range("EN23:EN33"), Type:=xlFillDefault
    Range("EN23:EN33").Select
    Range("EM23").Select
    ActiveWindow.SmallScroll Down:=-18
    End Sub
     
    iliajenia, Oct 4, 2013
    #1
Thread Status:
Not open for further replies.

Share This Page