Herbers Excel-Forum - das Archiv

Oberfläche anpassen

Bild

Betrifft: Oberfläche anpassen
von: Frank

Geschrieben am: 20.04.2005 19:33:29
Hallo Excelgemeinde,
Ich habe mir in VBA eine Oberfläche gestaltet wo sich eine Laufwerks-,Ordner- und Dateibox befindet.
Ich möchte nun folgendes - die Datei die in der dateibox selektiert wurde soll beim betätigen der Schaltfläche öffnen ausgeführt werden.
Stehe irgendwie auf dem Schlauch - kann mir jemand bei der Befehlzeile für die Schaltfläche Öffnen (mit den vielen Fragezeichen) unter die Arme greifen??
Gruß Frank
Option Explicit
Private Dateiname As String
Private Sub AuswahlLaufwerk_Change()
AuswahlOrdner.Path = AuswahlLaufwerk.Drive
AuswahlDatei.Path = AuswahlOrdner.Path
End Sub

Private Sub AuswahlOrdner_Change()
AuswahlDatei.Path = AuswahlOrdner.Path
End Sub

Private Sub AuswahlDatei_Click()
SchaltflOeffnen_Click
End Sub

Private Sub SchaltflOeffnen_Click()
End Sub

Bild

Betrifft: AW: Oberfläche anpassen
von: ransi

Geschrieben am: 20.04.2005 20:52:58
hallo frank
ich kann deine codebeispiele nicht nachvollziehen.
Glaube aber nicht das du
workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)
suchst.
alternativ schau dir mal "Shell-Funktion" in der VBA-Hilfe an.
ransi
Bild

Betrifft: AW: Oberfläche anpassen
von: Frank

Geschrieben am: 21.04.2005 08:27:00
hallo ransi,
mit der Shell Applic. habe ich so meine Probleme.
Es wird nur excel geöffnet.
Ich habe mal ein Bild von der Oberfläche hier reingehangen.
Gruß Frank

Private Sub SchaltflOeffnen_Click()
Dateiname = File1.Path
Dateiname = Shell("h:\Microsoft Office\Office10\EXCEL.EXE", 1)
End Sub

https://www.herber.de/bbs/user/21465.xls
Bild

Betrifft: AW: Oberfläche anpassen
von: Frank

Geschrieben am: 21.04.2005 08:31:22
hallo ransi,
mit der Shell Applic. habe ich so meine Probleme.
Es wird nur excel geöffnet.
Ich habe mal ein Bild von der Oberfläche hier reingehangen.
Gruß Frank
Private Sub SchaltflOeffnen_Click()
Dateiname = File1.Path
Dateiname = Shell("h:\Microsoft Office\Office10\EXCEL.EXE", 1)
End Sub


https://www.herber.de/bbs/user/21465.xls
 Bild
Excel-Beispiele zum Thema "Oberfläche anpassen"
Druckseite anpassen Spaltenbreite anpassen
UserForm an Excel-Fenster anpassen Grafiken an eine Seite anpassen
Bilder in UserForm und Bildgröße anpassen Tagesliste eines Monats exakt anpassen
Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen Zeilenhöhe bei verbundenen Zellen anpassen
Anpassen-Dialog über VBA aufrufen Spaltenbreiten der nicht ausgeblendeten Spalten anpassen