in meiner Zelle steht z.B. 8. im Datumsformat T"." .
Läßt diese 8. auf irgendweise umwandeln in eine Zahl 8. umwandeln?
Mit copy und paste spezial... komme ich nicht weiter.
Danke für eure Hilfe.
Gruß
Karsten
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
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-LintfortSub 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
MACRO-AUFRUF lautet dann: Call aaa (Range("A:A"))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
Gruss AdelhorstSub 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
Gruß Tino