Dateinamen automatisch erstellen

Forumthread: Dateinamen automatisch erstellen

29.08.2002 16:20:03

Andreas Koehler

Hi.

Ich habe folgendes Problem:

Ich habe eine Form mit 2 Textboxen. Nach dem Ausfuellen der Textboxen wird ein Button betaetigt. Daraufhin soll eine Excel-Datei in einen best. Ordner kopiert werden, und der Dateiname soll aus den Eingaben zusammengesetzt werden.

Beispiel:

TextBox1: "Text1"
TextBox2: "Text2"

Dateiname sollte lauten: "Text1_Text2.xls"

Das Kopieren mache ich mit der FileCopy-Anweisung.
Ich weiss eben nicht, wie ich den Dateinamen kreieren kann.

Bitte um Hilfe! Vielen Dank!

Andreas.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Dateinamen automatisch erstellen

29.08.2002 16:31:52

Axel
Re: Dateinamen automatisch erstellen

29.08.2002 18:36:17

Andreas Koehler

Re: Dateinamen automatisch erstellen

29.08.2002 16:31:52

Axel

Hallo,

ist es das vielleicht:

strFilename = Textbox1 & "_" & Textbox2 & ".xls"

Gruß
Axel

Re: Dateinamen automatisch erstellen

29.08.2002 18:36:17

Andreas Koehler

Hi Axel.

Genau das habe ich gesucht. Funktioniert super.

Vielen Dank.

Andreas.

Infobox / Tutorial

Dateinamen automatisch erstellen in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Dateinamen automatisch zu erstellen, folge diesen Schritten:

Erstelle eine UserForm in Excel mit zwei Textboxen (TextBox1 und TextBox2) und einem Button.

Füge den folgenden VBA-Code in das Codefenster der UserForm ein:

Private Sub CommandButton1_Click()
   Dim strFilename As String
   Dim sourceFile As String
   Dim destinationFolder As String

   ' Angabe der Quelldatei und Zielordner
   sourceFile = "C:\Path\To\Your\File.xls"
   destinationFolder = "C:\Path\To\Destination\Folder\"

   ' Erstelle den Dateinamen
   strFilename = TextBox1.Value & "_" & TextBox2.Value & ".xls"

   ' Kopiere die Datei mit dem neuen Namen
   FileCopy sourceFile, destinationFolder & strFilename
End Sub

Passe die Pfade zur Quelldatei und zum Zielordner an.
Fülle die Textboxen aus und klicke auf den Button, um die Datei zu kopieren.

Häufige Fehler und Lösungen

Fehler: "Datei nicht gefunden."
- Lösung: Überprüfe den Pfad zur Quelldatei und stelle sicher, dass die Datei existiert.
Fehler: "Zugriff verweigert."
- Lösung: Stelle sicher, dass Du die erforderlichen Berechtigungen für den Zielordner hast.

Alternative Methoden

Wenn Du lieber ohne VBA arbeiten möchtest, kannst Du auch die Funktion KONKATENIEREN oder & in Excel verwenden, um den Dateinamen in einer Zelle zu erstellen. Hier ein Beispiel:

=TextBox1 & "_" & TextBox2 & ".xls"

Du kannst dann diesen Namen manuell kopieren und die Datei entsprechend benennen.

Praktische Beispiele

Angenommen, Du hast folgende Eingaben:

TextBox1: "Bericht"
TextBox2: "2023"

Der resultierende Dateiname wäre dann:

Bericht_2023.xls

Dieser Name wird in den Zielordner kopiert, sobald Du den Button drückst.

Tipps für Profis

Nutze Fehlerbehandlung: Füge im VBA-Code eine Fehlerbehandlung hinzu, um mögliche Probleme beim Kopieren der Datei abzufangen.
```
On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
   MsgBox "Fehler: " & Err.Description
```
Erweitere die Logik: Du kannst die Logik erweitern, um weitere Texteingaben oder Datumsangaben in den Dateinamen einzufügen.

FAQ: Häufige Fragen

1. Kann ich das auch in Excel 2016 machen? Ja, das Tutorial ist für Excel 2016 und neuere Versionen geeignet.

2. Was, wenn ich mehr als zwei Textboxen habe? Du kannst einfach weitere Variablen hinzufügen und die Logik entsprechend anpassen, um alle gewünschten Texte in den Dateinamen zu integrieren.

Beliebteste Forumthreads (12 Monate)