online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Tomschi vom 13.10.2019, 22:47 Options

VBA - Inputbox

Guten Abend!

Besteht die Möglichkeit bei einer Inputbox nur einen bestimmten Bereich des "Vorschlagewertes" zu markieren?

Beispiel:
Sub test()
Dim a As String
a = InputBox("Versuch", , "C:\tmp\Testeingabe")
End Sub

C:\tmp\Testeingabe soll standardmäßig markiert sein.

Thanx

Tom


Antwort schreiben

Antwort 1 von rainberg vom 13.10.2019, 23:05 Options

Hallo Tom,

meines Wissens geht das nicht.
Wenn ich Dich richtig verstanden habe, könntest Du es so machen.

Sub test()
Dim a As String
a = "C:\tmp\" & InputBox("Versuch", , "Testeingabe")
MsgBox a
End Sub


Gruß
Rainer

Antwort 2 von Tomschi vom 14.10.2019, 03:38 Options

Hallo Rainer!

Hm, da habe ich mich zur späten Stunde wohl etwas unklar ausgedrückt.

Standardmäßig sollte der Pfad markiert sein.
Je User stehen unterschiedliche Laufwerksbuchstaben/Verzeichnisse zur Verfügung. Daher muss der Benutzer selbst den Export-Pfad ändern.

Den Dateiname "Testeingbe.txt" soll der User im Normalfall nicht ändern. Optional aber doch --> daher auch in der Inputbox und nicht fix im Code hinterlegt.

Ciao

Tom

Antwort 3 von MixMax vom 14.10.2019, 04:00 Options

denke das mit dem Markieren ist nicht möglich, dafür gibts keine option o.ä.

entweder machst 2 verschiedene eingaben oder der anwender muss den Pfad selber von hand löschen wenn er ihn ändern will.

Ähnliche Themen

Abfrage auf ABBRUCH in InputBox
user3  04.05.2007 - 165 Hits - 11 Antworten

VBA InputBox Problem
Larrikin  13.06.2007 - 39 Hits - 2 Antworten

inputbox VBA code ändern
aeberhard  24.11.2007 - 134 Hits - 2 Antworten

VBA - Import mit Pfadangabe (Inputbox)
Tomschi  24.01.2008 - 117 Hits - 9 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026