Makro in Symbolleiste sucht eine andere Datei?

Hallo,
ich habe das Problem, das ich einen Computer neu installieren musste. Ich hatte zum Glück meinen Andwendungsdatenordner gesichert.
Wenn ich nun aber Excel aufrufe und ein Makro starten will bekomme ich die Fehlermeldung
"Auf die Datei konnte nicht zugegriffen werden. Versuchen Sie folgende Vorschläge..."
Nun bin ich ratlos, durch die Google-Suche habe ich einen Eintrag von 2004 entdeckt, der die ganze fehlermeldung enthält, nur hilft mir das was ich dort lesen konnte nicht weiter. Das Makro hat ein Kumpel erstellt der nicht mehr greifbar ist. Ich selbst habe von der Materie keine Ahnung, brauche aber diese Makros dringend.
Ich habe da was von einem Pfad gelesen, kann man den eventuell abändern?
Ich danke euch für eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
hier ist das Makro das mir diese Probleme bereitet:


Sub Makro1()
Selection.Insert Shift:=xlDown
End Sub


Sub Makro2()
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.ColumnWidth = 20
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.ColumnWidth = 50
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.ColumnWidth = 12
ActiveCell.Offset(0, -1).Range("A1").Activate
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "Aufmaß-Nr.: &B"
.CenterHeader = "Seite &S"
.RightHeader = "&D"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(1.5748031496063)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintNotes = False
'.PrintQuality = 180
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
End Sub


Sub Makro3()
ActiveCell.Offset(0, -1).Range("A1").Activate
Selection.Copy Destination:=ActiveCell.Offset(0, 1).Range("A1")
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Replace What:=":", Replacement:="=", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
ActiveCell.Offset(0, -1).Range("A1").Activate
End Sub


Sub Makro4()
Application.Goto Reference:="C3:C3"
Selection.NumberFormat = "#,##0.00"
'Selection.NumberFormat = "#,##0.00"
End Sub

dieses ist in der mappe.xlt enthalten. Wie kann ich den Pfad abändern?
Danke euch

Sub Makro2() ActiveCell.Columns("A:A").EntireColumn.Select Selection.ColumnWidth = 20 ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select Selection.ColumnWidth = 50 ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select Selection.ColumnWidth = 12 ActiveCell.Offset(0, -1).Range("A1").Activate With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "Aufmaß-Nr.: &B" .CenterHeader = "Seite &S" .RightHeader = "&D" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.78740157480315) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(1.5748031496063) .BottomMargin = Application.InchesToPoints(0.78740157480315) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) .PrintHeadings = False .PrintGridlines = False .PrintNotes = False '.PrintQuality = 180 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With End Sub

Sub Makro3() ActiveCell.Offset(0, -1).Range("A1").Activate Selection.Copy Destination:=ActiveCell.Offset(0, 1).Range("A1") ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.Replace What:=":", Replacement:="=", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False ActiveCell.Offset(0, -1).Range("A1").Activate End Sub

Beliebteste Forumthreads (12 Monate)

Makro in Symbolleiste sucht eine andere Datei?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro in Symbolleiste sucht eine andere Datei?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread