Thema Datum  Von Nutzer Rating
Antwort
Rot UserForm, Datei laden und ComboBoxen füllen
19.08.2014 13:51:45 tohra
Solved
20.08.2014 11:42:18 Gast15580
NotSolved
21.08.2014 10:48:21 Gast83453
Solved
21.08.2014 10:59:10 tohra
Solved

Ansicht des Beitrags:
Von:
tohra		 Datum:
19.08.2014 13:51:45		 Views:
2671		 Rating:
     
Antwort:
 Nein
Thema:
UserForm, Datei laden und ComboBoxen füllen

So da mein erstes Problem heute so schnell gelöst wurde, hier gleich noch eins. Das ist allerdings etwas komplexer.

Also was ich am Ende haben möchte ist folgendes:

  • Button drücken und "Datei öffnen" Fenster öffnen - habe ich schon fertig!
  • Excel Tabelle auswählen und öffnen - auch fertig!
  • Dann öffnet sich ein UserForm mit 2 ComboBoxen - auch schon fertig!
  • jetzt gehen die Probleme los. In der ersten ComboBox sollen alle in der Datei enthaltenen Tabellenblätter angezeigt werden
  • Nach auswahl des Tabellenblatt sollen in der zweiten Comobox die die Überschriften der Spalten in diesem Tabellenblatt ausgewählt werden können, mit ("Spalte A" und dem entsprechend in Zelle A1 enthaltenen Text
  • Wird die auswahle dann mit "OK" bestätigt soll der Inhalt in Spalte A (bzw. der einer anderen ausgewählten Spalte)  in ein neues Tabellenblatt kopiert werden

das wäre es dann soweit. Hier schon mal die Code Schnipsel die ich bisher geschrieben habe:

Sub Daten_Laden()

Dim strDateiPfad As String
Dim strTabellenblatt As String
Dim strMesswert As String

strDateiPfad = Application.GetOpenFilename
Workbooks.Open (strDateiPfad)
'Datei öffnen

usfDatenLaden.Show
'Userform laden

End Sub

Private Sub cbTabellenblatt_DropButtonClick()

' Tabellenbläter in erste ComboBox laden 
'Füllen tut er die ComboBox allerdings behält er die auswahl nicht...
cbTabellenblatt.Clear

    Dim wsTabelle As Worksheet
     
    For Each wsTabelle In Worksheets
        cbTabellenblatt.AddItem wsTabelle.Name
    Next wsTabelle

End Sub

Danke!

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
Rot UserForm, Datei laden und ComboBoxen füllen
19.08.2014 13:51:45 tohra
Solved
20.08.2014 11:42:18 Gast15580
NotSolved
21.08.2014 10:48:21 Gast83453
Solved
21.08.2014 10:59:10 tohra
Solved