abonnement Unibet Coolblue
pi_85230332
quote:
Op vrijdag 13 augustus 2010 13:19 schreef Deetch het volgende:

[..]

Excel 2007 heeft veel meer kolommen tot zijn beschikking.
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...
pi_85234472
Zonder 2003 kan het ook.

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
Sub TextToRows()

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
Let op:
1. originele string moet in A1 straan
2. losse items komen in A2 en lager
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  maandag 16 augustus 2010 @ 09:15:48 #278
311526 imso1986
It's just a game
pi_85338409
Hallo,

Ik ben bezig met een exel document en kom het volgende probleem tegen.

Ik heb het volgeden A
B
C

wanneer er bij A iets ingevuld wordt moet het zo zijn dat de cellen achter B en C geblokkeerd worden.
Dit moet ook zo zijn voor B wanneer hier iets ingevuld wordt mogen A en C niet meer ingevuld worden. En voor C hetzelfde verhaal.

Is hier een formule voor? Ik kom er zelf niet uit? Ben benieuwd naar jullie hulp/antwoorden/bevindingen.

Groetend,

Imco Osinga
pi_85338861
Diezelfde vraag heb ik al eens opgelost.
Ook van jou, dus zoek maar even terug :)

Edit: Zelfde topic zelfs...

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)

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
  maandag 16 augustus 2010 @ 10:13:10 #280
311526 imso1986
It's just a game
pi_85339435
Heb het weer gevonden.... Vakantie ;) nergens goed voor.

Bedankt!
  maandag 16 augustus 2010 @ 11:07:17 #281
84430 kanovinnie
Wie dit leest is gek!
pi_85340827
Om het aantal bouten in een strip uit te rekenen heb ik de volgende formule toegepast:

=IF(D$6<=60,"1","0")

Het is de bedoeling dat er in lengte X (die in D$6 staat) een aantal bouten komen. Het aantal hangt af van de lengte van de strip. De bouten moeten minimaal om de 40, en max om de 60 mm komen.
Deze formule is voor een stuk strip wat maximaal 60 mm is, en waar dus 1 bout in komt.
Hoe kan ik er nu voor zorgen dat er een 0 komt te staan als het stuk korter is dan 40 mm (en er dus geen bout in hoeft)?
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_85341043
Uhm waarom niet gewoon IF(D6<=40,0,1)
pi_85341051
quote:
Op maandag 16 augustus 2010 10:13 schreef imso1986 het volgende:
Heb het weer gevonden.... Vakantie ;) nergens goed voor.

Bedankt!
Np, je moet m nog wel wat aanpassen :)
  maandag 16 augustus 2010 @ 11:35:12 #284
84430 kanovinnie
Wie dit leest is gek!
pi_85341626
quote:
Op maandag 16 augustus 2010 11:15 schreef DaFan het volgende:
Uhm waarom niet gewoon IF(D6<=40,0,1)
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.

Dus zo moet het eruit komen te zien:

40-60 > 1 bout
60-120 > 2 bouten
120-180 > 3 bouten
180-240 > 4 bouten

etc. Door die IF formule te gebruiken wil ik als het ware 1 van de cellen " actief maken", en zo door alle cellen bij elkaar op te tellen erachter komen hoeveel bouten ik nodig heb.

Ik hoop dat de uitleg een beetje duidelijk is :P
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_85341793
=AFRONDEN.NAAR.BENEDEN((A1+60)/60;0)

=ROUNDDOWN(A1+60)/60,0)

[ Bericht 1% gewijzigd door DaFan op 16-08-2010 11:48:30 ]
  maandag 16 augustus 2010 @ 11:46:29 #286
62215 qu63
..de tijd drinkt..
pi_85342001
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 ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 16 augustus 2010 @ 11:46:50 #287
84430 kanovinnie
Wie dit leest is gek!
pi_85342013
quote:
Op maandag 16 augustus 2010 11:40 schreef DaFan het volgende:
=AFRONDEN.NAAR.BENEDEN((A1+60)/60;0)

=ROUNDDOWN(A1+60)/60;0)
Hij werkt zo niet? Ik gebruik de niewste versie van excel
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  maandag 16 augustus 2010 @ 11:46:53 #288
62215 qu63
..de tijd drinkt..
pi_85342014
quote:
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 tikken ;(
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_85342047
quote:
Op maandag 16 augustus 2010 11:46 schreef kanovinnie het volgende:

[..]

Hij werkt zo niet? Ik gebruik de niewste versie van excel
Puntkomma's -> komma's.
pi_85342062
quote:
Op maandag 16 augustus 2010 11:46 schreef qu63 het volgende:

[..]

Hodfr, had sneller moeten tikken ;(
Epic Fail en een kutformule.
  maandag 16 augustus 2010 @ 11:48:30 #291
84430 kanovinnie
Wie dit leest is gek!
pi_85342069
quote:
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 ;)
Bij deze krijg ik een error door de /60 in het eerste gedeelte ;(
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  maandag 16 augustus 2010 @ 11:50:00 #292
62215 qu63
..de tijd drinkt..
pi_85342133
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 ;(
Huh? Bij mij werkt ie wel! maak er anders afronden((121/60);0)+ALS(REST(121;60)>0;1;0) van?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 16 augustus 2010 @ 11:50:15 #293
62215 qu63
..de tijd drinkt..
pi_85342147
quote:
Op maandag 16 augustus 2010 11:48 schreef DaFan het volgende:

[..]

Epic Fail en een kutformule.
Hoezo kutformule?

Oh bugger, laat maar :')
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_85342163
Hij heeft een engelse versie dus puntkomma's en die shit werken allemaal.
Krijgt ws #NAME? foutmelding.
pi_85342180
quote:
Op maandag 16 augustus 2010 11:50 schreef qu63 het volgende:

[..]

Hoezo kutformule?
Mijne is korter :D

That's what she said ;(
  maandag 16 augustus 2010 @ 11:51:33 #296
62215 qu63
..de tijd drinkt..
pi_85342192
quote:
Op maandag 16 augustus 2010 11:51 schreef DaFan het volgende:

[..]

Mijne is korter :D

That's what she said ;(
En die van mij werkt niet als de lengte 179 is bijvoorbeeld :')
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 16 augustus 2010 @ 11:52:32 #297
84430 kanovinnie
Wie dit leest is gek!
pi_85342227
Vaag, de eerste formule rond hem niet af, maar als ik dan nog een afrond forumle gebruik wel.
Maargoed, hij doet het.
Alleen als de lengte korter dan 40 mm is (wat voorkomt) gooit hij er nog steeds een bout in.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_85342269
Crap :P

=IF(A1<=40,0,ROUNDDOWN((A1+60)/60,0))
pi_85342284
qu maak jij ff nieuw topic tytyty
  maandag 16 augustus 2010 @ 11:55:14 #300
62215 qu63
..de tijd drinkt..
pi_85342334
quote:
Op maandag 16 augustus 2010 11:53 schreef DaFan het volgende:
qu maak jij ff nieuw topic tytyty
Ja hoor :')
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')