Ich hatte dir bereits geschrieben, wie du Bereiche löschst. Das mit den eingefügten Spalten ist viel aufwändiger, du musst schließlich irgendwo mitprotokollieren, wie und wo die Spalten eingefügt wurden. Das alles ersparst du dir durch eine Excelvorlage. Ich habe fertig.
Hallöchen,
1. Wenn der Kollege die Datei mit deaktivierten Makros öffnet, bearbeitet und speichert, hast Du 100% (Miss)Erfolg :22:
2. Das Speichern kann man, sofern Makros aktiviert sind, ganz einfach verhindern:
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Code:
Sub Makro5()
'
' Makro5 Makro
'
'
Dim Pfad As String, Dateiname As String
Dateiname = ActiveWorkbook.Range("G6")."-QS_geprueft" 'Blattname und Zelle anpassen
Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Bei der Zeile mit Dateiname haut der mir nen Fehler rein und es geht nicht weiter...ich möchte die aktuelle Mappenname als Name + den Zusatz aus Zelle G6 und einen eigenen Text eben
Hallöchen,
Dateiname = ActiveWorkbook.Range("G6")."-QS_geprueft" 'Blattname und Zelle anpassen
-->
Dateiname = ActiveWorkbook.Range("G6") & ".-QS_geprueft" 'Blattname und Zelle anpassen
bzw
Dateiname = ActiveWorkbook.Range("G6").Value & ".-QS_geprueft" 'Blattname und Zelle anpassen
Oh mann, egal welche Variante, ab der Zeile Dateiname haut markiert er die Zeile Gelb und es geht nicht weiter.
Der Code ist ansonsten unverändert
Auch Hallo,
da fehlt ja auch noch das Worksheet zwischendrin
Code:
Dateiname = ActiveWorkbook.Worksheets("Tabellenblattname").Range("G6") & ".-QS_geprueft"
Tabellenblattname auf den tatsächlichen abändern!
Ohje, aber ich wollte doch, dass der Name automatisch ermittelt wird, da der Mappenname sich ändert, je nach Produkt *wegduck*
Oder ich lasse den Mappenname raus und nur was in der Zelle steht+ Text.
Der Code wie oben funktioniert. allerdings ist der Dateiname jetzt "Falsch", wenn ich den Speicherort auswählen will, ist der Name leer
Hallo,
und wenn Du noch ein Value anhängst?
Code:
Dateiname = ActiveWorkbook.Worksheets("Tabellenblattname").Range("G6").Value & ".-QS_geprueft"
Hallöchen,
einfach
Dateiname = Range("G6").Value & ".-QS_geprueft"
oder wenn der Mappenname dazu soll
Dateiname = ActiveWorkbook.Name & ".-QS_geprueft"
oder wenn beides dazu soll
Dateiname = ActiveWorkbook.Name & Range("G6").Value & ".-QS_geprueft"
Okay, ja hat endlich geklappt. Keine Ahnung was das Problem war *wegduck*
Letzte Sache, dann bin ich komplett zufrieden:
mit meinem Code speichere ich die Excel File ja als pdf. ich kann dann wie gewünscht den Speicherort eingeben. ABER
Warum speichert er die Datei als Fehler.pdf Datei, wenn ich da auf ABBRECHEN drücke?
Was muss ich machen, dass er nicht speichert und die Datei nicht schließt, eben ABBRICHT?
Drücke ich vorher in meiner Msgbox auf Nein, dann bricht er ja auch wie gewünscht ab. Es geht nur noch um den Schritt, wenn er drauf und dran ist zu speichern, dass ich da machen kann was ich will, er speichert trotzdem.
Code:
Sub PDF_erstellen()
Dim Eingabewert As Byte
Eingabewert = MsgBox("Wurde das Teil vollständig gegprüft? /" & vbNewLine & "Has the part been completely checked?", vbQuestion + vbYesNo, "Prüfung beenden? / End Checking?")
If Eingabewert = vbYes Then
MsgBox "PDF wird erstellt, Eingaben werden unwiderruflich gelöscht! /" & vbNewLine & "PDF will be created and any inputs will be deleted!"
'
' PDF erstellen und Tabelle schließen - Makro
'
'
Dim Pfad As String, Dateiname As String
Dateiname = Range("G6") & ".-QS_geprueft" & ".pdf"
Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
ThisWorkbook.Close SaveChanges:=False
ElseIf Eingabewert = vbNo Then
MsgBox "Kein PDF erstellt. /" & vbNewLine & "No PDF created."
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub