| 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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen