warum läuft das unten stehende Makro (wehe jetzt lacht einer!!) mit Doppelklick aber nicht mit "Private Sub Worksheet_SelectionChange(ByVal Target As Range)", da bekomme ich immer einen Laufzeitfehler, weil die Pastemethode des Worksheetobjektes nicht ausgeführt werden kann.
Es wäre einfach eleganter, wenn das Makro nach Eingabe eines Wertes in eine Zelle automatisch laufen würde.
Für jeden Tip dankbar
Andreas
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("B8:C14").Select
Selection.Copy
Range("B19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B19:C25").Select
Selection.Sort Key1:=Range("C19"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B8:B14,D8:D14").Select
Range("D8").Activate
Selection.Copy
Range("B27").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B27:C33").Select
Selection.Sort Key1:=Range("C27"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B8:B14,E8:E14").Select
Range("E8").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("B35").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B35:C41").Select
Selection.Sort Key1:=Range("C35"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-9
Range("B8:B14,F8:F14").Select
Range("F8").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("B43").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B43:C49").Select
Selection.Sort Key1:=Range("C43"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-14
Range("B8:B14,G8:G14").Select
Range("G8").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=30
Range("B51").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B51:C57").Select
Selection.Sort Key1:=Range("C51"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-25
Range("B19:C22").Select
Selection.Copy
Range("D19").Select
ActiveSheet.Paste
Range("E23").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("B27:C30").Select
Selection.Copy
Range("D27").Select
ActiveSheet.Paste
Range("E31").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("E32").Select
ActiveWindow.SmallScroll Down:=10
Range("B35:C38").Select
Selection.Copy
Range("D35").Select
ActiveSheet.Paste
Range("E39").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("E40").Select
ActiveWindow.SmallScroll Down:=16
Range("B43:C46").Select
Selection.Copy
Range("D43").Select
ActiveSheet.Paste
Range("E47").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("B51:C54").Select
Selection.Copy
Range("D51").Select
ActiveSheet.Paste
Range("E55").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("E56").Select
ActiveWindow.SmallScroll Down:=-22
Range("D19:D22").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=22
Range("C60").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-19
Range("D27:D30").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=20
Range("D60:D63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-13
Range("D35:D38").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("E60:E63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-12
Range("D43:D46").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=10
Range("F60:F63").Select
ActiveSheet.Paste
Range("D51:D54").Select
Application.CutCopyMode = False
Selection.Copy
Range("G60:G63").Select
ActiveSheet.Paste
Range("C8").Select
Application.CutCopyMode = False
End Sub: