Das provoziert eine Rückfrage: SaveAs oder vielleicht besser SaveCopyAs?
Es ist nämlich so, dass SaveAs die Mappe am Ziel unter neuem Namen speichert wobei die originale ungespeichert zurückbleibt und man womöglich da landet wo man nicht hin will.
Das Problem ließe sich so lösen, obwohl dein Weg schon grundsätzlich OK ist.
Private Sub CommandButton1_Click()
Dim Dateiname As String
Dim Antwort As String
Dateiname = "Grp. " & Cells(17, 2) & "KW " & Cells(17, 11) & ".XLS"
Select Case Cells(17, 2)
Case 1
Antwort = "test"
Case 2
Antwort = "test2"
Case 3
Antwort = "test3"
Case Else
Exit Sub
End Select
ActiveWorkbook.SaveCopyAs ("G:\Personal\" & Antwort & "\" & Dateiname)
ActiveWorkbook.Close (False)
End Sub
Ich gebe hier in der Kürze zu bedenken, dass direktes SaveAs mit folgendem Close meine Bedenken um SaveCopyAs zerstreuen. Du mögest selbst überdenken welche Lösung dir in der Praxis nützlicher ist. (SaveAs wende ich bei ›Vorlagen‹ an, SaveCopyAs aber im Falle von Sicherungskopien, oder wenn ein Original weiterverarbeitet und verteilt wird.)
Ach ja; ich zähle Zeilen und Spalten gern numerisch statt Range und Strings zu verwenden. Ist wesentlich flexibler.
Eric March