Dim a Year
20.03.2016 14:28:01
Rolf
Liebe VBA Gemeinde,
habe für Euch sicher ein einfaches Problem, aber ich konnte dies selbst nicht lösen.
Könnt Ihr mir mal untenstehenden Code anschauen. Was muss ich Verändern damit ich in der Combox2 das Datum angezeigt bekomme.
Für Eure Rückmeldung und Mithilfe einen lieben Dank im voraus
Gruss
Rolf
Public Sub UserForm_Initialize()
Dim a As Integer
Dim az As Integer ' Zähler für Arrayfelder
Dim i As Integer ' Schleifenzähler (Arrays füllen)
Dim arr() As Variant ' Array für Datenausgabe
a = Sheets("Daten").Range("A65536").End(xlUp).Row
' Array dimensionieren
ReDim arr(a, 0) ' Feld nach Listenlänge festlegen
' Arrays mit Werten füllen
For i = 2 To UBound(arr) ' laufe von Zeile 2 bis _
_
Tabellenende
If Application.WorksheetFunction.CountIf(Worksheets("Daten").Range(Worksheets("Daten"). _
Cells(i, 1), Worksheets("Daten").Cells(1, 3)), Worksheets("Daten").Cells(i, 3).Value) = 1 Then _
' wenn Wert das erste Mal vorkommt, dann ...
arr(az, 0) = Worksheets("Daten").Cells(i, 3).Value ' .. _
_
. Name in Array einlesen
az = az + 1 ' ... Zähler für _
Arrayfeld plus 1
End If ' Ende der Auswertung
Next i
ComboBox1.List = arr
'comboboxen aus Formeln
Dim rngKatogerie As Range
With Me
'bei diesem Befehl kommt die Fehlermeldung------------------------
Dim a
a = Year(Date)
a_start = "01.01." & a
a_ende = "31.12." & a
For datum = CLng(CDate(a_start)) To CLng(CDate(a_ende))
UserForm1.ComboBox2.AddItem CDate(datum)
Next datum
UserForm1.ComboBox2 = CLng(Now) - 1 - CLng(CDate(a_start))
End With
End Sub