Thema Datum  Von Nutzer Rating
Antwort
25.03.2015 15:12:55 Andreas
NotSolved
Blau VBA - Userform Auswahlliste
28.03.2015 10:28:12 MarkusK
NotSolved

Ansicht des Beitrags:
Von:
MarkusK
Datum:
28.03.2015 10:28:12
Views:
683
Rating: Antwort:
  Ja
Thema:
VBA - Userform Auswahlliste

Hallo Andreas,

 

so was ist schon möglich, vor allem die Auswahlliste und das Öffnen ist wirklich nicht schwer.

Zum Öffnen von PDFs (oder anderen Dateien)  über VBA gibt es im Netz auch genügend Beispiele.

Wenn du eine Suche möchtest bedarf das dann schon ein paar Zeilen Code. 

Darauf geh ich jetzt nicht ein, da ich generell nicht weiß wie deine VBA/Makro-Kenntnisse sind.

 

 

Als erstes benötigst du im VBA eine Userform.

Auf dieser setzt man dann eine Liste oder eine Combo-Box (Auswahlliste die nach unten Aufklappt).

Ich habe z.B. eine Combobox genommen, sind aber beide ähnlich.

Man kann der Liste einen festen Bereich einer Tabelle zuordnen, welcher dann angezeigt wird,

Ich würde aber in Excel einen "Namen" für den Bereich in Tabelle 2 vergeben, z.B. "Liste". (Zu finden unter Formeln->Namensmanager)

Der Vorteil, du kannst in Excel den Bereich jederzeit anpassen ohne in den "Code" gehen zu müssen.

 

Wenn die zuvor erstellte Userform aufgerufen wird sagst du dann der Auswahliste, dass sie den Bereich von "Liste" anzeigen soll

 

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Liste"
End Sub

 

Wie gesagt das aufrufen von einer PDF ist nicht schwer, und hab ich auch nur kopiert.

Und in meinem Code ist die PDF auch fest im Code eingefügt, hier muss man natürlich noch anpassen,

dass er die entsprechende Datei öffnet, die über die Ausahlliste angezeigt werden soll.

Hier der ganze Code in der Userform

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub ComboBox1_Change()

ShellExecute 0, "Open", "C:\tmp\Meine.pdf", "", "", 3
End Sub


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Liste"
End Sub

Die Userform muss man dann noch anzeigen über ein Makro bzw. ein Button.

 

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.03.2015 15:12:55 Andreas
NotSolved
Blau VBA - Userform Auswahlliste
28.03.2015 10:28:12 MarkusK
NotSolved