Office: Makros werden nicht mehr unter Ansicht->Makros angezeigt

Hias · 27. Februar 2018

Hallo Zusammen,

ich habe folgendes Problem:

Ich kopiere mit meinen Excel Makro eine Word-Datei speichere sie unter neuen Namen an einen anderen Ort.

Dies funktioniert soweit gut. Die .docm Datei wurde mit ihren Makros erfolgreich kopiert.

Nachdem ich aber folgendes Makro noch hinzugefügt habe, fehlen bei der neuen Word-Datei nun die Makros?

Wenn ich in der neuen Word-Datei auf Ansicht->Makros klicke ist das Fenster leer. Ganz weg sind sie jedoch auch nicht, ich kann Sie mir über "Organisieren" wieder holen.

Weiß jemand was hier falsch läuft und warum folgender Code diese Makros sozusagen entfernt/versteckt?

Code:

'Word Application
Set appWord = CreateObject("Word.Application")

'MS-Word sichtbar während das Makro läuft (True or False)
appWord.Visible = False

'Word-Dokument auswählen
Set docTest = appWord.Documents.Add(PfadTR & Filename)

With docTest
If .Bookmarks.Exists("PruefberichtNr") = True Then
.Bookmarks("PruefberichtNr").Range.Text = NummerTR & "_" & Kurzzeichen
End If

If .Bookmarks.Exists("PruefberichtNr1") = True Then
.Bookmarks("PruefberichtNr1").Range.Text = NummerTR & "_" & Kurzzeichen
End If

'Speichern und schließen
.SaveAs Filename:=PfadTR & Filename
.Close SaveChanges:=0

End With

Set docTest = Nothing
appWord.Quit
Set appWord = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank im Voraus!

Grüße Hias

:)

Hajo_Zi · 1. März 2018

Der Code ist kein Makro.
Da Fehlt
Sub .....

End Sub

Hias · 1. März 2018

Hallo Hajo_Zi,

der Code zeigt den Makroausschnitt welches die Probleme bereitet.

Hier ist der gesamte Code:

Code:

Sub NeuerTR()

Dim VorlageTR As String
Dim PfadTRVorlage As String
Dim PfadTR As String
Dim Filename As String
Dim Kurzzeichen As String
Dim NummerTR As String

'Pfad Prüfberichtsvorlagen
PfadTRVorlage = ""

'Pfad der Prüfberichte
PfadTR = ""

On Error GoTo ENDE

'Auswahlfenster um die Wordvorlage auszuwählen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = PfadTRVorlage
.Title = "Bitte wählen die richtige Prüfberichtsvorlage aus"
.InitialView = msoFileDialogViewDetails
If .Show Then
VorlageTR = .SelectedItems(1)
Else
MsgBox "Nichts ausgewählt!"
Exit Sub

End If
End With

Do
Kurzzeichen = InputBox("Bitte geben Sie Ihr Kurzzeichen ein" & Chr(13) & Chr(13) & "Format: Großbuchstaben", "Eingabe")
If StrPtr(Kurzzeichen) = 0 Then Exit Sub 'Abbrechen gedrückt
If Trim$(Kurzzeichen) = "" Then
MsgBox "Nichts eingegeben!"
Else
Exit Do
End If
Loop

Do
NummerTR = InputBox("Bitte geben Sie die Prüfberichtsnummer ein", "Eingabe")
If StrPtr(NummerTR) = 0 Then Exit Sub 'Abbrechen gedrückt
If Trim$(NummerTR) = "" Then
MsgBox "Nichts eingegeben!"
Else
Exit Do
End If
Loop

Filename = NummerTR & "_" & Kurzzeichen & "_rev0_Draft.docm"

If Dir(PfadTR & Filename) "" Then
MsgBox "Prüfbericht mit den Namen: " & Filename & " ist bereits vorhanden!"
Exit Sub

Else

End If

Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFile VorlageTR, PfadTR & Filename, True

Sheets("Hauptansicht").Select
Range("A50000").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaLocal = NummerTR

Range("B50000").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaLocal = Kurzzeichen

'Schreibschutz Attribute deaktivieren
Dim fso As Object
Dim f As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(PfadTR & Filename)

If f.Attributes > 0 Then
If f.Attributes Mod 2 = 1 Then 'wenn Schreibschutz aktiv...
f.Attributes = f.Attributes - 1 '...deaktivieren
End If
End If

'TR öffnen, bezeichnen und schließen
'Word Application
Set appWord = CreateObject("Word.Application")

'MS-Word sichtbar während das Makro läuft (True or False)
appWord.Visible = False

'Word-Dokument auswählen
Set docTest = appWord.Documents.Add(PfadTR & Filename)

With docTest
If .Bookmarks.Exists("PruefberichtNr") = True Then
.Bookmarks("PruefberichtNr").Range.Text = NummerTR & "_" & Kurzzeichen
End If

