Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 14:35:16 M.
NotSolved
29.04.2020 14:53:21 Mase
NotSolved
29.04.2020 15:38:51 M.
NotSolved
29.04.2020 15:47:44 Mase
*****
NotSolved
29.04.2020 15:52:51 M.
NotSolved
Blau ComboBox auf Tabellenblatt aktualisieren
 29.04.2020 16:44:59 M.
NotSolved
29.04.2020 23:55:43 Gast72556
NotSolved

Ansicht des Beitrags:
Von:
M.		 Datum:
29.04.2020 16:44:59		 Views:
784		 Rating:
     
Antwort:
  Ja
Thema:
ComboBox auf Tabellenblatt aktualisieren

Hi,

der Code sieht nun wie folgt aus: 

(Der erste Teil ist für die Befüllung und der Zweite Teil soll für die Auswahl sein)

Problem: es funktioniert genau einmal dann komm eine Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nichtOption Explicit

Habe es beim zweiten Sub sowohl mit Click als auch mit Change versucht.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub ComboBox1_DropButtonClick()
 
Dim StrPath As String
Dim strFile As String
Dim strTabName  As String
 
   StrPath = ThisWorkbook.Path & "\PowerPoint_Vorlage\"
   strFile = Dir(StrPath & "*.pptx")
 
   With ComboBox1
      .Clear
      Do Until strFile = ""
         .AddItem Left(strFile, Len(strFile) - 5)
         strFile = Dir
      Loop
   End With
    
End Sub
-----------------------------------------------------------------------------------------------------
Private Sub ComboBox1_Click()
 
    ComboBox1.SelectedItem
 
End Sub

 

 

VG

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
29.04.2020 14:35:16 M.
NotSolved
29.04.2020 14:53:21 Mase
NotSolved
29.04.2020 15:38:51 M.
NotSolved
29.04.2020 15:47:44 Mase
*****
NotSolved
29.04.2020 15:52:51 M.
NotSolved
Blau ComboBox auf Tabellenblatt aktualisieren
 29.04.2020 16:44:59 M.
NotSolved
29.04.2020 23:55:43 Gast72556
NotSolved