Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei über InputBox aufrufen

Datei über InputBox aufrufen
27.02.2005 17:14:16
Korl
Hallo,
ich möchte meine Rechnungsliste etwas komfortabeler gestalten. Die Rechnungen wurden mit der Rechnungsnummer als Dateiname &.xls in einem Ordner abgespeichert.
Nun kommt es manchmal vor, dass ich eine Rechnung nachträglich aufrufen muß.
Diese Funktion würde ich gerne mit einer InputBox erledigen wollen, indem ich dort die Rechnungsnummer eintrage, den Dateityp ".xls" automatisch angehängt wird um dann die Datei aus folgendem Ordner aufzurufen!

Sub Datei_aufrufen()
' Datei_aufrufen Makro
' Makro am 27.02.2005 von Korl aufgezeichnet
ChDir "C:\Programme\Test\Archiv"
Workbooks.Open Filename:= _
"C:\Programme\Test\Archiv\           "Variable"      &.xls", UpdateLinks:=3
End Sub

Falls die Rechnung nicht vorhanden, dann eine "MsgBox("Rechnung nicht vorhanden!")" anzeigen lassen.
Könnte da jemand vielleicht helfen?
Gruß Korl

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei über InputBox aufrufen
Ramses
Hallo
Probier mal

Sub OpenFile()
Dim str As String
str = Application.GetOpenFilename
If stgr = "Falsch" Then
Debug.Print "NIX"
Else
Debug.Print str
'Workbooks.Open str
End If
End Sub

Gruss Rainer
Korrektur
Ramses
Hallo
Sorry, ... anstelle von
If stgr = "Falsch" Then
muss es natürlich
If str = "Falsch" Then
heissen.
Gruss Rainer
AW: Korrektur
27.02.2005 17:48:09
Korl
Hallo Ramses,
danke für Deine Hilfe.
Der Code arbeitet, aber führt mich immer zu den Ordner der "zuletzt" geöffnet wurde.
Gruß Korl
AW: Korrektur
Ramses
Hallo
... ja und nun ?
Du wolltest doch dass der Benutzer die Datei suchen kann.
Wenn du nicht weisst wo die Datei liegt, welchen Ordner willst du dann vorschlagen ?
Hier eine Variante. Der Pfad muss existieren. Nur die Laufwerksangabe funktioniert nicht.

Sub OpenFile()
Dim myFile As String
'Verzeichniswechsel
ChDir ("C:\Verzeichnis")
myFile = Application.GetOpenFilename
If myFile = "Falsch" Then
Debug.Print "NIX"
Else
Debug.Print myFile
'Workbooks.Open str
End If
End Sub

Gruss Rainer
Anzeige
AW: Datei über InputBox aufrufen
27.02.2005 17:26:17
Nepumuk
Hallo Rainer,
Str solltest du nicht verwenden. Siehe Str-Funktion
Gruß
Nepumuk
Mea Culpa :-)
Ramses
Hallo Nepumuk
In the heat of the night :-)
Danke. Nicht aufgepasst.
Ich glaube, ich wollte eigentlich auch "datStr" schreiben :-)
Gruss Rainer
AW: Datei über InputBox aufrufen
27.02.2005 17:19:09
Josef
Hallo Korl!
Noch komfortabler und ohne gefahr von Schreibfehlern, geht das
mit "GetOpenFilename"
Warte fünf Minuten und ich mach dir ein beispiel!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
zu Spät, aber trotzdem ;-)
27.02.2005 17:22:56
Josef
Hallo Korl!


Sub Datei_aufrufen()
Dim myFile As String
ChDir "C:\Programme\Test\Archiv"
    
myFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
"*.xls; *.xlt; *.xla")
    If myFile = "Falsch" Then Exit Sub
Workbooks.Open Filename:=myFile, UpdateLinks:=3
End Sub


Gruß Sepp
Anzeige
Ja Sepp, so funktioniert es auch! Danke o.T.
27.02.2005 17:54:00
Korl
.

62 Forumthreads zu ähnlichen Themen

Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
Inputbox zur Dateisuche
Christopher

Hallo Leute,
ich habe ein Makro mit dem ich Daten aus einer Tabelle aus Jul09.xls in eine andere Tabelle in Berlin.xls kopieren kann.
Sub Artikelnummer_kopieren_Kraft() Windows("Jul09.xls").Activate Sheets("KRAFTREG ").Select Range("B10:B79").Select Selection.Copy Windows("Berlin.xls")....
23.09.2009 09:53:41
Thread-ID: 1104812
9 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
2
11
2
2
4
8
3
1
2
4
10
1
3
4
9
4
1
9
3
7
3
8
2