Flytning af data i en string

Dvs. du har en masse celler, hvor der står (f.eks) 20050211 som skal skiftes til?

Jamen, det er LIGE noget for en VBA macro - skal nok lave den for dig...

Skal bare vide - i hvilke celler står datoerne - og er de ALTID med 8 cifte (så der står 0101 for første januar, og ikke 11 for første januar)

Og står de lige i røven af inanden (f.eks. celle A1 - A1000), eller er der mellemrum rundt omkring)

Skal bare præcist vide hvor alle datoerne står, så skal jeg nok lave det

Hvis du har følgende data i dit regneark - som eksempel

A1: 20050209
A2: 20050210
A3: 20050211
A4: 20050212
A5: 20050213
A6: 20050214
A7: 20050215
A8: 20050216
A9: 20050217
A10: 20050218

Så prøv at kør følgende kode, og se hvad der sker:

Sub MacroSkiftdato()

Dim lngRowStart As Long
Dim lngRowEnd As Long
Dim lngCol As Long
Dim i As Long
Dim dd As String * 2
Dim mm As String * 2
Dim yyyy As String * 4
Dim Olddate As String * 8

lngCol = 1 '1=kolonne A, 2 = kolonne B osv. ret selv
lngRowStart = CLng(Val(InputBox("Angiv startrække for datoer", "ANGIV STARTRÆKKE", "1")))
lngRowEnd = CLng(Val(InputBox("Angiv slutrække for datoer", "ANGIV SLUTRÆKKE", "10")))
For i = lngRowStart To lngRowEnd
  If Len(Trim((Cells(i, lngCol).Value))) = 8 Then
    Olddate = Trim(CStr(Cells(i, lngCol).Value))
    yyyy = Left(Olddate, 4)
    mm = Mid(Olddate, 5, 2)
    dd = Right(Olddate, 2)
    Cells(i, lngCol).Value = "'" & dd & "-" & mm & "-" & yyyy
  End If
Next i
MsgBox "færdiiiiiig"
End Sub

Alle datoerne står i kol. e de starter i e2 og slutter et ukendt sted, uden mellemrum.  :-)

Din makro virker FANTASTISK :-D, nu skal jeg bare finde ud af at rette den til...

Og ja dato er altid med 8 cifre.

Kan man måske lave noget smart så man undgår input boxen?

ja. 2 sek

Så - starter i E2, fortæstter med E3, E4, ... indtil der nås en celle som ikke har en 8-cifret dato i sig (f.eks. en tom celle)

Sub MacroSkiftdato()

Dim lngCol As Long
Dim i As Long
Dim dd As String * 2
Dim mm As String * 2
Dim yyyy As String * 4
Dim Olddate As String * 8

lngCol = 5 '1=kolonne A, 2 = kolonne B osv. ret selv
For i = 2 To 65532 '(65532 = maksimalt antal rækker)
  If Len(Trim((Cells(i, lngCol).Value))) = 8 Then
    Olddate = Trim(CStr(Cells(i, lngCol).Value))
    yyyy = Left(Olddate, 4)
    mm = Mid(Olddate, 5, 2)
    dd = Right(Olddate, 2)
    Cells(i, lngCol).Value = "'" & dd & "-" & mm & "-" & yyyy
  Else
    MsgBox "så slutter vi her - række " & i
    Exit For
  End If
Next i

End Sub

1000 tak det virker perfekt!!

Hvis du ikke har fået dine point så skrev lige, jeg har trykket på "accepter" 20 gange men jeg syntes ikke jeg kan se der sker noget?  :-)

mitrine > du skal makere navnet i boksen til venstre først ;-)

jeg har ikek fået dem .. :o)

SÅ skulle den være der:-) Hvor er det altså dejligt at der findes så dygtige og hjælpsomme mennesker.....og tak for hurtig respons :-)

Du skulle måske tilføje "smukke" også...

Og beskedne!

;o)

/Martin