abonnement Unibet Coolblue
pi_161800467
Ok, ik kom er niet meer uit. Het zal ongetwijfeld belachelijk simpel zijn, maargoed :+

Ik werk met Excel 2013, Nederlandse taal.

Ik heb 4 rijen (zie hieronder). Kolom 1 is wat we hebben gehaald, kolom 2 is de eigenlijke norm, kolommen 3 en 4 zijn de gegevens die ik koppel aan het resultaat uit kolom 1. Klom 3 en 4 horen per rij bij elkaar.

Ja, vaag :P. Maar ik wil dus:
Als 8:06 gerealiseerd is, dat de formule dit ziet, kijkt naar kolom 3 en het bijbehorende gegeven uit kolom 4 ophaalt. Dus dat er dan 95 wordt opgehaald.
Ook zou ik willen zien dat als er een resultaat is van 8:00 of eerder, er 100 komt te staan.

Ik heb al geklooid met een eindeloze =ALS formule en daarmee kom ik een eind, maar ik kreeg een foutmelding vanaf 8:06 (formule denk ik te lang?)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Realisatie    Norm     Tijd % gehaald    
8:06:00    8:00    8:00    100
8:02:00    8:00    8:01    99
8:01:00    8:00    8:02    98
8:03:00    8:00    8:03    97
11:01:00    8:00    8:04    96
7:26:00    8:00    8:05    95
7:09:00    8:00    8:06    94
6:55:00    8:00    8:07    93
6:35:00    8:00    8:08    92
6:35:00    8:00    8:09    91
6:51:00    8:00    8:10    90
8:30:00    8:00    8:11    89
7:00:00    8:00    8:12    88
                   8:13    87
                   8:14    86
                   8:15    0

Help! :'( :@
pi_161804693
^^Zijn de gegevens in kolom A en B een tijdstip of een tijdsduur?
pi_161804785
quote:
0s.gif Op vrijdag 29 april 2016 18:35 schreef Modus het volgende:
^^Zijn de gegevens in kolom A en B een tijdstip of een tijdsduur?
Tijdstip :)
pi_161805759
quote:
1s.gif Op vrijdag 29 april 2016 18:41 schreef GotC het volgende:

[..]

Tijdstip :)
In E2 zou dan zoiets moeten komen

1=ALS(A2<=B2;100;VERT.ZOEKEN(A2;C:D;2;ONWAAR))

en dan doortrekken, maar om mij nog onduidelijke reden kan ie dan de 08:03:00 en de 08:06:00 niet vinden die er wel degelijk in staan, dan geeft ie een #N/B, de 8:02 en 8:01 kan ie wel vinden. Echt GEEN IDEE hoe dit kan. Ms toch iets met dat tijdrekenen, dat is altijd gekut.

11:01:00 vindt ie logischerwijs ook niet, want die staat niet in kolom C.

[ Bericht 15% gewijzigd door Modus op 29-04-2016 19:44:33 ]
pi_161806102
quote:
7s.gif Op woensdag 27 april 2016 12:13 schreef The_vice het volgende:
(Wel eerst in VBA in -> References -> "Microsoft Scripting RunTime" aanvinken.)
Zonder hier naar te kijken vanmorgen een scriptje gemaakt met FSO en dat werkte zoals ik wilde, dus ook zonder die laatste enter nu. Thanks. Als dat vinkje een vereiste is, neem ik aan dat het toen aanstond.

's Middags ergens kreeg ik ineens op de regel met de fso.CreateTextFile opdracht een Permission Denied error, terwijl die regel vanaf begin af aan niet veranderd is geweest. Heb ik ineens geen schrijfrechten meer in betr. dir?? Toen dat vinkje maar eens gaan checken, stond niet aan. Aangevinkt, toen werkte het weer. Ehhhhh? Ben nooit aan dat vinkje geweest. 8)7

Kan IT op de achtergrond hebben lopen rommelen om te voorkomen dat ik dit soort scriptjes ga gebruiken?

-edit
toen ik de CSV uiteindelijk probeerde in te lezen begon hij weer te miepen. Na uitzoeken blijkt dat te slaan op enkele harde line breaks binnen cellen die ik in het Excelbestand heb staan. Bij voorkeur moeten die er wel in blijven staan, maar die moeten blijkbaar ook op 1 of andere manier 'geformatteerd' worden om bruikbaar te zijn.

