Datei anhängen und lösche

Forumthread: Datei anhängen und lösche
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Datei anhängen und lösche

25.05.2016 13:52:40

Alex

Hallo zusammen,
ich habe einen CommandButton, mit dem ich eine Datei anhängen möchte.
Funktioniert auch soweit.
Problem: Wenn ich die Datei lösche, bleibt der Pfad stehen. Wie kann ich das umgehen?

Private Sub CommandButton5_Click()
' varDatei = Application.GetOpenFilename()
If CommandButton5.Caption = "Datei anhängen" Then
CommandButton5.Caption = "Datei löschen"
varDatei = Application.GetOpenFilename()
Else
CommandButton5.Caption = "Datei anhängen"
varDatei = ""
End If
If varDatei = "Falsch" Then
varDatei = ""
CommandButton5.Caption = "Datei anhängen"
End If
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad  False Then
TextBox15 = strPfad
End If
End Sub

Vielen Dank und liebe Grüße
Alex

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei anhängen und lösche

26.05.2016 17:28:25

ChrisL

AW: Datei anhängen und lösche

26.05.2016 17:28:25

ChrisL

Hi Alex
Vielleicht so...

Private Sub CommandButton5_Click()
Dim varDatei As Variant
If CommandButton5.Caption = "Datei anhängen" Then
CommandButton5.Caption = "Datei löschen"
varDatei = Application.GetOpenFilename()
Else
CommandButton5.Caption = "Datei anhängen"
varDatei = ""
End If
If varDatei = False Then
varDatei = ""
CommandButton5.Caption = "Datei anhängen"
End If
TextBox15 = varDatei
End Sub

cu
Chris