Ich bekomme es einfach nicht hin.
Ich habe 2 Makros und möchte diese als ein Makro zusammenfügen, aber irgend etwas mache ich falsch.
Ich hoffe Ihr habt einen Rat für mich.
Makro 1
Private Sub Worksheet_Deactivate()
Sheets("Piepser").Range("B3:D71").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Makro 2
Sub Pfeil()
'
' Pfeil Makro
' Makro am 07.05.2008 von Wolfgang aufgezeichnet
'
'
ActiveSheet.Shapes("AutoShape 12").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("AutoShape 11").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("AutoShape 22").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("AutoShape 21").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("AutoShape 24").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("AutoShape 23").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Range("A3").Select
End Sub
Makro 2 sollte in Makro 1 eingebunden werden.
Wie müsste das Makro dann aussehen?
Jetzt schon mal Danke für Eure Hilfe
Gruß Wolfgang