Hallo Wander,
Ich habe eine Tabelle-A, dessen Daten ich teilweise in ein
Formular kontrolliere und mittels Formeln automatisch ergänze.
ok, ein Formular, dass die Tabelle-A als Datenbasis hat…
ist das noch so?
Die Dateien sollen die Kundennummer als Bezeichnung haben.
ist das noch so?
Funzt aber nicht 
ok, mal sehen …
* „Versand“ = Formularname = Me.Name
und wofür benötigst du den? Ich dachte die Kundennummer sollte der Dateiname sein?
Private Sub Befehl51_Click()
On Error GoTo Err_Befehl51_Click
Dim strPfad As String
strPfad = InputBox(„Bitte Pfad eingeben:“)
schön, den Pfad hast du nun…und der Dateiname, und die Dateiendung?
Screen.PreviousControl.SetFocus
warum das? ok, kannst du lassen.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, „Versand“, „strPfad“
Was soll der Formularname? Das ist keine Tabelle!! und nur StrPfad ist zu wenig, da du weder den Dateinamen noch die Dateiendung angibst.
Lese dir noch mal den Syntax in der Hilfe genau durch!!
Mit der Maus den Cursor auf TransferSpreadsheet setzen und F1 drücken 
also dein Syntax wäre dann z.B.:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, „Tabelle-A“, strPfad & „/“ & Me.Kundennummer & „.xls“, True
ggf. durch einen Filter zu erweitern.
'ich habe als Exportformat Excel9 angegeben! Wer will schon das alte 97er Format?
Exit_Befehl51_Click:
Exit Sub
Err_Befehl51_Click:
MsgBox Err.Description
Resume Exit_Befehl51_Click
End Sub
Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)