Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei mit bestimmten Namen öffnen

Datei mit bestimmten Namen öffnen
Holla
Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn man die Falsche Datei nimmt oder ist es vielleicht einfacher den Filter irgendwie anzupassen, dass nur diese Dateien angezeigt werden.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
wie sieht Dein Code aus? oT.
13.11.2009 12:40:42
Tino
AW: wie sieht Dein Code aus? oT.
13.11.2009 12:48:54
Holla
Die Stelle sieht so aus und das ganze muss ja irgendwie vor dem "Show" rein denke ich mal
With Application.FileDialog(msoFileDialogOpen)
.Title = "Vorletztes Ouartal einfügen"
.InitialFileName = PathStr
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ExcelDateien", "*.xls"
.Show
If .SelectedItems.Count 1 Then
MsgBox "Vorletztes Quartal nicht aktualisiert"
GoTo LetztesQuartal
End If
FileStr = .SelectedItems(1)
End With
Set WStmp = Worksheets.Add
Set WB = Workbooks.Open(FileStr)
WB.Worksheets(1).UsedRange.Copy Destination:=WStmp.Range(ZWSFirstRange)
WB.Close
Set WB = Nothing
Anzeige
muss jetzt auf die arbeit, andere können
13.11.2009 13:08:22
Tino
Hallo,
dies auch lösen, Frage offen. (sorry)
Gruß Tino
versuche es mal so.
13.11.2009 22:53:05
Tino
Hallo,
Deine vorgaben noch anpassen. 

Dim VorgabeJJJJ As String
Dim VorgabeX As String
Dim FileStr As String
VorgabeJJJJ = "2009" 'Deine vorgabe JJJJ
VorgabeX = "H" 'Deine vorgabe X
FileStr = Application.GetOpenFilename("Excel (*" & VorgabeJJJJ & "*" & VorgabeX _
& "*.xls), *.xls, Excel (*.xls),*" & _
VorgabeJJJJ & "*" & VorgabeX & "*.xls")
If FileStr  CStr(False) Then
Set WStmp = Worksheets.Add
Set WB = Workbooks.Open(FileStr)
WB.Worksheets(1).UsedRange.Copy Destination:=WStmp.Range(ZWSFirstRange)
WB.Close
Set WB = Nothing
End If
Gruß Tino
Anzeige
oder so, müsste auch gehen...
14.11.2009 07:01:33
Tino
Hallo,
Dim VorgabeJJJJ As String
Dim VorgabeX As String
Dim FileStr As String
VorgabeJJJJ = "2009" 'Deine vorgabe JJJJ
VorgabeX = "H" 'Deine vorgabe X
With Application.FileDialog(msoFileDialogOpen)
.Title = "Vorletztes Ouartal einfügen"
.InitialFileName = "*" & VorgabeJJJJ & "*" & VorgabeX & "*"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ExcelDateien", "*.xls"
.Show
If .SelectedItems.Count  1 Then
MsgBox "Vorletztes Quartal nicht aktualisiert"
'        GoTo LetztesQuartal
End If
FileStr = .SelectedItems(1)
End With
Set WStmp = Worksheets.Add
Set WB = Workbooks.Open(FileStr)
WB.Worksheets(1).UsedRange.Copy Destination:=WStmp.Range(ZWSFirstRange)
WB.Close
Set WB = Nothing
Gruß Tino
Anzeige

317 Forumthreads zu ähnlichen Themen

Makro ändern - Links öffnen
Chris

Hallo alle zusammen,
könnt ihr mir helfen folgendes Makro abzuändern? In der Art, dass nur Links geöffnet werden, die ungleich dem Link in der Zeile zuvor sind? auch wenn ich z.B. als Start zeile 100 eingebe, dass die Zeile 100 trotzdem außen vorgelassen wird, wenn Zelle D99 identisch mit...
12.09.2009 14:52:20
Thread-ID: 1102219
15 Beiträge
Anzeige
Excel Datei nur für bestimmte User öffnen. | Herbers Excel-Forum
Ullrich
Hallo Forumsmitglieder,
habe folgendes Problem :
Ich arbeite in einem Großunternehmen in Deutschland und habe für meinen Bereich eine Personalliste mit verschiedenen Daten erstellt. Diese xls-Datei möchte ich aber nur meinen Mitarbeitern (MA genannt) durch abfragen Ihrer persönlichen Mitarb...
08.01.2010 15:37:28
Thread-ID: 1128321
3 Beiträge
csv Datei in bestimmten Pfad öffnen
Jürgen

Hallo Excel-Forum,
habe eine höchstwahrscheinlich (hoffentlich) einfache Frage. Bei der Recherche bicn ich irgendwie nicht zu einem Ergebnis gekommen.
Ich möchte per Makro eine csv.Datei öffnen. Diese liegt auf einem bestimmten Pfad (auf einem Server).
Das Excel mir im Öffnen-Dialog...
12.03.2010 12:26:48
Thread-ID: 1145363
10 Beiträge
Anzeige
PDF Dateien im Verzeichnis drucken/ öffnen
DirkR

Hallo Excelgemeinde,
ich habe mit Hilfe des Forums folgende Datei gebastelt:
https://www.herber.de/bbs/user/78223.xls
Danke für die Hilfe!!!!
Nun habe ich noch 2 Probleme, bei denen ich einfach nicht weiter komme und hoffe auf eure Hilfe.
In der Datei habe ich eine Userform....
05.01.2012 12:09:14
Thread-ID: 1244701
5 Beiträge
Öffnen IE8 bzw. im geöffneten Browser TAB öffnen
Stefan

Hallo Zusammen,
ich möchte eine Funktion schreiben, welche zuerst prüft, ob eine IE8 Session bereits geöffnet ist. Ist dies nicht der Fall, soll eine Session geöffnet werden und ein von mir vorgegebenen Link geöffnet werden. Ist allerdings eine Session aktiv, soll nur ein neuer Tab mit eine...
13.01.2012 15:14:01
Thread-ID: 1246046
6 Beiträge
Link aus Excel im Browser öffnen, aber wie?
Martin

Hallo Leute,
ich habe mit der Hilfe des Forums eine Datei "gebastelt" mit der ich einen Link, der durch eine Verkettung entstanden ist nun in den Browser kopieren möchte, so dass sich der Browser mit dem entsprechendem Link öffnet und sich die Excel-Datei im Hintergrund schließt.
Ich ko...
05.12.2012 09:52:28
Thread-ID: 1289378
3 Beiträge
Datei nur für bestimmten User öffnen
Tim

Hallo an alle,
ich habe einen Ordner mit einer Tabelle und einer Kopie der Tabelle.
Die Tabelle ist für alle User gedacht und die Kopie nur für den Admin.
Da im Code aus organisatorischen Gründen festgelegt ist, dass die Datei nur in diesem Ordner funktioniert, befinden sich beid...
09.12.2012 14:12:46
Thread-ID: 1289933
15 Beiträge
Datei öffnen Dialog für Import aus einer txt-Datei
Bubble

Hallo liebe Exelperten,
mit folgendem im Makrorecorder aufgezeichneten Code habe ich eine txt-Datei in einen vorgegebenen Bereich eines Arbeitsblattes importiert. Die Pfadangabe bezieht dabei auf eine bestimmte Datei in einem bestimmten Ordner. Zuerst wird der Bereich für den Import gelösch...
22.05.2013 18:28:58
Thread-ID: 1314406
3 Beiträge
Anzeige

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
14
7
2
9
2
4
5
2
14
2
1
2
5
6
3
5
1
1
5
4
4
4
6
2
4