vielleicht kann mir ja jemand von euch weiterhelfen. Vorab für mich ist VBA sehr neu :/
Ich habe eine Excel-Datei mit 50 Formularen. Jetzt benötige ich alle einzelnen Tabellenblätter separat, welche ausgefüllt wurden(es werden nicht immer alle ausgefüllt).
Nun wollte ich per Makro (Button drücken), dass jedes Tabellenblatt an einem Bestimmten Ort abgespeichert wird. z.B. C:\Benutzer\xy\Documents\Excel\. Der Name der einzelnen Dateien soll immer aus dem Tabellenblattnamen_Inhalt Zelle C10_ZelleC20 bestehen. Soweit bin ich bereits gekommen.
Dazu sollten nun nur die Tabellenblätter neu gespeichert werden, welche in Zelle X16:Z16(verbundene Zellen) einen bestimmten Wert haben.
Ab diesem Punkt finde ich absolut nichts im Internet :/
Hier mal mein Code:
Sub Speichern()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Copy
ActiveWorkbook.SaveAs Filename:="c:\Benutzer\Documents\Test\" & "C12" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next WsTabelle
End Sub
Ich hatte noch etwas mit der If Bedingung "gebastelt", aber mehr schlecht als recht. Das erspare ich euch lieber :DIch danke euch jetzt schon sehr!! :)