CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

smeeden Nybegynder

23. september 2012 - 18:16 Der er 9 kommentarer og
1 løsning

Hjælp til at ændre dato

Hej

Jeg har et regne ark hvor jeg har en kolonne med noget der skulle være datoer, men det står sådan her.
12011 (skulle have været 01-20-2011)
100311 (Skulle have været 10-03-2011)

så har jeg indspillet denne makro, og den "virker" men er ikke ret hurtig, kan i hjælpe mig så den kun arbejder i hukommelsen

Sub Dato_ændring()
'
' Dato_ændring Makro
'
' Genvejstast: Ctrl+Skift+Q
'
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-2],2)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RIGHT(RC[-3],4),2)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-4])=6,LEFT(RC[-4],2),LEFT(RC[-4],1))"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=DATE(2000+RC[-3],RC[-2],RC[-1])"
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
ActiveCell.Offset(0, 2).Range("A1:D1").Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

mvh Kennet

Synes godt om

store-morten Ekspert

23. september 2012 - 22:58 #1

Prøv:

Sub Dato_ændring()
'
' Genvejstast: Ctrl+Skift+Q
'
År = Right(ActiveCell, 2)
Måned = Left(Right(ActiveCell, 4), 2)
If Len(ActiveCell.Formula) = 5 Then
Dag = 0 & Left(ActiveCell, 1)
End If
If Len(ActiveCell.Formula) = 6 Then
Dag = Left(ActiveCell, 2)
End If
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Value = Dag & "-" & Måned & "-" & År
År = Empty
Måned = Empty
Dag = Empty
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Synes godt om

store-morten Ekspert

23. september 2012 - 23:30 #2

Og:
Marker alle "datoer" f.eks. område A1:A10
Og ændre alle.

Sub Dato_ændring()
'
' Genvejstast: Ctrl+Skift+Q
'
For Each c In Selection.Cells

År = Right(ActiveCell, 2)
Måned = Left(Right(ActiveCell, 4), 2)
If Len(ActiveCell.Formula) = 5 Then
Dag = 0 & Left(ActiveCell, 1)
End If
If Len(ActiveCell.Formula) = 6 Then
Dag = Left(ActiveCell, 2)
End If
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Value = Dag & "-" & Måned & "-" & År
År = Empty
Måned = Empty
Dag = Empty
ActiveCell.Offset(1, 0).Select

Next c
End Sub

Synes godt om

smeeden Nybegynder

24. september 2012 - 07:44 #3

Hej Morten

Den laver noget mystisk.
Jeg kan ikke sætte dem i nummer orden.
er det mig der laver noget forkert

Mvh
Kennet

Synes godt om

store-morten Ekspert

24. september 2012 - 23:28 #4

Den laver disser, formateret som standard:
12011
100311

Om til, formateret som dato:
01-20-2011
10-03-2011

Der efter, ingen problem, med at sortere efter disse datoer?

Synes godt om

smeeden Nybegynder

25. september 2012 - 17:20 #5

Hej Morten

Nu har jeg prøvet igen, og jeg kan ikke få den til det hvis der er 6 tegn, men ved 5 tegn så virker den fint

Mvh

Kennet

Synes godt om

store-morten Ekspert

25. september 2012 - 19:25 #6

Sub Dato_ændring()
'
' Genvejstast: Ctrl+Skift+Q
'
For Each c In Selection.Cells
c.Select
År = Right(ActiveCell, 2)
Måned = Left(Right(ActiveCell, 4), 2)
If Len(ActiveCell.Formula) = 5 Then
Dag = 0 & Left(ActiveCell, 1)
End If
If Len(ActiveCell.Formula) = 6 Then
Dag = Left(ActiveCell, 2)
End If

Svar = MsgBox(c.Address & " Indeholder " & Len(ActiveCell.Formula) & " tegn " & vbCrLf & _
vbCrLf & _
"Dag = " & Dag & vbCrLf & _
"Måned = " & Måned & vbCrLf & _
"År = " & År & vbCrLf & _
vbCrLf & _
"Er datoen " & Dag & "-" & Måned & "-" & 20 & År & " rigtig?", vbYesNo, "Godkend")

If Svar = vbYes Then

ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Value = Dag & "-" & Måned & "-" & 20 & År
År = Empty
Måned = Empty
Dag = Empty
ActiveCell.Offset(1, 0).Select

ElseIf Svar = vbNo Then
End If

Next c

End Sub

Synes godt om

smeeden Nybegynder

26. september 2012 - 19:31 #7

Hej Morten

lægger du et svar

Den sidste virker som den skal

Jeg siger tak for hjælpen

Mvh Kennet

Synes godt om

store-morten Ekspert

26. september 2012 - 19:40 #8

Velbekomme.

Prøv også denne, med info om celle inhold:

