AW: Datenzugriff auf andere Tabellenblätter
28.02.2020 00:06:04
volti
Hallo Harry,
mit dem u.a. Code für UF2 werden in Combobox2 nur Datums > des gewählten Datums aus Combobox1 angezeigt.
Dieses zieht aber Probleme beim Ermitteln der Energiewerte via ListIndex nach sich, da ja nicht mehr alle Werte in der CB drin sind.
Private Sub ComboBox1_Change()
Dim lngCounter As Long, iMax As Long, T1 As String, T2 As String
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "DD.MM.YYYY")
TextBox1.Text = Cells(ComboBox1.ListIndex + 3, 2)
With ActiveSheet
iMax = .Cells(.Rows.Count, 1).End(xlUp).Row
ComboBox2.Clear
For lngCounter = 3 To iMax
With .Cells(lngCounter, 1)
If .Value <> "" Then
If WorksheetFunction.CountIf(Range(.Cells(1, 1).Address, _
.Address), .Value) = 1 Then
If ComboBox1.Text Like "Dat*" Or ComboBox1.Text = "" Then
ComboBox2.AddItem .Value
ElseIf CDate(.Value) > CDate(ComboBox1.Text) Then
ComboBox2.AddItem .Value
End If
End If
End If
End With
Next lngCounter
ComboBox2.Text = "Datum wählen"
End With
End Sub
viele Grüße
Karl-Heinz