Bij het inlezen van de csv kan ik nog een paar dingen instellen, zoals de seperator (werkt verder goed nu) en de line break, maar ik neem aan dat die slaat op einde van de hele regel en niet op 1 'losse entry'.

[ Bericht 11% gewijzigd door Modus op 29-04-2016 20:10:15 ]
  vrijdag 29 april 2016 @ 20:59:52 #231
77676 The_vice
alweer 'n idee?
pi_161808352
quote:
0s.gif Op vrijdag 29 april 2016 19:44 schreef Modus het volgende:
[..]
Kan ook zijn dat een ander process het nog open had (bijv. preview in Windows Explorer.) Of dat tijdens debuggen het bestand nog niet goed was afgesloten.

Speciale karakters zijn vaak struikelpunten in code. Je wilt niet weten hoe vaak ik me blind zit te staren op dubbele spaties, Non-Breaking spaties etc. Wat ik soms dan doe is "vbLf" of chr(10) even tijdelijk vervangen door de tekst "[Linefeed]". En dan verderop weer terug omzetten Replace(.... "[Linefeed]" -->chr(10) ) o.i.d. Niet al te sjiek, maar zorgt er wel voor dat je weer verder kan.

Zou ik dan wel in een aparte functie(s) wegwerken, dan vervuil je je hoofdcode niet, en kan je het makkelijk verder bijpoetsen of uitbreiden binnen de functie(s) waar nodig.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
  vrijdag 29 april 2016 @ 21:13:31 #232
77676 The_vice
alweer 'n idee?
pi_161808834
quote:
0s.gif Op woensdag 23 maart 2016 10:59 schreef Doevelaer het volgende:
Wie weet of dit kan en hoe het dan werkt:

Ik wil graag opmaak, formules e.d. van het werkblad A naar werkblad B kopiëren, echter zonder dat de gegevens in werkblad B overschreven worden.
.......
Als de formulerijen in alle 50 sheets écht op dezelfde adressen staan.
Dan (in backup testen)

• Groepeer de desbetreffende sheets • En dan word alles wat je doet op de achterliggende gegroepeerde sheets herhaald. Dus wat je plakt, typt, opmaakt, print instellingen etc.
• niet vergeten, groepering weer opheffen.

persoonlijk ben ik geen fan van meerdere werkbladen met min of meer zelfde inhoud. Maar als je het echt nodig hebt dan zou ik het middels boven beschreven groepeer oplossing oplossen.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
pi_161810074
quote:
0s.gif Op vrijdag 29 april 2016 20:59 schreef The_vice het volgende:
Speciale karakters zijn vaak struikelpunten in code. Je wilt niet weten hoe vaak ik me blind zit te staren op dubbele spaties, Non-Breaking spaties etc. Wat ik soms dan doe is "vbLf" of chr(10) even tijdelijk vervangen door de tekst "[Linefeed]". En dan verderop weer terug omzetten Replace(.... "[Linefeed]" -->chr(10) ) o.i.d. Niet al te sjiek, maar zorgt er wel voor dat je weer verder kan.
Hm lastig, nog nooit eerder zoiets gedaan. Ik denk dat ik 2 opties heb om uit te werken:

-de harde enters in de cellen laten staan en VBA die bij het uitlezen van de cellen laten herkennen en op 1 of andere wijze in de tekststring verwerken; geen idee of dat kan en zo ja hoe
-de harde enters in die cellen weghalen en in betreffende celtekst op de juiste plekken iets van chr(10) ertussen fietsen??

dus een celtekst a la adres1chr(10)plaats1 ??

-edit
na wat googelen denk ik dat ik wellicht het beste die cellen met line breaks in mijn basislijst kan vervangen door losse cellen met elk 1 regel
En in de code die ik nu heb die de tekststring samenstelt daar waar nodig een char(10) tussen plakken
-edit2
dat laatste heb ik net getest, dat krijg ik werkend
vandeweek verder

[ Bericht 7% gewijzigd door Modus op 29-04-2016 23:01:39 ]
  vrijdag 29 april 2016 @ 22:09:34 #234
85514 ralfie
!Yvan eht nioj
pi_161811502
quote:
0s.gif Op vrijdag 29 april 2016 19:44 schreef Modus het volgende:
Bij het inlezen van de csv kan ik nog een paar dingen instellen, zoals de seperator (werkt verder goed nu) en de line break, maar ik neem aan dat die slaat op einde van de hele regel en niet op 1 'losse entry'.
Integendeel, lijkt me juist heel onlogisch dat die op het einde van de regel slaat en niet op een 'losse entry'. Heb je het al geprobeerd?
pi_161811823
quote:
0s.gif Op vrijdag 29 april 2016 22:09 schreef ralfie het volgende:

[..]

Integendeel, lijkt me juist heel onlogisch dat die op het einde van de regel slaat en niet op een 'losse entry'. Heb je het al geprobeerd?
Ja. Hij liep vast op de 2e regel in de csv (dus de 1e regel met data). Toen gezorgd dat de cel die daarbij hoort geen line breaks had, en opnieuw geprobeerd. Toen begon de appl. te miepen over hetzelfde item, maar dan 1 regel lager. De meldingen die die app. geeft zijn nogal summier, maar geeft wel aan welke regel (en welk item op die regel) van de csv problemen geeft.
  zaterdag 30 april 2016 @ 01:40:56 #236
77676 The_vice
alweer 'n idee?
pi_161816518
quote:
0s.gif Op vrijdag 29 april 2016 22:17 schreef Modus het volgende:
[..]
Ja. Hij liep vast op de 2e regel in de csv (dus de 1e regel met data). Toen gezorgd dat de cel die daarbij hoort geen line breaks had, en opnieuw geprobeerd. Toen begon de appl. te miepen over hetzelfde item, maar dan 1 regel lager. De meldingen die die app. geeft zijn nogal summier, maar geeft wel aan welke regel (en welk item op die regel) van de csv problemen geeft.
Heb je notepad++? Daarin kan je met knop "¶" (Show all characters) controleren wat in je csv zit (of terecht is gekomen).
Als ik een linefeed in een cell stop, komen er in de .csv Saveas van Excel zelf ineens quotes omheen te staan. Kan soms ook weer onwenselijk zijn.

Is de applicatie waar je in wilt importeren voorzien van een goede help file/specificatie, of ergens een support van de maker beschikbaar? Dan wil voorbeeld opsturen van CSV ook nog wel eens voor verheldering kunnen zorgen. Als de makers uitgingen van netjes gekamde fris gewassen csv's heb je zomaar kans op issues :)
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
pi_161819284
Ik heb geen Notepad++ beschikbaar. Voor de app. is een handleiding beschikbaar maar die is ook vrij beperkt. Namen van de kolomheaders en nog wat info en daar houdt het nu mee op.

1 van de velden is bv. een eenheid (kg, liter etc). Bij handmatig invoeren krijg je hier een dropdown (de app is een webform). Je zou verwachten dat de csv dan precies die termen moet gebruiken. Nee dus. Tig variaties geprobeerd, kg, KG, KILO, KILOGRAM etc. Werd allemaal niet geaccepteerd. Wat moet het wel zijn: als je in de source van dat webform kijkt zie je dat elk item in die dropdown een code heeft (100, 200, 300 etc). Die maar eens geprobeerd en dat bleek het geval. Wordt nergens over gerept in de handleiding en dat vond ik wel slecht.

Met jouw tips en verder googelen lijkt dit linebreakding nu opgelost (maar kan dat dinsdag pas weer testen).

Verder moeten ingevoerde getallen altijd 3 cijfers achter de komma hebben voor de app. Mijn eerste versie deed dat zonder problemen, maar jouw script door elke cel uit te lezen naar een tekststring pakt die niet, ondanks ingestelde veldsettings. Moet ik ook nog uitzoeken.
  zaterdag 30 april 2016 @ 13:08:45 #238
77676 The_vice
alweer 'n idee?
pi_161821475
quote:
0s.gif Op zaterdag 30 april 2016 10:23 schreef Modus het volgende:
Ik heb geen Notepad++ beschikbaar.
Is gratis te downloaden en ook als portable van usb stick te draaien, mocht je niet kunnen installeren.
quote:
Verder moeten ingevoerde getallen altijd 3 cijfers achter de komma hebben voor de app. Mijn eerste versie deed dat zonder problemen, maar jouw script door elke cel uit te lezen naar een tekststring pakt die niet, ondanks ingestelde veldsettings. Moet ik ook nog uitzoeken.
Kan wel kloppen, de Array is als een Variant gedefinieerd, die zal dus zelfstandig nummer afronding toepassen, als een waarde numeriek is. In je directe opgeslagen CSV wordt het aantal cijfers achter de komma zoals je in Excel hebt ingesteld (per veld) als tekst opgeslagen.