Sub Dato_ændringTest()
'
' Genvejstast: Ctrl+Skift+Q
'
For Each c In Selection.Cells
c.Select
År = Right(ActiveCell, 2)
If År <> "" Then
År = 20 & År
End If
Måned = Left(Right(ActiveCell, 4), 2)
If Len(ActiveCell.Formula) = 5 Then
Dag = 0 & Left(ActiveCell, 1)
End If
If Len(ActiveCell.Formula) = 6 Then
Dag = Left(ActiveCell, 2)
End If

If Måned > 12 Then Bemærk1 = " <-- !!!"
If Dag > 31 Then Bemærk2 = " <-- !!!"

If IsEmpty(ActiveCell) Then
test1 = "Ja."
Else: test1 = "Nej."
End If
If IsNumeric(ActiveCell.Value) Then
test2 = "Ja."
Else: test2 = "Nej."
End If
If IsError(ActiveCell.Value) Then
test3 = "Ja."
Else: test3 = "Nej."
End If
If IsDate(ActiveCell.Value) Then
test4 = "Ja."
Else: test4 = "Nej."
End If
If ActiveCell.FormatConditions.Count > 0 Then
test5 = "Ja."
Else: test5 = "Nej."
End If
If Len(ActiveCell.Formula) > 0 Then
test6 = Len(ActiveCell.Formula)
Else: test6 = "0"
End If

Svar = MsgBox("Celle " & c.Address & " indeholder:" & vbCrLf & _
vbCrLf & _
"Tom: " & vbTab & vbTab & vbTab & test1 & vbCrLf & _
"Tal: " & vbTab & vbTab & vbTab & test2 & vbCrLf & _
"Fejl: " & vbTab & vbTab & vbTab & test3 & vbCrLf & _
"Dato: " & vbTab & vbTab & vbTab & test4 & vbCrLf & _
"Betinget formatering: " & vbTab & test5 & vbCrLf & _
"Antal tegn: " & vbTab & vbTab & test6 & vbCrLf & _
vbCrLf & _
"Dag = " & vbTab & Dag & Bemærk2 & vbCrLf & _
"Måned = " & Måned & Bemærk1 & vbCrLf & _
"År = " & vbTab & År & vbCrLf & _
vbCrLf & _
"Vil du bruge: " & vbTab & Dag & "-" & Måned & "-" & År & vbCrLf & _
"Som dato i cellen?", vbYesNo, "Godkend")

If Svar = vbYes Then

ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Value = Dag & "-" & Måned & "-" & År
År = Empty
Måned = Empty
Dag = Empty
ActiveCell.Offset(1, 0).Select

ElseIf Svar = vbNo Then
End If

Next c

End Sub

Synes godt om

store-morten Ekspert

26. september 2012 - 21:34 #9

Og lige en sidste, der kun gir boks, ved problemer:

Sub Dato_ændring_Advarsel()
'
' Genvejstast: Ctrl+Skift+Q
'
For Each c In Selection.Cells
c.Select
År = Right(ActiveCell, 2)
If År <> "" Then
År = 20 & År
End If
Måned = Left(Right(ActiveCell, 4), 2)
If Len(ActiveCell.Formula) = 5 Then
Dag = 0 & Left(ActiveCell, 1)
End If
If Len(ActiveCell.Formula) = 6 Then
Dag = Left(ActiveCell, 2)
End If

If Måned > 12 Then GoTo Advarsel

If Dag > 31 Then GoTo Advarsel

If IsEmpty(ActiveCell) Then GoTo Advarsel

If Not IsNumeric(ActiveCell.Value) Then GoTo Advarsel

If IsError(ActiveCell.Value) Then GoTo Advarsel

If IsDate(ActiveCell.Value) Then GoTo Advarsel

If Len(ActiveCell.Formula) < 5 Then GoTo Advarsel

If Len(ActiveCell.Formula) > 6 Then GoTo Advarsel

GoTo Ændre

Advarsel:
Svar = MsgBox("Dag = " & vbTab & Dag & Bemærk2 & vbCrLf & _
"Måned = " & Måned & Bemærk1 & vbCrLf & _
"År = " & vbTab & År & vbCrLf & _
vbCrLf & _
"Vil du bruge: " & vbTab & Dag & "-" & Måned & "-" & År & vbCrLf & _
"Som dato i cellen?", vbYesNo, "Godkend")

If Svar = vbYes Then
Ændre:
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Value = Dag & "-" & Måned & "-" & År
År = Empty
Måned = Empty
Dag = Empty
ActiveCell.Offset(1, 0).Select

ElseIf Svar = vbNo Then
End If

Next c

End Sub

Synes godt om

smeeden Nybegynder

29. september 2012 - 08:14 #10

Hej Morten

tak for hjælpen

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	22/12/202413:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS