Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - dr-mage

Seiten: [1]
1
Excel / Antw: Tabellenblatt abspeichern mit Werten statt Formeln
« am: Januar 22, 2013, 08:41:03 Vormittag »
Habs selbst rausgefunden.....

Hier der vollständigkeit halber nochmal das ganze Skript (den kompletten Pfad hab ich mal anonymisiert):
Sub Speichern()
Dim neuname As String, Pfad As String
Pfad = "XXXX\Ansätze\"
neuname = Pfad & Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
Sheets(2).Copy
ActiveSheet.UsedRange.Copy
Application.DisplayAlerts = False
Range("A1").PasteSpecial Paste:=xlValues
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs neuname
ActiveWorkbook.Close
End Sub

Danke nochmla an Karin, und das ganze kann als gelöst gesetzt werden.
Gruß Marco

2
Excel / Antw: Tabellenblatt abspeichern mit Werten statt Formeln
« am: Januar 22, 2013, 08:36:12 Vormittag »
Hallo und danke erst einmal für die schnelle und gute Hilfe.
Es klappt prima. Nur noch eine letzte Frage, kann ich die Frage ob er den Zielbereich überschreiben soll (beim Paste) per Skript unterdrücken oder quitieren?

Liebe Grüße
Marco

3
Excel / Tabellenblatt abspeichern mit Werten statt Formeln
« am: Januar 21, 2013, 13:37:39 Nachmittag »
Hallo Zusammen!

Ich bin absoluter VBA-Neuling und hab mir in mühsamer Forensuche ein Skript gebastelt, welches mir ein Tabellenblatt einzeln abspeichert unter dem Namen, den ich in Zelle "B4" angebe. Da in dem neuen Blatt aber noch Verweise auf meine Arbeitsmappe sind, die ich eventuell ändere, wollte ich fragen ob/wie man mein Skript ändern muss, damit es nur die Werte abspeichert.
http://www.office-fragen.de/index.php/topic,429.msg720.html#msg720
Habe ich zwar gefunden, aber kann nicht wirklich was damit anfangen. Mein Skript lautet wie folgt: Sub Speichern()
Dim neuname As String
neuname = Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
Sheets(2).Copy
ActiveWorkbook.SaveAs neuname
ActiveWorkbook.Close
End Sub

Danke schonmal für die Hilfe!

Gruß Marco

Seiten: [1]