Middels een If Then Else afhandeling kan je in specifiek rijen/kolommen (array coordinaten) het wel oplossen.
Zie voorbeeldje binnen j loop:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    For j = 1 To kolommen
        'met aangepaste formatting
        'rij 1 is header in voorbeeld,
        'vanaf kolom 2 data
        If j > 1 And i > 1 Then
           'format "#,##0.00" naar wens
           tekst = tekst & _
                   Format(myArray(i, j), "#,##0.00") _
                   & ";"
        Else
            tekst = tekst & myArray(i, j) & ";"
        
        End If
        'en andere gewenste opmaak
              
    Next j

In voorbeeld slechts met 2 cijfers achter de komma. Ik ga het je natuurlijk niet te makkelijk maken.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
  zaterdag 30 april 2016 @ 13:56:42 #239
346939 Janneke141
Green, green grass of home
pi_161822471
Is er een formule om het aantal cellen in een reeks te tellen met een bepaalde opmaak?

Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Opinion is the medium between knowledge and ignorance (Plato)
  zaterdag 30 april 2016 @ 14:50:44 #240
62215 qu63
..de tijd drinkt..
pi_161823480
quote:
0s.gif Op zaterdag 30 april 2016 13:56 schreef Janneke141 het volgende:
Is er een formule om het aantal cellen in een reeks te tellen met een bepaalde opmaak?

Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
iig wel VBA: https://support.microsoft.com/en-us/kb/2815384

Of met filters: http://trumpexcel.com/201(...)ound-color-in-excel/

Of met XL4 Macro's die geenmacro's zijn*? http://stackoverflow.com/(...)el/20491479#20491479
*Die zijn voor mij ook nieuw.. Meer info hierover is hier te vinden.

[ Bericht 10% gewijzigd door qu63 op 30-04-2016 15:00:03 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 30 april 2016 @ 15:03:29 #241
346939 Janneke141
Green, green grass of home
pi_161823749
quote:
0s.gif Op zaterdag 30 april 2016 14:50 schreef qu63 het volgende:

[..]

iig wel VBA: https://support.microsoft.com/en-us/kb/2815384

Of met filters: http://trumpexcel.com/201(...)ound-color-in-excel/

Of met XL4 Macro's die geenmacro's zijn*? http://stackoverflow.com/(...)el/20491479#20491479
*Die zijn voor mij ook nieuw.. Meer info hierover is hier te vinden.
Dank. Na het weekend eens naar kijken.
Opinion is the medium between knowledge and ignorance (Plato)
  zaterdag 30 april 2016 @ 15:13:32 #242
62215 qu63
..de tijd drinkt..
pi_161823917
quote:
0s.gif Op vrijdag 29 april 2016 21:41 schreef Modus het volgende:

[..]

Hm lastig, nog nooit eerder zoiets gedaan. Ik denk dat ik 2 opties heb om uit te werken:

-de harde enters in de cellen laten staan en VBA die bij het uitlezen van de cellen laten herkennen en op 1 of andere wijze in de tekststring verwerken; geen idee of dat kan en zo ja hoe
-de harde enters in die cellen weghalen en in betreffende celtekst op de juiste plekken iets van chr(10) ertussen fietsen??

dus een celtekst a la adres1chr(10)plaats1 ??

-edit
na wat googelen denk ik dat ik wellicht het beste die cellen met line breaks in mijn basislijst kan vervangen door losse cellen met elk 1 regel
En in de code die ik nu heb die de tekststring samenstelt daar waar nodig een char(10) tussen plakken
-edit2
dat laatste heb ik net getest, dat krijg ik werkend
vandeweek verder
Windows kent wel verschillende newlines he, \n en \r (newline en carriage return). in VBA dus chr(10) en chr(13), misschien dat ie daar over struikeld?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 30 april 2016 @ 17:21:50 #243
77676 The_vice
alweer 'n idee?
pi_161826748
quote:
0s.gif Op zaterdag 30 april 2016 13:56 schreef Janneke141 het volgende:
Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Zulke dingen zou ik eigenlijk gewoon aan collega teruggeven, onder motto "Onwerkbare troep, maak er eerst maar data van".

Wat je middels onderstaand vast zelf kan doen, maar dat hoef je je collega natuurlijk niet te vertellen.
1
2
3
4
5
6
7
8
9
10
11
Sub LoopRange()
    Dim rCell As Range
    Dim rRng As Range
    'Aanpassen voor gekleurde range die je hebt
    Set rRng = ActiveSheet.Range("A1:B6")
    For Each rCell In rRng.Cells
        Debug.Print rCell.Address, rCell.Interior.Color
        'herhaal originel cell waarde (zou leeg moeten zijn in collega geval)
        rCell.Value = rCell.Value & " [" & rCell.Interior.Color & "]"
    Next rCell
End Sub
en dan zoeken vervangen met wat jij erin wilt hebben staan.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
pi_161831822
quote:
0s.gif Op vrijdag 29 april 2016 19:30 schreef Modus het volgende:

[..]

In E2 zou dan zoiets moeten komen
[ code verwijderd ]

en dan doortrekken, maar om mij nog onduidelijke reden kan ie dan de 08:03:00 en de 08:06:00 niet vinden die er wel degelijk in staan, dan geeft ie een #N/B, de 8:02 en 8:01 kan ie wel vinden. Echt GEEN IDEE hoe dit kan. Ms toch iets met dat tijdrekenen, dat is altijd gekut.

11:01:00 vindt ie logischerwijs ook niet, want die staat niet in kolom C.
Thanks! Al een heel stuk verder hiermee ^O^
Alleen idd 8:03, 8:06 en 8:10 blijven een #N/B geven. :{

edit: En opgelost, door de tijden nogmaals in te typen 8)7
  zaterdag 30 april 2016 @ 20:48:25 #245
62215 qu63
..de tijd drinkt..
pi_161831864
quote:
0s.gif Op zaterdag 30 april 2016 20:46 schreef GotC het volgende:

[..]

Thanks! Al een heel stuk verder hiermee ^O^
Alleen idd 8:03, 8:06 en 8:10 blijven een #N/B geven. :{

edit: En opgelost, door de tijden nogmaals in te typen 8)7
Vervang C:D eens door $C$1:$D$999 (of hoe lang je rij ook is)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_161925762
Ik heb de inhoud van 330 mailtjes in Excel weten te krijgen in één bestand, onder elkaar.

De inhoud is als volgt, en dat dus 330 keer (duizenden regels dus):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sent time: 01/01/2010 12:26:01 PM
To: email@adres.com
Subject: subject
Formulier
Tekst
Ritdatum: 01012000
Naam contact:
Email contact:
Woonplaats contact:
Naam bedrijf:
Soort:
Van: 
Naar
Start:
Vanaf:
Tijd 1:
Tijd 2:
Tijd 3:
Tijd 4:
Vervolg:
Eindadres:
Onkosten:
Vertraging: Nee
Bestanden: 
Timestamp: 12345678

Ik wilde een filter maken voor een aantal van deze gegevens, namelijk "Ritdatum, Naam Bedrijf, Soort, Van, Naar, Bestanden". Alle overige informatie uit die mails wil ik verwijderen.

Ik geloof dat dit mogelijk is met advanced filter, maar ik kom er niet uit. Wie helpt? :@
  woensdag 4 mei 2016 @ 19:02:26 #247
346939 Janneke141
Green, green grass of home
pi_161926314
quote:
11s.gif Op woensdag 4 mei 2016 18:38 schreef RacerDKB het volgende:
Ik heb de inhoud van 330 mailtjes in Excel weten te krijgen in één bestand, onder elkaar.

De inhoud is als volgt, en dat dus 330 keer (duizenden regels dus):
[ code verwijderd ]

Ik wilde een filter maken voor een aantal van deze gegevens, namelijk "Ritdatum, Naam Bedrijf, Soort, Van, Naar, Bestanden". Alle overige informatie uit die mails wil ik verwijderen.

Ik geloof dat dit mogelijk is met advanced filter, maar ik kom er niet uit. Wie helpt? :@
Ik zou voor mijn eigen gemak denk ik een hulpkolommetje maken met een ALS-lus die enen genereert op de gewenste regels, en nullen op de rest.
Opinion is the medium between knowledge and ignorance (Plato)
pi_161929525
quote:
0s.gif Op woensdag 4 mei 2016 19:02 schreef Janneke141 het volgende:

[..]

Ik zou voor mijn eigen gemak denk ik een hulpkolommetje maken met een ALS-lus die enen genereert op de gewenste regels, en nullen op de rest.
Dat is op zich een goed idee, maar als ik bijvoorbeeld "Ritdatum" wil pakken, de waarde die daar achter staat is uiteraard telkens een andere waarde.

