VBA if then else mit ComboBoxen
23.11.2016 12:25:41
Addi
ich möchte im folgenden Coding in der "SaveAs-Zelle" einen bestimmten Dateinamen setzen - da wo die XXXXXX stehen.
Der Name soll sich aus den strDateiname1 und strDateiname2 ermitteln und zwar, wenn in strDateiname2 kein Wert steht soll strDateiname1 gewählt werden, ansonsten strDateiname2.
Sub DateiSpeichern()
Dim strTimeStamp As String
Dim strNeuerPfad As String
Dim strNeueDatei As String
strNeuerPfad = "C:\"
strDateiname1 = Sheet1.ComboBox1.Value
strDateiname2 = Sheet1.ComboBox2.Value
strTimeStamp = Format(Now, "yyyymmdd_hhmmss")
strRange = Range("A7:M" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Range("A1").Select
ActiveWorkbook.SaveAs strNeuerPfad & "\" & XXXXXX & strTimeStamp & ".xlsx", _
xlWorkbookDefault
ActiveWorkbook.Close
End Sub
Viele Grüße
Addi
Anzeige