ich verzweifle langsam, da meine Kenntnisse in der Excel Programmierung sehr gering sind versuche ich immer erst über Google eine Lösung zu finden. Aber oft will das was ich da dann mache nicht so Funktionieren wie es soll. Hier wieder ein Beispiel
Public Function DateiName(NeueDatei As String) As Boolean
Dim StrPfad As String, StrVerzeichnis As String, wbnew As Workbook
'Deiteiname NeueDatei ist immer eine Jaheszahl und der Monat wie 201611.xls
'hier wird aus dem Dateiname das Jahr selectiert was es als Verzeichnis gibt.
StrVerzeichnis = Left(NeueDatei, 4)
'hier wird mit einer weiteren Funtion -> AktuellerPfad = ActiveWorkbook.Path & "\" "" Then
DateiName = True
Else
DateiName = False
End If
'Ist die Datei nicht vorhanden soll sie erstellt werden
If DateiName = False Then
Set wbnew = Application.Workbooks.Add
'mit dem Befehl -> wbnew.SaveAs Filename = StrPfad, FileFormat:=xls
Fehler ist im Code bereits beschrieben. Was mache ich falsch. Bitte wenn es geht auch kurz erklären ich will ja was lernen. Vielen Dank für die Hilfe.
Karl-Heinz