ich komme hier leider nicht weiter:
Ich möchte die Datei Kundenanalyse per VBA öffnen. Sie liegt im gleichen Ordner wie
die Excel-Datei, die das VBA-Programm enthält. Dieses soll die Datei Kundenanalyse öffnen, aus den darin enthaltenen Daten neue Dateien erzeugen und diese dann später wieder im gleichen Ordner ablegen.
Jetzt ist es jedoch so, dass die Datei Kundenanalyse mal erkannt wird, mal nicht. Manchmal geht es, wenn ich beide Dateien so ca. 5 Mal öffne, speichere und wieder schließe. Keine Ahnung, warum. Ich denke, da ist ein Problem mit der Variable spfad. Könnt Ihr mir helfen und mir vorschlagen, wie der Code formuliert werden muss?
Besten Dank bereits im Voraus.
Freundliche Grüße,
Heidi
Option Explicit
Private wbKundenanalyse As Workbook, wksKundenanalyse As Worksheet, wksKundenanalyseneu As Worksheet
Private sPfad As String, sFormel As StringPrivate wbAusgang As Workbook
Private wbVKGAneu As Workbook, wksVKGAneu As Worksheet
Private StatusTxt As String
Private lSpalteRC As Long 'Spaltennummer für Regionalzentrum
Private lSpalteKB As Long 'Spaltennummer für Kundenberater
Sub Vereinzeln()
lSpalteRC = 1
lSpalteKB = 3
Application.StatusBar = False
Dim sEingabe As String
sEingabe = InputBox(prompt:="Für welches Jahr und welchen Monat (JJJJ-MM) möchten Sie die Verkaufsgebietsanalysen erstellen?", _
Title:="Verkaufsgebietsanlysen erstellen - Jahr und Monat", Default:=Format(Date, "YYYY-MM"))
If sEingabe = "" Then GoTo Beenden
Application.ScreenUpdating = False
Application.StatusBar = "Kundenanalyse wird geöffnet ..."
Set wbKundenanalyse = Workbooks.Open(Filename:=sPfad & "Kundenanalyse.xlsx", ReadOnly:=False)
Set wksKundenanalyse = wbKundenanalyse.Worksheets(1) 'Tabelle mit den Rohdaten
'Verzeichnis der Dateien
sPfad = wbKundenanalyse.Path & Application.PathSeparator