Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Inputbox in Makro schreiben

Forumthread: 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
Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige