| A | B | |
| 1 | 1. | 1 |
| 2 | 2. | 2 |
| 3 | 3. | 3 |
| 4 | 4. | 4 |
| 5 | 5. | 5 |
| 6 | 6. | 6 |
| 7 | 7. | 7 |
| 8 | 8. | 8 |
| 9 | 9. | 9 |
| 10 | 10. | 10 |
| 11 | 11. | 11 |
| 12 | 12. | 12 |
| 13 | 13. | 13 |
| 14 | 14. | 14 |
| verwendete Formeln | |
| Zelle | Formel |
| B1 | =TAG(A1) |
| B2 | =TAG(A2) |
| B3 | =TAG(A3) |
| B4 | =TAG(A4) |
| B5 | =TAG(A5) |
| B6 | =TAG(A6) |
| B7 | =TAG(A7) |
| B8 | =TAG(A8) |
| B9 | =TAG(A9) |
| B10 | =TAG(A10) |
| B11 | =TAG(A11) |
| B12 | =TAG(A12) |
| B13 | =TAG(A13) |
| B14 | =TAG(A14) |
Sub test()
Cells(1, 1) = Val(Cells(1, 1).Text)
End Sub
Sub test2()
Cells(1, 1) = Val(Cells(1, 1).Text)
Cells(1, 1).NumberFormat = "general"
End Sub
Sub aaa()
With Cells(1, 1)
If IsDate(.Value) Then
.NumberFormat = "General"
.Value = Day(.Value)
End If
End With
End Sub
Sub aaa(Bereich as range)
For Each c in Bereich
With c
If IsDate(.Value) Then
.NumberFormat = "General"
.Value = Day(.Value)
End If
End With
next c
End Sub
Sub aaa()
For Each c in Range("A:A")
With c
If IsDate(.Value) Then
.NumberFormat = "General"
.Value = Day(.Value)
End If
End With
next c
End Sub
Sub aaa()
For Each c in Range("A:A")
With c
If IsDate(.Value) Then
.NumberFormat = "0\."
.Value = Day(.Value)
End If
End With
next c
End Sub
Sub aaa()
For Each c In Selection
With c
If IsDate(.Value) Then
.NumberFormat = "0\."
.Value = Day(.Value)
End If
End With
next c
End Sub
Sub Nur_Tag_als_Zahl()
Dim myAr, Bereich As Range
Dim A As Long
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
myAr = Bereich
For A = 1 To Ubound(myAr)
If IsDate(myAr(A, 1)) Then myAr(A, 1) = Day(myAr(A, 1))
Next A
Bereich.NumberFormat = "#0""."""
Bereich = myAr
End Sub