ich benutze eine Vorlagedatei um Diese unter zuhilfenahme verschiedener Combo- und Textboxen unter anderen Namen abzuspeichern.
Bei diesem speichern sind nur der Teil des Inhaltes der Textboxen unterschiedlich.
Bisher benutze ich 15 CommandButtons zum speichern. Kann ich diese Vorgänge in einem CommandButton zusammenführen?
Bisher speichere ich die Kopien so:
Private Sub CommandButton2_Click()
Dim sFileName As String
Application.DisplayAlerts = True
Call externe_Verknüpfungen_entfernen
Sheets("Anwesenheit").Range("H5").Value = TextBox3.Text
If ComboBox15.Value "" And TextBox3.Text "" Then
sFileName = ActiveWorkbook.Path & "\" & (ComboBox19.Value & TextBox3.Text & ComboBox15. _
Value) & ".xlsb"
If Dir(sFileName) "" Then
If MsgBox("Datei bereits vorhanden!" & vbLf & "Überschreiben?", vbYesNo, "Gebe bekannt ... _
_") = vbYes Then
Kill sFileName
ActiveWorkbook.SaveCopyAs sFileName
Else
MsgBox "Datei wurde nicht gespeichert."
End If
Else
ActiveWorkbook.SaveCopyAs sFileName
End If
End If
End Sub
und
Private Sub CommandButton3_Click()
Dim sFileName As String
Application.DisplayAlerts = True
Sheets("Anwesenheit").Range("H5").Value = TextBox4.Text
If ComboBox15.Value "" And TextBox4.Text "" Then
sFileName = ActiveWorkbook.Path & "\" & (ComboBox19.Value & TextBox4.Text & ComboBox15. _
Value) & ".xlsb"
If Dir(sFileName) "" Then
If MsgBox("Datei bereits vorhanden!" & vbLf & "Überschreiben?", vbYesNo, "Gebe bekannt ... _
_") = vbYes Then
Kill sFileName
ActiveWorkbook.SaveCopyAs sFileName
Else
MsgBox "Datei wurde nicht gespeichert."
End If
Else
ActiveWorkbook.SaveCopyAs sFileName
End If
End If
End Sub
usw.
Habe von VBA nicht die Ahnung.
Kann mir bitte Jemand weiterhelfen.
Danke fürs lesen und die Hilfe!
mfg, Andreas