Dansk Regneark Forum http://forum.excel-regneark.dk/ Dette er et XML Feed af; Dansk Regneark Forum : Sidste 10 Beskeder Copyright (c) 2006-2009 Web Wiz Forums - All Rights Reserved. Mon, 06 Sep 2010 09:21:59 +0000 Sun, 05 Sep 2010 21:38:44 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.69 30 forum.excel-regneark.dk/RSS_topic_feed.asp Dansk Regneark Forum http://forum.excel-regneark.dk/css_styles/Excel-regneark.dk/logo.png http://forum.excel-regneark.dk/ Excel Formler : Sammentælling http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=301#301 Forfatter: Anette
Emne: Sammentælling
Sendt: 05-September-2010 kl. 21:38

Hej Allan,

Er ked af at sige det, men det bliver bare 0. Altså sammentællingen. Ligemeget hvad jeg så skriver i fødselsdato eller hvor mange juniorer jeg skriver ind.
Øv øv - må nok opgive det? Eller kan du uploade regnearket hvor det virker, så jeg kan se det? Og evt. se hvad det er jeg lige misser/gør forkert.

Mange tak Anette ]]> Sun, 05 Sep 2010 21:38:44 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=301#301 Excel VBA og Makro : CSV importering med makro og dato formatering http://forum.excel-regneark.dk/forum_posts.asp?TID=76&PID=300#300 Forfatter: unichaos
Emne: CSV importering med makro og dato formatering
Sendt: 05-September-2010 kl. 20:47

Hej.

Jeg sidder og bakser med en makro i Excel 2010.
Jeg importerer en CSV-fil hvori jeg vælger tre felter, det første er et datofelt som er formateret amerikansk (med punktum) men dansk rækkefølge dd.mm.yyyy
Endvidere er der en stjerne ved nogle af datoerne som jeg fjerne med en del af makroen.
Mit problem er at Excel formatere datoerne på amerikansk, så dagen bliver til måneden og måneden bliver til dagen.
Dog indtil dagen skifter til 12+. Derefter formatere den datoen på dansk.

Hvordan får jeg Excel til at formatere det efter "dd/mm/yyyy" ?

Men feltet formateres ikke til dato før jeg har markeret datoen og trykket enter.

Hvordan løser jeg det problem?

Min makro er postet her under:
----------------------
Sub AddCSV()
    strFile = Application.GetOpenFilename(Filefilter:="CSV Files (*.CSV),*.CSV")
    
    If strFile <> False Then
        LastRow = Range("A65536").End(xlUp).Row + 1
    
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=Range("$A$" & LastRow))
            .Name = "JyskeDownload"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 1252
            .TextFileStartRow = 2
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(9, 9, 1, 1, 9, 1, 9, 9)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        
        Columns("C:C").Select
        Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
        
        Columns("A:A").Select
        Selection.Replace What:="~ ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.Replace What:="~.", Replacement:="-", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Selection.NumberFormat = "dd/mm/yyyy"
    End If
End Sub
----------------------
På forhånd tak.
]]> Sun, 05 Sep 2010 20:47:07 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=76&PID=300#300 BST-Utilities Generelt : BST Utilities 2.35 er udgivet http://forum.excel-regneark.dk/forum_posts.asp?TID=63&PID=299#299 Forfatter: Allan
Emne: BST Utilities 2.35 er udgivet
Sendt: 03-September-2010 kl. 22:32

Hej Annette,
 
Mange tak for info, jeg har rettet det.
Beklager meget jeg først så dit indlæg nu, håber ikke for mange har klikket forgæves Embarrassed
 
//Allan
]]> Fri, 03 Sep 2010 22:32:43 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=63&PID=299#299 Excel Formler : formel til lager http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=298#298 Forfatter: Allan
Emne: formel til lager
Sendt: 03-September-2010 kl. 22:23

Hej Stitz,
 
Tusind tak for de rosende ord Embarrassed
Du er hjertelig velkommen en anden gang, vi kan næsten ikke få spørgsmål nok her i forummet. Smile
 
Skulle du komme til at mangle nogle planter engang??...så sig endelig til!!....
Skulle jeg få behovet, vil jeg helt sikkert tænke på dig Big smile
 
Hav en fortrinlig weekend!
 