<troepregels>
Ritdatum: 01052016
<troepregels>
Ritdatum: 02052016
<troepregels>

Hoe pak ik die dan allemaal?

1=IF(A6="Ritdatum:",1,0)

Een sterretje * er achter zetten werkt niet :P
pi_161929552
quote:
0s.gif Op zaterdag 30 april 2016 13:08 schreef The_vice het volgende:
In voorbeeld slechts met 2 cijfers achter de komma. Ik ga het je natuurlijk niet te makkelijk maken.
Gisteren en vandaag minder lang aan kunnen werken dan gehoopt. Ben nu zover dat ik een mooie csv kan wegschrijven, op het oog (Notepad) helemaal compleet. 1 regel met kopteksten, daaronder 4 regels met data. Alle eerste items van die 4 regels zijn gevuld.

En wat gebeurt bij de laatste keer csv inlezen die ik heb kunnen doen: applicatie zegt dat het eerste item van de eerste dataregel leeg is 8)7.
Terwijl dat stuk code werkend was en ik ook niks veranderd heb. Om gek van te worden. Los je issue 1 op, heb je daardoor ineens issue 2. Los je die op, werkt 1 weer niet meer of ontstaat issue 3. :{.

De code die ik tot nu toe heb voor het creëren van de tekststring:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim myArray() As Variant
Dim myArray2() As Variant
Dim text As String
myArray = Range("A1:J1")
Dim s
Dim intColumns1
intColumns1 = UBound(myArray, 2)
For s = 1 To intColumns1
        text = text & myArray(1, s) & ";"
        Next s
        text = Left(text, Len(text) - 1)
        text = text & vbCrLf

myArray2 = Range("A2:N" & InpLRow)
Dim j, k
Dim intColumns2
Dim intRows
intColumns2 = UBound(myArray2, 2)
intRows = UBound(myArray2, 1)

For j = 1 To intRows
    For k = 1 To intColumns2
        If k = 2 Then
            text = text & """" & myArray2(j, k) & Chr(10) & myArray2(j, (k + 1)) & Chr(10) & myArray2(j, (k + 2)) & Chr(10) & myArray2(j, (k + 3)) & Chr(10) & myArray2(j, (k + 4)) & """" & ";"
            k = 6
        Else
            text = text & myArray2(j, k) & ";"
        End If
        Next k
        text = Left(text, Len(text) - 1)
        text = text & vbCrLf
Next j
text = Left(text, Len(text) - 2)
2 aparte arrays gemaakt, de eerste voor de kopteksten, de 2e voor de data. Ik wilde in sommige velden (adressen) harde enters toepassen en dit was de enige manier waarop ik die werkend kreeg (in de basisgegevens elke adresregel in een aparte cel en ze via regel 24 samenvoegen).

Als ik de csv open in Notepad is het toch echt zoiets:

koptekst1;koptekst2;koptekst3;koptekst4
datarij1item1;datarij1item2;datarij1item3;datarij1item4
datarij2item1;datarij2item2;datarij2item3;datarij2item4
etc.

Het is mij vooralsnog een groot raadsel hoe de app. dan kan zeggen dat datarij1item1 leeg is.

Daar loopt ie nu op vast dus ik kan op dit moment ook nog niet zeggen mijn oplossing voor de linebreaks goed werken. In de helpbestanden stond iig dat als binnen een item 'leestekens' oid voorkomen, het item dan tussen aanhalingstekens moet staan. Ook dat ziet er goed uit als ik de csv in Notepad bekijk.
  woensdag 4 mei 2016 @ 20:52:24 #250
346939 Janneke141
Green, green grass of home
pi_161929785
quote:
10s.gif Op woensdag 4 mei 2016 20:46 schreef RacerDKB het volgende:

[..]

Dat is op zich een goed idee, maar als ik bijvoorbeeld "Ritdatum" wil pakken, de waarde die daar achter staat is uiteraard telkens een andere waarde.

<troepregels>
Ritdatum: 01052016
<troepregels>
Ritdatum: 02052016
<troepregels>

Hoe pak ik die dan allemaal?
[ code verwijderd ]

Een sterretje * er achter zetten werkt niet :P
Gebruik de functie LINKS, die pakt het linkerdeel van een tekst.
Als in A6 staat 'Ritdatum: 21-4-2016', dan levert de functie =LINKS(A6;8) de tekst "Ritdatum".
Opinion is the medium between knowledge and ignorance (Plato)
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')