If .Bookmarks.Exists("PruefberichtNr1") = True Then
.Bookmarks("PruefberichtNr1").Range.Text = NummerTR & "_" & Kurzzeichen
End If

'Speichern und schließen
.SaveAs Filename:=PfadTR & Filename
.Close SaveChanges:=0

End With

Set docTest = Nothing
appWord.Quit
Set appWord = Nothing

MsgBox "Prüfbericht Nr. " & Filename & " wurde erstellt."

Exit Sub

ENDE:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

Hajo_Zi · 1. März 2018

das Makro wird bei mir angezeigt.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

Hias · 1. März 2018

Guten Morgen,

anbei das File.

Ich habe heute morgen nach den PC-Neustart es noch einmal ausprobiert.
Nun waren die Makros wieder da.

Kann es mir im Moment leider nicht erklären, was da los war.

Ich werde mit dem ganzen noch alle Möglichkeiten durchspielen und mich melden wenn mir etwas auffällt.

Grüße
Hias

haklesoft · 1. März 2018

Hallo Hias,

Zwischenfrage: warum arbeitest Du mit den Word-Dateien nicht auf die "übliche/typische/normale" Art, in dem Du eine echte Vorlagendatei (*.dotm") per appWord.Documents.Add öffnest und das daraus resultierende Dokument als *.docx ohne Makros speicherst? In einer lokalen Umgebung stehen die Makros der Vorlage dennoch in jedem dieser Dokumente immer zur Verfügung.

Hias · 1. März 2018

Hallo haklesoft,

heißt dass, wenn ich mit einer .dotm Vorlage eine .docx Dateie erzeuge, kann ich in der .docx trotzdem die Makros benutzen, weil er auf die Vorlage zurückgreift?

Das wusste ich nicht. Macht aber die Sache für mich sehr viel einfacher!

Wie kann ich das Excel Makro so abändern dass er nicht die .docm Vorlage kopiert, verschiebt und umbenennt sondern

Die .dotm Vorlage öffnet und als .docx speichert unter mit anderen Dateinamen?

Viele Grüße
Hias

haklesoft · 1. März 2018

Hallo Hias,

heißt dass, wenn ich mit einer .dotm Vorlage eine .docx Dateie erzeuge, kann ich in der .docx trotzdem die Makros benutzen, weil er auf die Vorlage zurückgreift?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja.

Wie kann ich das Excel Makro so abändern dass er nicht die .docm Vorlage kopiert, verschiebt und umbenennt sondern die .dotm Vorlage öffnet und als .docx speichert unter mit anderen Dateinamen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du erstellst eine echte Vorlage aus Deinem bisherigen .docm. Die Vorlage legst Du in einem der vertrauenswürdigen Vorlagenverzeichnisse ab.
Den Dateidialog stellst Du auf den Template-Pfad um. Das Kopieren und die Schreibschutzprüfung brauchst Du nicht mehr. Das neu erstellte Dokument speicherst Du mit .SaveAs oder .SaveAs2(> Office 2007) unter dem festgelegten Zielpfad, sofern die Datei darin noch nicht existiert.

Diese Arbeitsweise hat Vorteile: bei anstehenden Makroänderungen muss nur die Vorlage geändert werden. Es gibt keine veralteteten Makros in den Dokumenten. Die Dokumente verstoßen nicht mehr gegen Sicherheitsbedenken und können problemlos extern weitergegeben werden.

Hias · 1. März 2018

Hallo haklesoft,

die Vorteile überzeugen, muss ich sagen.

Ich werde dies mal versuchen und mich spätestens am Montag wieder melden.

Vielen Dank für deine schnelle Hilfe und die guten Tipps! Hat mir sehr geholfen.

Grüße und schönes Wochenende
Hias

Hias · 4. März 2018

Hallo zusammen,

habe nun das Makro verändert, sodass er die .dotm Vorlage öffnet und unter neuen Dateinamen abspeichert.

Wenn ich Sie unter .docm abspeichere funktioniert alles super, wenn ich sie als .docx Datei abspeichere, kommt beim öffnen die Fehlermeldung:

Datei kann nicht geöffnet werden, da der Inhalt Probleme verursacht.

Wie kann das sein?

Ich habe im Code die Änderung von .docm zu .docx rot gekennzeichnet.

Code:

Sub NeuerTR()

Dim VorlageTR As String
Dim PfadTRVorlage As String
Dim PfadTR As String
Dim Filename As String
Dim Kurzzeichen As String
Dim NummerTR As String
Dim Eingabewert As Byte
Dim lastNummerTR As String

'MsgBox ("Noch nicht in Betrieb!")
'Exit Sub

'Abfrage
Eingabewert = MsgBox("Neuen Prüfbericht anlegen?", vbOKCancel, "Fortfahren")
If Eingabewert = vbOK Then

ElseIf Eingabewert = vbCancel Then
MsgBox "Abbruch"
Exit Sub
Else
'MsgBox ("")
End If

'Pfad Prüfberichtsvorlagen
PfadTRVorlage = ""

'Pfad der Prüfberichte
PfadTR = ""

On Error GoTo ENDE

'Auswahlfenster um die Wordvorlage auszuwählen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = PfadTRVorlage
.Title = "Bitte wählen die richtige Prüfberichtsvorlage aus"
.InitialView = msoFileDialogViewDetails
If .Show Then
VorlageTR = .SelectedItems(1)
Else
MsgBox "Nichts ausgewählt!"
Exit Sub

End If
End With

'Kurzzeichen wird abgefragt und unter Variablen gespeichert
Do
Kurzzeichen = InputBox("Bitte geben Sie Ihr Kurzzeichen ein" & Chr(13) & Chr(13) & "Format: Großbuchstaben", "Eingabe")
If StrPtr(Kurzzeichen) = 0 Then Exit Sub 'Abbrechen gedrückt
If Trim$(Kurzzeichen) = "" Then
MsgBox "Nichts eingegeben!"
Else
Exit Do
End If
Loop

'Eintrag ins Prüfberichteheft setzen
Sheets("Hauptansicht").Select

'Ins Prüfberichteheft die Prüfberichtsnummer eintragen
lastNummerTR = Range("A50000").End(xlUp).Value
Range("A50000").End(xlUp).Offset(1, 0).Select
NummerTR = lastNummerTR + 1
ActiveCell.FormulaLocal = NummerTR

'Ins Prüfberichteheft das Kurzzeichen eintragen
Range("B50000").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaLocal = Kurzzeichen

''Wordvorlage (.docm) kopieren und benennen - wird nicht mehr benötigt, da eine .dotm Vorlage benutzt wird
'Set myFSO = CreateObject("Scripting.FileSystemObject")
'myFSO.CopyFile VorlageTR, PfadTR & Filename, True

Filename = NummerTR & "_" & Kurzzeichen & "_rev0_Draft.docm"

'Funktioniert nicht!
'Filename = NummerTR & "_" & Kurzzeichen & "_rev0_Draft.docx"

'Überprüfen, ob ein Prüfbericht mit diesen Namen schon existiert
If Dir(PfadTR & Filename) "" Then
MsgBox "Prüfbericht mit den Namen: " & Filename & " ist bereits vorhanden!"
Exit Sub

Else

End If

'VorlageTR öffnen und mit neuen Namen abspeichern

'TR öffnen, bezeichnen und schließen
'Word Application
Set appWord = CreateObject("Word.Application")

'MS-Word sichtbar während das Makro läuft (True or False)
appWord.Visible = False

'Word-Dokument auswählen
'Set docTest = appWord.Documents.Add(PfadTR & Filename)
Set docTest = appWord.Documents.Add(VorlageTR)

With docTest
If .Bookmarks.Exists("PruefberichtNr") = True Then
.Bookmarks("PruefberichtNr").Range.Text = NummerTR & "_" & Kurzzeichen
End If

If .Bookmarks.Exists("PruefberichtNr1") = True Then
.Bookmarks("PruefberichtNr1").Range.Text = NummerTR & "_" & Kurzzeichen
End If

'Speichern und schließen
.SaveAs Filename:=PfadTR & Filename
.Close SaveChanges:=0

End With

Set docTest = Nothing
appWord.Quit
Set appWord = Nothing

'Meldung zum Schluss
MsgBox "Prüfbericht Nr. " & Filename & " wurde erstellt."

Exit Sub

ENDE:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Hias

RPP63 · 4. März 2018

Moin!
Ungetestet:
Die .SaveAs-Methode hat ja noch Parameter!
Nur die Dateiendung (die übrigens gar nicht gebraucht wird) zu ändern reicht nicht!
Du musst schon das FileFormat:= mitgeben
https://msdn.microsoft.com/de-de/lib...aveformat.aspx

Gruß Ralf

Hias · 4. März 2018

Hallo Ralf,

genau das wars!

Super danke!

Grüße
Hias

Office: Makros werden nicht mehr unter Ansicht->Makros angezeigt

Makros werden nicht mehr unter Ansicht->Makros angezeigt

Makros werden nicht mehr unter Ansicht->Makros angezeigt

Makros werden nicht mehr unter Ansicht->Makros angezeigt

Makros werden nicht mehr unter Ansicht->Makros angezeigt

Makros werden nicht mehr unter Ansicht->Makros angezeigt - Similar Threads - Makros Ansicht >Makros

Wahrscheinlich nicht neu - Makros exportieren

Seit Win 11 Zugriffsprobleme bei Excel über Makros

Makros für csv-Export mit Anführungszeichen für ausgewählte Splaten

VBA Textbox macht was sie will

Workbook ohne Makros starten

Probleme mit Makros und Grafiken nach Umstieg von Word 2011 auf Office 365 (Mac)

Anpassen einer Ansicht in einer Access-app durch Erstellen eines Benutzeroberflächen Makros