Ich möchte die Spalte B welche das laufende Datum des Jahres enthält nachträglich in Cdate umwandeln.
Ich fülle Die Spalte mittels:
Option Explicit
Public Sub Kalender2()
Dim WkSh_K As Worksheet
Dim WkSh_F As Worksheet
Dim aktJahr As Integer
Dim dDatum As Date
Dim lZeile As Long
Dim lFtage As Long
Application.ScreenUpdating = False
Set WkSh_K = Worksheets("Stundennachweis") ' Kalenderblatt
Set WkSh_F = Worksheets("Tabelle2") ' Feiertagsblatt
If IsNumeric(WkSh_K.Range("A1").Value) And _
Len(WkSh_K.Range("A1").Value) = 4 Then
aktJahr = CInt(WkSh_K.Range("A1").Value)
dDatum = "01.01." & aktJahr
Else
MsgBox "In Zelle A1 steht keine gültige Jahreszahl - Abbruch.", _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
lZeile = 5
Do
WkSh_K.Range("B" & lZeile).NumberFormat = "dd.mm.yyyy"
WkSh_K.Range("B" & lZeile).Value = dDatum
For lFtage = 1 To WkSh_F.Range("A65536").End(xlUp).Row
'If dDatum = CDate(WkSh_F.Range("B" & lFtage).Value) Then
' WkSh_K.Range("B" & lZeile).Interior.ColorIndex = 3
Exit For
'End If
Next lFtage
lZeile = lZeile + IIf(Month(dDatum) = Month(dDatum + 1), 1, 2)
dDatum = dDatum + 1
Loop Until Year(dDatum) > aktJahr
End Sub
Nach der übergabe, muss ich erst durch die benutzerdefinierte Formatierung TT.MM.JJJJ für die Spalte eingeben, damit ich mit der Tabelle arbeiten kann.Ich möchte erreichen, das das Datum aus einer Userform Textbox in der Spalte B gefunden wird.
Wie gesagt nach "händischer" Umformatierung funktioniert es....
Danke und Gruß
Volker