Hej
Jeg er rimeligt ny til det med VB, så jeg håber I kan forstå mit spørgsmål:
Jeg har en celle i Excel. Værdien af denne er f.eks. "Mon Jun 18 12:53:24
2001", altså formateret som "ddd mmm dd hh:mm:ss yyyy". Og sådan er det i
hele kolonnen ned, ca. 30 celler ned. Og det er jo også altsammen godt nok.
Men hvis nu jeg ville trække f.eks. årstallet eller ugedagen ud af cellen og
sætte det ind i cellen til højre, hvad hedder kommandoen så?
Jeg har søgningen efter en angivet variabel (se nedenstående). Den søger
efter værdien af InpVal og sætter værdien ind i den celle, der ligger 2 til
højre fra den, hvori resultatet er fundet.
Det jeg så vil, er, at kunne søge efter enten et specifikt årstal, eller et
datoformat, og flytte det over i cellen ved siden af.
Alternativt vil jeg gerne kunne søge på de sidste fire cifre i en celle,
eller på plads 4 til 8, eller andre pladser i cellen. Det ved jeg, der
findes en kommando til, men jeg kan ikke huske den og formatet af den.
Er der mon nogen, der kan hjælpe mig i min nød?
:)
Hav en nice dag
Med venlig hilsen
Per
- - - - - - - - - - - - - - -
Sub CopyDtoF()
Dim InpVal As String
With Worksheets(1).Columns("D:D")
InpVal = inputbox("Indtast søgekriterie for kolonne D", "Kopiering fra D til
E og F")
Set c = .Find(InpVal, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Cells.FindNext(After:=ActiveCell).Select
ActiveCell.Offset(0, 2).Range("A1") = InpVal
ActiveCell.Offset(0, 2).Range("A1").Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub
- - - - - - - - - - - - - - -
|