Geïmporteerde txtkolom veranderen in tijdkolom

[Vandecat]

Is het mogelijk om kolom H vanaf rij 2 om die gegevens om te zetten in tijd kolom via een macro of vba code.
Het is een geïmporteerd txt bestand, die kan enkele honderden rijen bevatten.

Dirk

 

[alphamax]

In J2

=TIJD(INTEGER(REST(H2*1;100));INTEGER(REST(H2*100;100));INTEGER(REST(H2*10000;100)))

en dan doorvoeren naar beneden.

 

[Vandecat]

Alphamax

Het is een oplossing die men kan gebruiken. De bedoeling is om kolom H te behouden en via een macro of vba code met opdracht knop
kolom H aan te passen, voor alle sheets.

 

[HSV]

Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion.Resize(, 13)
  For i = 2 To UBound(sv)
    sv(i, 13) = Format(Evaluate("text(" & CLng(sv(i, 8) * 10000) & ",""##\:##\:##"")"), "hh:mm:ss")
  Next i
 Cells(1).CurrentRegion.Resize(UBound(sv), 13) = sv
End Sub

Of in twee regels.

Sub hsv_2()
  Cells(1).CurrentRegion.Columns(8).Offset(1).Name = "bereik"
  [bereik].Offset(, 10) = [transpose(text(transpose(bereik*10000),"##\:##\:##"))]
End Sub

 

[Vandecat]

HSV

Dat is het beide macro code werken uitstekend, geplaats in ThisWorkBook.
Hartelijk dank,

Dirk

 

[snb]

Of minder geavanceerd

Sub M_snb()
   [M2:M2000] = [if(H2:H2000="","",text(10^4*H2:H2000,"00\:00\:00"))]
End Sub

 

[Vandecat]

Bij Harry codes moet men geen rekening houden met aantal rijen, sommige sheets hebben meer dan
10000 rijen afhankelijk van geImporteerde duiven uitslagen.
Dank voor informatie.

 

[snb]

Hoeft hier ook niet:

Sub M_snb()
   [M2:M20000] = [if(H2:H20000="","",text(10^4*H2:H20000,"00\:00\:00"))]
End Sub

 

[Ginger]

En waarom niet direct het veld op "tijd" zetten bij de Import Wizard? Dan hoef je achteraf niets te corrigeren...

 

[Vandecat]

Duiven resultaten worden op pipa duiven web in MS-DOS programma geplaats met punt of komma
voor 10.(,)0311 als tijd en 1254.(,)5287m/min voor snelheid.
Bij het importeren naar Excel via gegeven, van tekst is er keuze om standaard, tekst of datum geen tijd.