//Allan
]]> Fri, 03 Sep 2010 22:23:15 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=298#298 Excel Formler : formel til lager http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=297#297 Forfatter: stitz1000
Emne: formel til lager
Sendt: 03-September-2010 kl. 21:17

ClapClap...Hej Allan
Det er lige hvad jeg søger!!!!!!....TUSINDE TAK FOR DET....
Skulle du komme til at mangle nogle planter engang??...så sig endelig til!!....så er jeg meget gerne behjælpelig med at du får nogle meget billigt!!...
MANGE TAK IGEN!!
 
Mange hilsner
StitzSmile
]]> Fri, 03 Sep 2010 21:17:09 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=297#297 Excel Formler : Sammentælling http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=296#296 Forfatter: Allan
Emne: Sammentælling
Sendt: 03-September-2010 kl. 14:47

Hej Anette,
 
Jeg tror vi har ramt en bug i Excel, fordi det giver ingen mening at denne formel fejler.
 
Området N3:O21 kan ikke undersøges på én gang, men må opdeles i 2.... Confused området F3:K21 kan godt.
 
Prøv med: =SUMPRODUKT((F3:K21="s")*(N3:N21="s")*(O3:O21="s")*(E3:E21>R3))
 
Den virker.
 
//Allan
]]> Fri, 03 Sep 2010 14:47:51 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=296#296 Excel Formler : Sammentælling http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=295#295 Forfatter: Anette
Emne: Sammentælling
Sendt: 03-September-2010 kl. 12:55

Hej Allan,

Hvad er det der går galt? Det virker altså ikke. Og lige meget hvad jeg prøver, så bliver det ikke bedre.
Der går nogle uger endnu før jeg kan låne en bog med formler i Excel, så jeg kan ikke lige finde ud af det.

mange hilsener
Anette]]> Fri, 03 Sep 2010 12:55:02 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=67&PID=295#295 Excel Formler : formel til lager http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=294#294 Forfatter: Allan
Emne: formel til lager
Sendt: 03-September-2010 kl. 12:54

Jeg ved ikke om du er bekendt med VBA, men denne kode kan gøre det du ønsker.
Det er naturligvis vigtigt at din Excel tillade makroerne at køre, ellers virker det ikke.
Makroen er en form for regnemaskine, som lægger til og trækker fra automatisk.
 
For at lægge makroen ind, gør følgende:

ALT + F11
Klik på Ark1 i kolonnen til venstre
Sæt denne kode ind i området til højre.
 
'******************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Row >= 5 Then
    Range("J" & Target.Row).Value = Range("J" & Target.Row).Value + Target.Value
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
    Target.Select
End If
If Target.Column = 9 And Target.Row >= 5 Then
    Range("J" & Target.Row).Value = Range("J" & Target.Row).Value - Target.Value
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
    Target.Select
End If
End Sub
'******************************************************************
 
 
Alternativt, hent filen her: uploads/1/Kølerumsseddel_E2010.F2011_forslag2.xls
 
//Allan
]]> Fri, 03 Sep 2010 12:54:36 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=294#294 Excel Formler : formel til lager http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=293#293 Forfatter: Allan
Emne: formel til lager
Sendt: 03-September-2010 kl. 11:46

Jamen så er vi ude i noget VBA-kodning.
Hvis du taster i til eller afgang, skal tallet 'Antal paller' i samme række tælle op eller ned alt efter om der er tale om til(+) eller afgang(-).
 
Rigtigt forstået?
 
//Allan
]]> Fri, 03 Sep 2010 11:46:28 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=293#293 Excel Formler : formel til lager http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=292#292 Forfatter: stitz1000
Emne: formel til lager
Sendt: 03-September-2010 kl. 06:49

Hej Allan
Neej det var ikke lige sådan!, cellen som der tastes tilgang eller afgang i skal kun rette antallet i den linje som man taster i...ikke hele vejen ned i kolonnen!... og jeg vil meget gerne at cellen som der tastes enten tilgang eller afgang i bliver 'tom' når man flytter curseren væk fra cellen...og derefter kun viser antal(sum) i den kolonne.... så jeg tror ikke det er helt så ligetil...men du skal have mange tak for at du prøver!
MVH
stitz
]]> Fri, 03 Sep 2010 06:49:29 +0000 http://forum.excel-regneark.dk/forum_posts.asp?TID=75&PID=292#292