for each rngzelle...

[snb]

Antwort auf #1

Statt:

Code:

For Each rngZelle In  Range("B2F20"). SpecialCells(xlCellTypeFormulas)
    rngZelle.Value = rngZelle
Next rngZelle

Verwende

Code:

  sn=Range("B2:F20")
  Range("B2:F20")=sn

[xiphias]

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

[xiphias]

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
  Meldung.doc (Größe: 33 KB / Downloads: 0)

[BoskoBiati]

Ja,

als xlsm speichern.

[schauan]

Hallöchen,

könnte auch mit Application.DisplayAlerts = False funktionieren. Allerdings sind die Makros dann auch weg.

[xiphias]

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??

[schauan]

Hallöchen,

na als Makro
Ansonsten, pdf gibt es bei Speichern unter ...

[xiphias]

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

[schauan]

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

[xiphias]

Aha, danke.
habe mal zum testen die .xlsx in .pdf geändert. Aber er speichert immernoch in .xlsx