Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei anhängen und lösche

Datei anhängen und lösche
25.05.2016 11: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
Anzeige
AW: Datei anhängen und lösche
26.05.2016 15: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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige