Hallo zusammen,
ich hoffe ich bekomme gleich keine Nackenschläge weil es dutzende Beiträge dazu gibt, aber VBA war noch nie mein Ding und ich finde einfach nichts passendes.
Gesucht:
Ein kleines Makro, das mir ein Tabellenblatt abspeichert. Das funktioniert auch, aber ich möchte bei der Quell-Datei bleiben. Wenn ich das unten stehende Makro starte wird die Quelldatei geschlossen und es wird mir statt dessen die neue Excel-Datei angezeigt.
Wie bekomme ich das hin, das mir das aktive Tabellenblatt abgespeichert wird, und das mir weiter die Quell-Datei zum bearbeiten erhalten bleibt.
Danke für eure Hilfe
Holger
Sub plus1()
ActiveWorkbook.SaveAs Filename:=Cells(1, 13).Value
Range(„c6“).Value = Range(„c6“).Value + 1
End Sub
Hallo Holger,
ich hoffe ich bekomme gleich keine Nackenschläge weil es
dutzende Beiträge dazu gibt, aber VBA war noch nie mein Ding
und ich finde einfach nichts passendes.
man merkt, dass du offensichtlich keine Ahnung hast. Dein Code macht nicht mal das, was du uns beschreibst.
Gesucht:
Ein kleines Makro, das mir ein Tabellenblatt abspeichert.
Wie bekomme ich das hin, das mir das aktive Tabellenblatt
abgespeichert wird, und das mir weiter die Quell-Datei zum
bearbeiten erhalten bleibt.
Nimm mal diesen Code hier:
Sub SaveActiveSheet()
Dim strWS As String
Dim strFilename As String
strWS = ActiveSheet.Name
strFilename = Cells(1, 13).Value2
Sheets(strWS).Copy
ActiveWorkbook.SaveAs Filename:=strFilename
'schließt die gespeicherte Datei
ActiveWindow.Close
End Sub
Viel Erfolg!
MfG
Stephan
Hallo Stephan,
danke für deine Hilfe, funktioniert prima.
Holger