Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit Inputbox in Makro schreiben

Mit Inputbox in Makro schreiben
Armin
Hallo, ich bin neu hier und brauche dringendst Hilfe!
Wie kann ich in u.a. Code über eine Inputbox den Datei und Pfadnamen eingeben, bzw. ändern? Raffe es echt nicht!

Sub senden()
Dim dummy As Variant
dummy = SendNotesMail("Kurzportrait", "C:\Archiv\Export\Kurzportrait.xls", "Test@online.de", "Note", True)
End Sub

Danke im voraus, Armin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mit Inputbox in Makro schreiben
STC

Sub senden()
Dim Datei As String
Dim dummy As Variant
Nochmal:
Datei = InputBox("Bitte Laufwerk, Pfad und Datei eingeben (z.B. 'C:\Temp\Test.xls'):", "Eingabe")
If Datei = "" Then Exit Sub
If Dir(Datei) = "" Then
MsgBox "Datei ungültig!", vbCritical, "Falsche Daten"
GoTo Nochmal
End If
dummy = SendNotesMail("Kurzportrait", Datei, "Test@online.de", "Note", True)
End Sub

AW: Mit Inputbox in Makro schreiben
24.03.2004 16:23:58
Armin
Vielen Dank STC funktioniert prima,hat mir sehr geholfen!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige