Hallo snb
Danke hat funktioniert, auch mit nur einer Zelle
Anbei die geänderte Datei
wo ist der unterschied von
sn = Range("AQ28")
Range("AQ28") = sn
zu
Range("AQ28").Value = Range("AQ28").Value
beide funktionieren. DANKE an beide
Hallo Zusammen ich habe in dieser Tabelle noch das Problem das beim speichern die Meldung kommt das ich das neue Blatt ohne Makro speichere.
Gibt es eine Möglichkeit das diese Meldung nicht kommt?
Danke[
attachment=46787]
Hallöchen,
könnte auch mit Application.DisplayAlerts = False funktionieren. Allerdings sind die Makros dann auch weg.
Das war mir klar, aber ich möchte auf dem abgelegten Blatt keine Makros mehr drauf haben.
Ach übrigens ist es auch Möglich direkt als PDF zu speichern???
Hallo
wie bindet man sowas ein?? Einfach eine Zeile mit dem text einfügen??
Hallöchen,
na als Makro
Ansonsten, pdf gibt es bei Speichern unter ...
Ja schön [img]
Dateiupload bitte im Forum! So geht es: Klick mich! 2/19.gif[/img] aber ich bin Makrosmäßig net gut. Hatte ja schon geschrieben das ich nur versuche fertige Makros zu verstehen.
Könntest du freundlicherweise mir vieleicht schreiben wie ich das als PDF schreibe??
ActiveSheet.PageSetup.BlackAndWhite = True 'druckt in SW
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Speichern unter geht in dem Fall nicht, weil ich ja auf Speichern und Drucken drücke :)
Meine Datei habe ich schon mal hochgeladen
Danke
Hallöchen,
in Deinem Code hast Du die Zeilen
If Dir(strpath & strfile & ".xlsx") = "" Then
ActiveWorkbook.SaveAs strpath & strfile
Else
MsgBox "Datei existiert bereits"
End If
Da fügst Du den Code ein, könnte dann z.B. so aussehen
Code:
If Dir(strpath & strfile & ".xlsx") = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strpath & strfile
Application.DisplayAlerts = True
Else
MsgBox "Datei existiert bereits"
End If
Und / Oder Du nimmst gleich das richtige Format
Code:
If Dir(strpath & strfile & ".xlsx") = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strpath & strfile, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
Else
MsgBox "Datei existiert bereits"
End If
Aha, danke.
habe mal zum testen die .xlsx in .pdf geändert. Aber er speichert immernoch in .xlsx