Zwischen verschiedenen Dateien wechseln
24.09.2013 08:33:41
kultnoob
habe hier ein kleines Verständnisproblem und bin gerade nicht in der Lage dieses zu lösen. Bevor ich nun Stunden verbringe dieses Problem zu lösen, bitte ich kurzerhand um Hilfe.
Zu meiner Frage/Problem.
In einer Datei ist eine Userform hinterlegt. Damit werden 2 Exceldateien geöffnet/geladen etc. Das klappt auch wunderbar. Um später auf die Datei zugreifen zu können, habe ich diese mit einem Namen versehen.
Auf der Userform ist ein Commandbutton, mit welcher man die Auswertung starten kann (sobald diese mal funktioniert).
Zuerst vergebe ich der Datei in welcher die Userform vorhanden ist einen Namen. Ebenso den Dateien in den jeweiligen Textboxen.
Nur wie wechsle ich zwischen den Dateien?
Anbei mein bisheriger Code.
Sub Auswertung_Click()
'Der Auswertungdatei den Namen JV = Jahresvergleich zuweisen
JV = ActiveWorkbook.Name
'Datei aus Textbox1 den Namen LJ = letztes Jahr zuweisen
Workbooks.Open Filename:=TextBox1.Value
LJ = ActiveWorkbook.Name
'Datei aus Textbox1 den Namen AJ = aktuelles Jahr zuweisen
Workbooks.Open Filename:=TextBox2.Value
AJ = ActiveWorkbook.Name
With Workbooks(JV).Sheets(2)
Sheets(2).Name = "TA's letztes Jahr"
End With
With Workbooks(JV).Sheets(3)
Sheets(3).Name = "TA's aktuelles Jahr"
End With
End Sub
Mir geht es nur darum, wie ich zwischen Dateien wechsle. Den Rest will ich selber machen. Mit diesem Code vergibt er einen Namen aber wechselt nicht zwischen den Dateien und somit wird in die Datei AJ die Bezeichnung der Sheets 2 und 3 geändert.
Besten Dank
Anzeige