Oprettet ons. d. 28. juli 2010 kl. 18:27:48

svla
svla (12.207 point. Point ude: 60)

Sammenlægge 2 tidspunkter til 1 celle

Hej!
Jeg har et større excelark som indeholder mange rækker og kolonner.
Kolonne E og F indeholder komme og gå tidspunkter.
I f.eks. celle E6 står 13:45
I f.eks. celle F6 står 17:05

Nu vil jeg gerne have VBA til og hente tidspunktet i celle E6 og herefter tidspunktet i celle F6, og så til slut samle det i celle E6, således at der i E6 kommer til og stå 13:45 - 17:05.
Herefter videre og gøre det samme i næste række.

Problemet er at jeg ikke kan få det med og sammenlægge tidspunkter i E6 og F6 til og fungerer alt er prøvet men hver gang ender det med en masse forkerte tal.
Det med og gå videre til næste række er ikke noget problem.

Er der nogen som lige kan hjælpe med en stump VBA-kode.

På forhånd tak

Skrevet ons. d. 28. juli 2010 kl. 18:55:35| #1

supertekst
supertekst (119.044 point)
supertekst-it.dk
Prøv:  Cstr(tidspunkt 1) & "-" & Cstr(tidspunkt 2)

Skrevet ons. d. 28. juli 2010 kl. 19:20:37| #2

svla
svla (12.207 point)
Hej !
Jeg arbejder lige lidt med dit forslag,og prøver mig frem.
Hvad skal der helt korrekt stå mellem parenteserne, og skal resultatet ind i f.eks en variabel inden det sættes in i cellen E6
- Jeg prøver mig lige lidt frem.

Skrevet ons. d. 28. juli 2010 kl. 19:50:38| #3

svla
svla (12.207 point)
Hej igen!

Nu ser min kodestump således ud og er en del af en større kode:

  Dim srække As String
  Dim dTid1 As Date
  Dim dTid2 As Date
  Dim dTid3 As String

  Range("E6").Select
  srække = ActiveCell.Row
 
  dTid1 = ActiveCell.Value
  dTid2 = Range(F & srække).Value
  Range(E & srække).Value = CStr(dTid1) & " - " & CStr(dTid2)

Den virker faktisk perfekt, bortset fra at resultatet i E6 ser således ud: 13:45:00 - 17:05:00
Hvad skal der gøres for at resultatet ser således ud: 13:45 - 17:05

Håber lig du har et sidste forslag ????

Skrevet ons. d. 28. juli 2010 kl. 20:26:29| #4

kabbak
kabbak (151.014 point)
www.kabbak.dk
Range(E & srække) = Format(CStr(dTid1), "hh:mm") & " - " & Format(CStr(dTid2), "hh:mm")

Skrevet ons. d. 28. juli 2010 kl. 20:45:39| #5

supertekst
supertekst (119.044 point)
supertekst-it.dk
Det havde Kabbak så i mellemtiden - så godt nok..

Skrevet ons. d. 28. juli 2010 kl. 21:32:21| #6

svla
svla (12.207 point)
Hej begge!

Tusind tak for hjælpen nu virker det bare perfekt, jeg har bare brugt så meget tid og prøvet mange ting men intet lykkedes før det som i er kommet med.

I har jo begge fortjent point og burde dele dem, men hvordan gør man det ?

Læg er svar.

TAK for hjælpen

Skrevet ons. d. 28. juli 2010 kl. 22:51:29| #7

supertekst
supertekst (119.044 point)
supertekst-it.dk
Selv tak - en fornøjelse..

Skrevet tor. d. 29. juli 2010 kl. 11:22:38| #8

svla
svla (12.207 point)
Hej !
Da kabbak ikke har lagt et svar endnu, får Supetekst alle point for at få sagen lukket.
Tak for indsatsen !

Skrevet tor. d. 29. juli 2010 kl. 11:29:42| #9


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

Farve område i excel diagram ( mellem 2 (eller flere)...

Oprettet den 4. februar 2012 kl. 09.16
endurancel giver 60 point for svar | Giv et svar »

søg i tekst - VBA

Oprettet den 4. februar 2012 kl. 00.44
Mathias- giver 15 point for svar | Giv et svar »

Hvordan beregnes antallet af rentetilskrivninger? (lav...

Oprettet den 3. februar 2012 kl. 15.25
haastrup giver 200 point for svar | Giv et svar »

Seneste guides

Den gode bruger
Adgang til NAS-server via WAN
Kollektion af Batch tutorials (FJERNET)
Tilpas din YouTube afspiller


   




Tips & Tricks fra PC World

Teaser billede

Sådan fjerner du pladskrævende metadata fra dine fotos

Det er langt fra altid, at dine billeders metadata såsom kameramodel og geografisk placering er vigtige at bevare. JPG & PNG Stripper kan luge ud i billedfilerne, så de fylder meget mindre....


Anmeldelser fra PC World

Teaser billede

Test: Superlet bærbar med mange muligheder

Toshiba har med Satellite Z830 skabt en af verdens letteste ultrabooks. Den vejer 1,1 kilo, og computeren på 13 tommer ser på papiret ud til at være en oplagt rejsekammerat. Men den lave vægt har...


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Samsung Galaxy S III på vej

Samsungs bedst sælgende smartphone nogensinde får en efterfølger om kort tid.


Nyheder fra Computerworld

Teaser billede

Apple retter hele 51 sikkerhedshuller i Mac OS X

Apple lukker hele 51 sårbarheder i Mac OS X, hvoraf de fleste er kritiske. Se her, hvor hullerne er.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger