Fehler im VBA Code
Josef
Hallo!
Wenn die Arbeitsmappe mit dem Arbeitsblatt "SUBKAPITEL" aktiviert ist, dann würde alles ganz normal ablaufen mit folgendem Code:
Private Sub OptionButton3_Click()
cboListe1.Clear
cboListe1.RowSource = "SUBKAPITEL!H2:H" & IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End Sub
Und mit folgendem Code funktioniert es leider auch nicht.
Private Sub OptionButton3_Click()
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("SUBKAPITEL")
cboListe1.Clear
cboListe1.RowSource = wks.Cells(2, 8) & IIf(IsEmpty(wks.Cells(Rows.Count, 1)), _
wks.Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End Sub
Wo mache ich hier bitte den Fehler und wie würde eine Lösung bitte aussehen?
Danke
Josef
Anzeige