VBA Command zum speichern des aktuellen Datenblatts

Question

Hallo Liebe Community,

arbeite gerade an einem Projekt, das aus mehreren Arbeitsblättern besteht. Auf Blatt 1 sind mehrere Checkboxen, die dort zusammengezählt werden. In Arbeitsblatt 2 werden diese dann in einer Tabelle eingetragen.
Meine Bitte an euch nun, da dies meine VBA Kenntnisse um ein Vielfaches übersteigt: wie müsste der Code für eine VBA Funktion lauten, die mir nur das Arbeitsblatt 2 (genannt "Auswertung") als neue Excel Datei in einem bestimmten Ordner speichert.
Sie sollte dabei den Dateinahme außerdem aus der Zelle "B3" des Auswerungsblatts haben.

Falls ich euch dann noch nicht zu viel zugemutet habe, stehe ich noch vor dem Problem, dass wenn ich diese Prozedur manuell mache, die Bezüge der "neuen Datei" auf das Arbeitsblatt von der "alten Datei" verweisen.
Wie speichert man die aktuellen Werte, statt die Funktionen?


Falls ihr mir damit helfen könntet wäre ich wirklich wahnsinnig dankbar!

Answer 1

Laufzeitfehler '1004'
Die Methode Breaklink für das Objekt '_Workbook' ist fehlgeschlagen.

Oh man ich blick leider gar nicht mehr durch :'D
Aber vielen Dank für deine Mühen xlKing :)

Answer 2

Hallo,

wenn ich mich auch noch einmischen darf :-).

Versuch es mal so:

Private Sub commandButton1_Click()
Dim strDateineu As String
Dim strDateialt As String

strDateialt = ThisWorkbook.FullName
strDateineu = "C:\Users\EnteErdnuss\Desktop\" & Range("B3").Value & ".xlsx"

Application.DisplayAlerts = False
ThisWorkbook.Worksheets("Auswertung").Copy
With ActiveWorkbook
.SaveAs Filename:=strDateineu, FileFormat:=xlOpenXMLWorkbook
.BreakLink Name:=strDateialt, Type:=xlExcelLinks
.Close (True)
End With
Application.DisplayAlerts = True
End Sub

Gruß

M.O.

P.S. Breaklink kannte ich bisher noch nicht; wieder etwas dazu gelernt.

Answer 3

Hallo M.O.

darfst du jederzeit gern. Manche Sachen bekommt man eben mit gemeinsamer Kraft besser hin. Manuell (also ohne Makro) geht Break Link übrigens über Daten - Verknüpfungen bearbeiten - Verknüpfung löschen.

Gruß Mr. K.

Answer 4

Hallo Mr. K,

danke :-). Die manuelle Entfernung kannte ich, nur der VBA-Befehl war mir fremd. ich hätte die Daten kopiert und als Werte wieder eingefügt. Aber so ist es kürzer.

Gruß

M.O.

Answer 5

Works like a charm.
Mensch Leute ihr seid wirklich spitze! Vielen vielen Dank! :)