Private Sub UserForm_Activate()
' Listbox füllen
Dim i As Integer
Dim wks1 As Worksheet
Set wks1 = Worksheets("Zawadil+Entwerter")
For i = 9 To 702 Step 1
ListBox1.AddItem (wks1.Cells(i, 1).MergeArea.Cells(1, 1).Value)
Next i
' Optionbutton1 aktivieren
Me.OptionButton1 = True
End Sub
lg.Ernst
Private Sub UserForm_Initialize()
Set wsActive = ActiveSheet
CancelButton = 0
'Clear controls for next entry and set default box
'TextShares.Value = ""
'TextPrice.Text = ""
'Populate text boxes with data from the spreadsheet
With CBRegion
.AddItem "APAC"
.AddItem "China"
.AddItem "MEA"
.AddItem "NE"
.AddItem "NA"
.AddItem "SA"
.AddItem "SWE"
End With
CBRegion.Value = Worksheets("reportGenerator").Range("a6").Value
'Set the Report input file/default
If Range("ReportGenerator!A2").Value = "" Then
TxtReportPath.Text = Range("ReportGenerator!A4").Value
Else
TxtReportPath.Text = Range("ReportGenerator!A2").Value
End If
'Set the Report store path/default
If Range("ReportGenerator!A3").Value = "" Then
TxtStorePath.Text = Range("ReportGenerator!A4").Value
Else
TxtStorePath.Text = Range("ReportGenerator!A3").Value
End If
'Set the Report template file
If Range("ReportGenerator!A5").Value = "" Then
TxtRepTemplate.Text = Range("ReportGenerator!A4").Value
Else
TxtRepTemplate.Text = Range("ReportGenerator!A5").Value
End If
'Set the reporting period (as actual month)
TxtRepperiod.Text = CStr(Month(Date))
TxtReportPath.SetFocus
End Sub
Anbei noch ein Screenprint des Userforms:
Ich hoffe das hilft Dir weiter.
Gruss
Dirk aus Dubai
Private Sub UserForm_Activate()
' Listbox füllen
Dim i As Integer
Dim wks1 As Worksheet
Set wks1 = Worksheets("Zawadil+Entwerter")
For i = 9 To 702 Step 1
Me.ListBox1.AddItem (wks1.Cells(i, 1).MergeArea.Cells(1, 1).Value)
Next i
Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1
' Optionbutton1 aktivieren
Me.OptionButton1 = True
End Sub
Gruß Uwe
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen