VBA Add In mit Symbolleiste :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA Add In mit Symbolleiste

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

trottlbua
Besserwisser

Anmeldedatum: 31.01.2007
Beiträge: 85

Verfasst am: 06.11.2008, 11:56

Hallo Leute!

Zwei Fragen wieder mal Wink

1)
Wieso springt das nachfolgende Makro nicht in ein Fenster wo der angegebene Ordner voreingestellt geöffntet wird? Es öffnet das Fenster - aber nicht im angegebenen Ordner:

Code:

Sub Wirg()
Dim Pfad As Variant
Dim quest As String

On Error GoTo Fehler
Pfad = "K:\4_VM_SA\1_WIRG\"
Pfadneu:

ChDir Pfad
Application.GetOpenFilename "Excel Dateien (*.xls), *.xls"
Exit Sub

Fehler:
quest = MsgBox("Pfad konnte nicht geladen werden!" & Chr(13) & "Bitte überprüfen Sie die Netwerkverbindung und den Pfad!" & Chr(13) & "Der aktuelle Pfad ist: " & Chr(13) & Pfad & _
Chr(13) & Chr(13) & "Wollen Sie eine Datei auswählen?", vbYesNo, "Fehler beim Öffnen")
If quest = 7 Then
Exit Sub
Else
Pfad = Application.GetOpenFilename("Tabellen (*.xls),*.xls")
If Pfad = False Then
MsgBox "Es wurde keine Datei ausgewählt"
Exit Sub
Else
GoTo Pfadneu
End If
End If
End Sub

2) Wenn ich eine Symbolleiste mit einem Symbol wo das obige Makro zugewiesen ist in der gleichen Datei erstelle - die Datei als Addin (.xla) abspeichere und importiere - wieso wird dann die Symbolleiste nicht mitgenommen? Muss ich die extra im VBA programmieren oder wie?

Vielen Dank für die Antworten schon mal!

Lg
HErbert

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 06.11.2008, 13:07

trottlbua hat Folgendes geschrieben:

Wieso springt das nachfolgende Makro nicht in ein Fenster wo der angegebene Ordner voreingestellt geöffntet wird?

Weil der Pfad sich auf einem anderen Laufwerk befindet. Du brauchst auch noch ein ChDrive davor:

Code:

Dim Laufwerk As String
Dim Pfad As String
[...]
Laufwerk = "c:"
Pfad = "\program files\"
[...]
ChDrive Laufwerk
ChDir Pfad
Application.GetOpenFilename "Excel Dateien (*.xls), *.xls"

Gruß, Michael

trottlbua
Besserwisser

Anmeldedatum: 31.01.2007
Beiträge: 85

Verfasst am: 06.11.2008, 13:55

Servus Michael!

Danke für die schnelle Hilfe!

Die Antwort auf die zweite Frage wäre noch super Mr. Green

trottlbua hat Folgendes geschrieben:

mfg
Herbert

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007

trottlbua
Besserwisser

Anmeldedatum: 31.01.2007
Beiträge: 85

Verfasst am: 10.11.2008, 11:10

*Push*

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	WORD-Vorlage als Button in der Symbol...	MS_Colombo	Microsoft Word Hilfe	1	28.11.2008, 13:35
	Menu- und Symbolleiste nicht angezeig...	heide	Microsoft Word Hilfe	1	26.09.2008, 03:06
	Symbolleiste "Zeichnen" ist...	bodo020040	Microsoft Excel Hilfe	12	14.08.2008, 19:11
	symbolleiste	dan311	Microsoft Excel Hilfe	1	14.05.2008, 10:56
	Symbolleiste und Menüleiste fehlt	poppl89	Microsoft Word Hilfe	1	19.03.2008, 11:45

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de