AW: Add-In will Mappe1.xlsx
13.11.2013 11:40:04
Chris
Danke erst mal für Deine Antwort!
Ich habe den Code zwar aufgezeichnet, aber ich bin mir sehr sicher, dass dort nicht auf die auf die Mappe1.xlsx verwiesen wird. Der Code folgt weiter unten.
Wahrscheinlich habe ich viel mehr ein Problem das Makro bzw. das Add-In allgmein für jede Datei zur Verfügung zu stellen. Wie müsste ich denn da vorgehen. Wie ja bereits geschrieben, habe ich ein Add-In mit dem Makro aktiviert und anschließend, dass Makro mit der Schnellstartleiste verknüpft. Das hat natürlich alles in der Mappe1.xlsx stattgefunden und ich glaube da liegt der Fehler.
Hier der Code:
Sub Konvertierung_BWA()
' Konvertierung_BWA Makro
Range("A1:N1").Select
Selection.Cut
Range("P5").Select
ActiveSheet.Paste
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
Rows("1:3").Select
Range("A3").Activate
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("M9").Select
ActiveWindow.SmallScroll Down:=-18
Range("A1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[2],1,3)"
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=MID(RC[1],5,50)"
Range("B2").Select
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A70"), Type:=xlFillDefault
Range("A1:A70").Select
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B45"), Type:=xlFillDefault
Range("B1:B45").Select
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFill Destination:=Range("B1:B70"), Type:=xlFillDefault
Range("B1:B70").Select
ActiveWindow.SmallScroll Down:=-96
Columns("A:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=-54
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").EntireColumn.AutoFit
Range("O3:AB3").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = True
Range("O3:AB4").Select
Range("O4").Activate
Selection.ClearContents
End Sub