Stom ik heb niks gezegd. Zit hier met twee computer naast elkaar te werken even. De computer waar ik de data opvraag heeft Excel 2003... 2007 moet geen probleem zijn...quote:Op vrijdag 13 augustus 2010 13:19 schreef Deetch het volgende:
[..]
Excel 2007 heeft veel meer kolommen tot zijn beschikking.
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 | Dim tekst As String Dim myArray() As String tekst = Range("a1").Value 'lengte bepalen lengte = Len(tekst) 'aantal delimiters bepalen Count = 0 For i = 1 To lengte If Mid$(tekst, i, 1) = "," Then Count = Count + 1 Next 'aantal items in string vastleggen Lines = Count + 1 ReDim myArray(Lines) 'Array vullen met items myArray() = Split(tekst, ",", -1, 1) 'array items in aparte regels plaatsen Range("A2").Select For i = 0 To UBound(myArray) ActiveCell.Offset(i, 0).Value = myArray(i) Next i End Sub |
1 2 3 4 5 6 7 8 9 10 | If Not Intersect(Target, Range("B1:B3")) Is Nothing Then If Range("B1:B3").Cells.SpecialCells(xlCellTypeBlanks).Count = 1 Then MsgBox "Nee man er staat toch al een waarde ingevuld!" Target.Clear End If End If End Sub |
Np, je moet m nog wel wat aanpassenquote:Op maandag 16 augustus 2010 10:13 schreef imso1986 het volgende:
Heb het weer gevonden.... Vakantie nergens goed voor.
Bedankt!
Ik wil een lijstje van verschillende IF forumle's maken. Omdat de striplengte's beperkt zijn (max tot 500mm) is dat dus niet zo veel werk.quote:
Hij werkt zo niet? Ik gebruik de niewste versie van excelquote:Op maandag 16 augustus 2010 11:40 schreef DaFan het volgende:
=AFRONDEN.NAAR.BENEDEN((A1+60)/60;0)
=ROUNDDOWN(A1+60)/60;0)
Hodfr, had sneller moeten tikkenquote:Op maandag 16 augustus 2010 11:40 schreef DaFan het volgende:
=AFRONDEN.NAAR.BENEDEN((A1+60)/60;0)
=ROUNDDOWN(A1+60)/60;0)
Puntkomma's -> komma's.quote:Op maandag 16 augustus 2010 11:46 schreef kanovinnie het volgende:
[..]
Hij werkt zo niet? Ik gebruik de niewste versie van excel
Bij deze krijg ik een error door de /60 in het eerste gedeeltequote:Op maandag 16 augustus 2010 11:46 schreef qu63 het volgende:
Kan je de lengte niet delen door 60 en als er een rest is er 1 bij optellen? Dan kom je ook uit op het gewenste aantal bouten, toch?
=AFRONDEN(121/60;0)+ALS(REST(121;60)>0;1;0)
en dan 121 vervangen door D6
Huh? Bij mij werkt ie wel! maak er anders afronden((121/60);0)+ALS(REST(121;60)>0;1;0) van?quote:Op maandag 16 augustus 2010 11:48 schreef kanovinnie het volgende:
[..]
Bij deze krijg ik een error door de /60 in het eerste gedeelte
Hoezo kutformule?quote:
En die van mij werkt niet als de lengte 179 is bijvoorbeeldquote:Op maandag 16 augustus 2010 11:51 schreef DaFan het volgende:
[..]
Mijne is korter
That's what she said
Ja hoorquote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |