ersten Wert in Kombinationsfeld in Userform (Excel 2013)

Question

ich eine Userform haben, dass, wenn initilised sucht nach Dateien auf unserem Server und füllt ein Kombinationsfeld über:

cmbReportDateTime.AddItem Format(reportDateTime, "ddd dd-mmm-yy hh00") 

Wer weiß, wenn ich abrufen kann Der erste Wert des Kombinationsfelds (nachdem das Populationsmakro abgeschlossen wurde) später im Skript.

Ich habe Dinge ähnlich wie unten versucht (wie von anderen Websites vorgeschlagen), aber es funktioniert nicht.

me.cmbReportDateTime.Item(1).value 
me.cmbReportDateTime.ItemData(1).value 

vollständige Code:

Private Sub populate_reportDateTimes() 
DoEvents 
Application.StatusBar = "Searching for archived files... Please Wait..." 
ii = 1 
ThisWorkbook.Worksheets("Lookups").Range("Z1:Z100").ClearContents 
    cmbReportDateTime.Clear 
    currentDateTime = Now 
    reportDateTime = currentDateTime 

    While reportDateTime > currentDateTime - 1 
     report_hour = Hour(reportDateTime) 
     If report_hour > 20 Then 
      reportDateTime = Round(reportDateTime) + 20/24 
     ElseIf report_hour < 7 Then 
      reportDateTime = Round(reportDateTime - 1) + 20/24 
     End If 
     If Dir(r04Dir & r04Prefix & 1 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 2 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 3 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 4 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 5 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 6 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & r04Prefix & 7 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Uddingston_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Stockport_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Oldbury_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Leicester_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(feedsDir & duplicatePrefix & Format(reportDateTime, "yyyymmdd_hh00") & ".txt") <> "" And _ 
      Dir(feedsDir & unmasteredprefix & Format(reportDateTime, "yyyymmdd") & ".txt") <> "" And _ 
      Dir(feedsDir & unpinnedPrefix & Format(reportDateTime, "yyyymmdd") & ".txt") <> "" And _ 
      Dir(feedsDir & mismatchPrefix & Format(reportDateTime, "yyyymmdd_hh00") & ".txt") <> "" Then 

      cmbReportDateTime.AddItem Format(reportDateTime, "ddd dd-mmm-yy hh00") 
      ThisWorkbook.Worksheets("Lookups").Range("Z" & ii).Value = Format(reportDateTime, "ddd dd-mmm-yy hh00") 
      ii = ii + 1 
     ElseIf Dir(r04Dir & "Archive\" & r04Prefix & 1 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 2 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 3 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 4 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 5 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 6 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(r04Dir & "Archive\" & r04Prefix & 7 & "_GAS_*" & UCase(Format(reportDateTime, "dd_mmm_yyyy_hh")) & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Uddingston_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Stockport_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Oldbury_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(stpDir & stpPrefix & "Leicester_" & Format(reportDateTime, "yyyymmddhh") & "*.csv") <> "" And _ 
      Dir(feedsDir & "archive\" & duplicatePrefix & Format(reportDateTime, "yyyymmdd_hh00") & ".txt") <> "" And _ 
      Dir(feedsDir & "archive\" & unmasteredprefix & Format(reportDateTime, "yyyymmdd") & ".txt") <> "" And _ 
      Dir(feedsDir & "archive\" & unpinnedPrefix & Format(reportDateTime, "yyyymmdd") & ".txt") <> "" And _ 
      Dir(feedsDir & "archive\" & mismatchPrefix & Format(reportDateTime, "yyyymmdd_hh00") & ".txt") <> "" Then 

      cmbReportDateTime.AddItem Format(reportDateTime, "ddd dd-mmm-yy hh00") & " (archive)" 
      ThisWorkbook.Worksheets("Lookups").Range("Z" & ii).Value = Format(reportDateTime, "ddd dd-mmm-yy hh00") 
      ii = ii + 1 
     End If 
      reportDateTime = reportDateTime - 1/24 
    Wend 
Application.StatusBar = "Search Complete!" 

End Sub 

Answer 1

In Ordnung hier gehen Sie

Public thestuff As String 

Private Sub CommandButton1_Click() 
    With Me.ComboBox1 
     .AddItem "Stuff1" 
     .AddItem "Stuff2" 
     .AddItem "Stuff3" 
     .AddItem "Stuff4" 
    End With 

    thestuff = ComboBox1.List(0) 
End Sub 

Private Sub CommandButton2_Click() 
    Debug.Print ; thestuff 
    ActiveWorkbook.Sheets("Sheet1").Range("a1").Value = thestuff 
End Sub 

Dies behebt das Problem und bekommt, was man wollte. Hinweis "thestuff" wurde über den Modulen platziert, auf die verwiesen werden muss.