Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert der InputBox weiterverarbeiten...

Forumthread: Wert der InputBox weiterverarbeiten...

Wert der InputBox weiterverarbeiten...
24.06.2004 13:45:05
Christopher
hallo freunde
ich brüte und brüte und versuche und versuche und es will einfach nicht klappen
jetzt brauche ich hilfe
habe ein code geschrieben zum auslesen eines ordners, um mir die darin enthaltenen unterordner in excel ausgeben zu lassen
so weit, so gut! aber nun möchte ich gerne via input box bei activierung des macros den pfad, wo ausgelesen werden soll, bestimmen können, und nichtj edes mal vor start den code ändern...
ich komm nicht weiter, habe jegliche varianten probiert, wer kann mir denn jetzt den entscheiden tip geben
gruss und danke, chris
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert der InputBox weiterverarbeiten...
24.06.2004 13:56:33
Rainer
Meinst du sowas in der Art?
dim pfad as String
str = InputBox("Bitte den Pfad eingeben")
und dann müsstest du str ja nur noch da einsetzten wo in deinem makro bis jetzt der vollständig ausgeschriebene Pfad stand.
Gruß
Rainer
AW: Wert der InputBox weiterverarbeiten...
24.06.2004 14:35:02
Christopher
funktioniert kein stück ...
liegts vielleicht hier dran, wo ich auslese ?
Const Verzeichnispfad$ = "F:\daten\"
weil da trage ich ja dann zB str ein, und str sollte ja das ein, was in der box geschrieben steht
tut sich aber nix
Anzeige
AW: Wert der InputBox weiterverarbeiten...
24.06.2004 14:39:21
Rainer
Ich glaube das liegt an dem Const :)
Ich kenne mich mit VBA nicht so gut aus aber ich könnte mir vorstellen, dass man keine variable in eine konstante einlesen kann. mach doch den Verzeichnisspfad auch zu einer variablen.
AW: Wert der InputBox weiterverarbeiten...
Chris
das ist mein quellcode

Sub Ordner_lesen()
Const Verzeichnispfad$ = "F:\daten\"
Dim Ordnername$
Columns(1).ClearContents
Ordnername = Dir(Verzeichnispfad, vbDirectory)
Do While Ordnername <> ""
If Ordnername <> "." And Ordnername <> ".." Then
If (GetAttr(Verzeichnispfad & Ordnername) And vbDirectory) = vbDirectory Then
[a65536].End(xlUp).Offset(1, 0) = Ordnername
End If
End If
Ordnername = Dir
Loop
End Sub

und da krieg ich das so wie du meinst nicht rein geschriebenist aber egal, habe mir für jedes arbeitsblatt ein eiges makro gemacht, geht ja dann auch
Anzeige
AW: Wert der InputBox weiterverarbeiten...
Uduuh
Hallo,
mit Const definierst du eine Konstante. Das darfst du natürlich nicht.
Ersetze es durch
VerzeichnisPfad=Inputbox("Pfad?")
Gruß aus'm Pott
Udo
AW: Wert der InputBox weiterverarbeiten...
Chris
jau mein fehler falsch gedacht
hast du denn auch noch was, das er mir das nicht immer ab a2 nach unten ausgibt sondern zb ab a2, damit es bischen mittgier aussieht
Anzeige
AW: Wert der InputBox weiterverarbeiten...
Harald
Hallo Chris:

Sub test()
Dim pfad As String
pfad = InputBox(" Bitte Pfad eingeben: ")
MsgBox pfad
End Sub

Gruß Harald
AW: Wert der InputBox weiterverarbeiten...
Uduuh
Hallo,
strSuchPfad=Inputbox("Pfad?")
Gruß aus'm Pott
Udo
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige