abonnement Unibet Coolblue Bitvavo
  FOK!-Schrikkelbaas woensdag 17 januari 2007 @ 13:50:32 #101
862 Arcee
Look closer
pi_45436152


Dat vierkantje dus. Als je links de datums invoert en dan rechts de formule meekopieert, dan moet 't goed gaan.
Never in the entire history of calming down did anyone ever calm down after being told to calm down.
  woensdag 17 januari 2007 @ 13:55:45 #102
85514 ralfie
!Yvan eht nioj
pi_45436310
quote:
Op woensdag 17 januari 2007 13:22 schreef Meeldraad het volgende:
@ Ralphies oplossing:
Hoe maak ik een worksheet_onchange macro? Dit is hoe ik het geprobeerd heb: Extra => Macro => Nieuwe macro opnemen => naamgeven, OK => stopknop. Vervolgens in Macro's bewerken heb ik alles geselecteerd en jouw scriptje eroverheen geplakt. Daarna heb ik A1:A100 vervangen door B3 (aangezien er maar een cel is waarin je de geboortedatum moet invullen). Misschien heb ik een fout gemaakt, maar het resultaat is in ieder geval geen streepjes en de rekencellen rekenen er niet mee. Een voorbeeld van een rekencel is dit:
ga naar extra->macro->visual basic editor
Linksboven in de project explorer (of hoe dat ook heet) dubbelklikken op het blad waarop je het wilt hebben (bijv blad 1)
daarna kun je de code in het scherm plakken.
  woensdag 17 januari 2007 @ 14:20:35 #103
107951 JortK
Immer kwaliteitsposts
  woensdag 17 januari 2007 @ 14:27:28 #104
165854 Meeldraad
Lekker doorstampen
pi_45437332
@ Arcee
Klopt die oplossing was ook werkzaam, maar als je weet hoeveel verwijzingen ik dan handmatig zou moeten omzetten, daar wordt je niet blij van, komt nog eens bij dat de formules nog ondoorzichtiger worden dan ze al zijn en als er ergens toch nog fouten inzitten wordt het nog lastiger ze op te sporen. De formules moeten zo gestroomlijnd mogelijk zijn. En zoals gezegd lost het niet alle problemen op. Het invoeren van een datum mét streepjes leidt tot foute waarden.

@ralfie
Oké gelukt, en inderdaad maakt het nu niet uit of ik ze met of zonder streepje invoer, uiteindelijk staan ze er zoals ik ze wil zien. A sight for sore eyes! Alleen de rekencellen doen er nog niks mee. Moet ik misschien een andere verwijzing gebruiken dan in mijn vorige post?
Contemnunt spinam cum rosae deliberant
  FOK!-Schrikkelbaas woensdag 17 januari 2007 @ 14:40:27 #105
862 Arcee
Look closer
pi_45437801
quote:
Op woensdag 17 januari 2007 14:27 schreef Meeldraad het volgende:
@ Arcee
Klopt die oplossing was ook werkzaam, maar als je weet hoeveel verwijzingen ik dan handmatig zou moeten omzetten, daar wordt je niet blij van, komt nog eens bij dat de formules nog ondoorzichtiger worden dan ze al zijn en als er ergens toch nog fouten inzitten wordt het nog lastiger ze op te sporen. De formules moeten zo gestroomlijnd mogelijk zijn. En zoals gezegd lost het niet alle problemen op.
Waar heb je die datums die je invoert dan allemaal al staan?
quote:
Het invoeren van een datum mét streepjes leidt tot foute waarden.
Daar maak je dan weer een aparte ALS voor. In jouw Nederlandse versie zou dat dan zo moeten worden:

DATUMWAARDE(TEKST.SAMENVOEGEN(LINKS(B3;2);"-";DEEL(B3;ALS(DEEL(B3;3;1)="-";4;3);2);"-";RECHTS(B3;4))

Ervaanuitgaande dat die DATUMWAARDE-functie zo al werkt.

Die formule hoef je maar 1 keer in te voeren en mee te kopiëren.

Nederlandse versies zijn kut!

[ Bericht 3% gewijzigd door Arcee op 17-01-2007 14:46:01 ]
Never in the entire history of calming down did anyone ever calm down after being told to calm down.
pi_45438537
met ctrl-H kun je in de formules in een werkblad heel eenvoudig vervangingen toepassen.
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
  woensdag 17 januari 2007 @ 21:35:57 #107
129106 Chav
Oi Oi Oi !!!
pi_45452175
Ik word gek! Hij zegt steeds dat mn sub niet goed is.

Wat ik doe.

extra, macro, nieuwe macro opnemen, macronaam geven, knop maken, macro toevoegen en dan de formule in VB. Ik krijg dan de fout: Compileerfout: Sub of Function is niet gedefinieerd.

Grrrrr!
In me Burberry......
pi_45463906
Een paar kleine handige macrotjes die ikzelf veel gebruik bij dateverwerking (tevens schopje)

Stel je hebt een kolom met datat erin maar ook lege plekken tussen de data. Met ctrl+pijltje naar beneden of naar boven kun je dan naar de eerstvolgende (lager danwel hoger gelegen) lege cel. Soms wil je echter direct naar de alleronderste waarde of de allerbovenste waarde, daarvoor heb ik onderstaande twee macro's gemaakt.

Als je naar de onderste cel met een waarde wilt gaan kun je deze macro gebruiken
1
2
3
4
Sub Last_data()
    Application.Goto Reference:="R65536C[0]"
    Selection.End(xlUp).Select
End Sub


Als je naar de bovenste cel met een waarde wilt gaan kun je deze macro gebruiken
1
2
3
4
Sub First_data()
    Application.Goto Reference:="R1C[0]"
    If ActiveCell.Value = "" Then Selection.End(xlDown).Select
End Sub
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
pi_45464258
Onderstaande macro geeft elke cel in de actieve kolom een zelf te kiezen kleur als de waarde die erin staat overeenkomt met de waarde (getal of string) die je in de inputbox invoert. Macro begint in de actieve cel en gaat door tot eerstvolgende lege cel.

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

Dim Mark As Integer
Dim Marker, Markcolor As String

Marker = InputBox("Welke tekenreeks (getal of string) staat in de te markeren cel?", "Merkteken")
If Marker = "" Then Exit Sub

Markcolor = InputBox("Welke kleur markering? (rood, groen, blauw, geel, roze)", "Markerkleur", "rood")
bool = Markcolor = "rood" Or Markcolor = "groen" Or Markcolor = "blauw" Or Markcolor = "geel" Or Markcolor = "roze"
If bool = False Then Exit Sub
If Markcolor = "rood" Then Mark = 3
If Markcolor = "groen" Then Mark = 4
If Markcolor = "blauw" Then Mark = 5
If Markcolor = "geel" Then Mark = 6
If Markcolor = "roze" Then Mark = 7

Do Until ActiveCell.Value = ""
    
    If ActiveCell = Marker Then ActiveCell.Interior.ColorIndex = Mark
    If CStr(ActiveCell.Value) = Marker Then ActiveCell.Interior.ColorIndex = Mark
    ActiveCell.Offset(1, 0).Range("a1").Select
Loop
   
End Sub
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
  donderdag 18 januari 2007 @ 11:10:10 #110
85514 ralfie
!Yvan eht nioj
pi_45464704
quote:
Op woensdag 17 januari 2007 14:27 schreef Meeldraad het volgende:
@ralfie
Oké gelukt, en inderdaad maakt het nu niet uit of ik ze met of zonder streepje invoer, uiteindelijk staan ze er zoals ik ze wil zien. A sight for sore eyes! Alleen de rekencellen doen er nog niks mee. Moet ik misschien een andere verwijzing gebruiken dan in mijn vorige post?
ja, de cel geeft het nu als tekst weer. Om met deze tekst als datum te werken, moet je de functie DATUMWAARDE gebruiken, bijv
1=ALS(DATUMWAARDE(A1)>DATUMWAARDE("13-3-2001");"ja";"nee")
  donderdag 18 januari 2007 @ 12:01:27 #111
165854 Meeldraad
Lekker doorstampen
pi_45466421
@ ralfie
Dat is nog een relatief kleine toevoeging... even testen....


Wauw, ik geloof dat dit een oplossing is waar ik mee kan leven! Het is niet zo te regelen dat de celeigenschap al op datum staat en dat je vervolgens via een macro het hele streepverhaal bewerkstelligt? (Zoals gezegd, ik wil de formules zo kort mogelijk houden)

@ Arcee
Je formule krijg ik niet werkend. En de oplossing van ralfie is gestroomlijnder. Evengoed, enorm bedankt voor al je input. Heb ik echt gewaardeerd!

Als jullie er belangstelling bij hebben, wil ik het eindproduct wel naar je toemailen. Dan begrijp je misschien ook beter waarom het me te doen was en wie weet zie je nog dingen die beter of handiger zouden kunnen. Het is een sheet waarin je met relatief weinig variabelen, snel je inkomstenbelasting kunt uitrekenen. PM maar een mailadres bij belangstelling.
Contemnunt spinam cum rosae deliberant
  donderdag 18 januari 2007 @ 12:11:18 #112
165854 Meeldraad
Lekker doorstampen
pi_45466707
Trouwens, nog een vraag: de RANGE betreft 6 cellen, maar als ik het zo noteer: Range("c6;c22;c38;c54;c71;c87") werken ze niet, behalve de eerste waar ik mee getest heb, namelijk cel c22. (Bij c6 was ik arcee's opmerkingen aan het proberen).
Ze staan allemaal op tekst, dus daar ligt het niet aan. Ik zal het wel verkeerd genoteerd hebben... help?
Contemnunt spinam cum rosae deliberant
pi_45471354
* Deetch noteert worksheet_change idee voor later gebruik
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
  FOK!-Schrikkelbaas donderdag 18 januari 2007 @ 14:37:17 #114
862 Arcee
Look closer
pi_45471799
quote:
Op donderdag 18 januari 2007 12:01 schreef Meeldraad het volgende:
PM maar een mailadres bij belangstelling.
Zie m'n profiel. Je hebt zo te zien je PM niet geactiveerd.
Never in the entire history of calming down did anyone ever calm down after being told to calm down.
  donderdag 18 januari 2007 @ 16:40:50 #115
85514 ralfie
!Yvan eht nioj
pi_45476889
quote:
Op donderdag 18 januari 2007 12:01 schreef Meeldraad het volgende:
@ ralfie
Dat is nog een relatief kleine toevoeging... even testen....


Wauw, ik geloof dat dit een oplossing is waar ik mee kan leven! Het is niet zo te regelen dat de celeigenschap al op datum staat en dat je vervolgens via een macro het hele streepverhaal bewerkstelligt? (Zoals gezegd, ik wil de formules zo kort mogelijk houden)
Het probleem is dat een illegale datum door excel niet kan worden omgezet en dan kun je er in visual basic ook niks mee.Maar na wat experimenteren net iets uitgevonden. Cell.value2 geeft de ingevoerde waarde, ook als deze geen legale datum is. De aangepaste code wordt dan:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1:A100"), Target) Is Nothing Then
        On Error GoTo wrong
        Dim vale As String, length As Integer
        For Each cell In Target
            length = Len(cell.Value2)
            If length = 7 Or length = 8 And Not length = 0 Then
                If length = 7 Then
                    vale = "0" & cell.Value2
                Else
                    vale = cell.Value2
                End If
                cell.Value = DateValue(Left$(vale, 2) & "-" & Mid$(vale, 3, 2) & "-" & Right$(vale, 4))
            End If
        Next cell
    End If
    Exit Sub
wrong:
    MsgBox "De ingevulde waarde: '" & vale & "' is geen geldige datum!"
End Sub
Nu kun je je cellen wel op dd-mm-jjjj zetten, en er gewoon mee rekenen

[ Bericht 6% gewijzigd door ralfie op 18-01-2007 16:46:38 ]
  donderdag 18 januari 2007 @ 18:05:27 #116
165854 Meeldraad
Lekker doorstampen
pi_45480598
Exact!!! ZOOOO moet ie zijn!!! You just made my day! Elk biertje dat ik drink vandaag zal zijn op Ralph van Hoorn, wat een held! Zegt het voort!

Alle anderen, met name Arcee ook hartelijk dank!

Oh en als je nog belangstelling hebt bij het resultaat, dan moet je maar even een mailadres naar mijn inmiddels geactiveerde PM-inbox sturen.
Contemnunt spinam cum rosae deliberant
pi_45499548
Soms moet je duplicaten uit een kolom verwijderen. hiervoor heb ik twee macros geschreven:

De eerste macro verwijderd duplicaten als ze direct onder elkaar staan.
1, 1, 2, 2, 3, 4, 5, 1, 1,2
wordt
1, 2, 3, 4, 5, 1, 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Del_below_dupli()

' Deze macro kijkt of de cel onder de active cell dezelfde waarde bevat.
' Zo ja dan wordt deze verwijderd, anders wordt er verder gegaan
    
Do While ActiveCell.Value <> ""
    
    Curr = ActiveCell.Value
    ActiveCell.Offset(1, 0).Range("A1").Select
    Do
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp
    Loop While ActiveCell.Value = Curr
    
Loop
End Sub


De tweede macro verwijderd alle duplicaten uit een kolom.
1, 1, 2, 2, 3, 4, 5, 1, 1,2
wordt
1, 2, 3, 4, 5

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Del_duplicate_column()
'
' Deze macro verwijderd duplicaten uit een ongesorteerde kolom
' Hierbij wordt bovenaan begonnen
    
Do While ActiveCell.Value <> ""
    Check = ActiveCell.Value
    rij = ActiveCell.Row
    kol = ActiveCell.Column
    
    Do While ActiveCell.Value <> ""
        ActiveCell.Offset(1, 0).Range("a1").Select
        If ActiveCell.Value = Check Then
            Selection.Delete Shift:=xlUp
            Else: End If
        Loop
    
'activecell weer terug naar check cell en 1 cel naar beneden en do -loop
Range("a1").Select
ActiveCell.Offset(rij, kol - 1).Range("a1").Select
Loop

End Sub
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
pi_45549314
Deetch need your help again
Maat van me is naar het volgende op zoek.. ( dont ask me why )
Regel 1 heeft x velden gevuld
Regel 2 .. etc etc

Door het draaien van een macro wil hij op blad 2 het volgende krijgen
A1
B1
C1 D1 E1 F1 G1 etc..

Dus blad1 A1 komt op A1, Blad1 B1 komt op A2, Blad1 C1 komt op A3 en de rest komt naast A3..
de 2e regel van blad 1 gaat hetzelfde verder,

vb.
Regel 1 : 1 2 3 4 5 6 7
Regel 2 : a b c d e f g

blad 2:
1
2
3 4 5 6 7
a
b
c d e f g h
  zondag 21 januari 2007 @ 11:39:13 #119
85514 ralfie
!Yvan eht nioj
pi_45553922
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
34
35
36
Sub test()
Dim arr() As Integer
Dim vals() As Variant
Dim number As Integer
number = ThisWorkbook.Sheets("blad1").UsedRange.Count

ReDim arr(number, 2)
ReDim vals(number)

Dim x

For Each cell In ThisWorkbook.Sheets("blad1").UsedRange
    If Not cell.Value = "" Then
        arr(x, 1) = cell.Column
        arr(x, 2) = cell.Row
        vals(x) = cell.Value
        x = x + 1
    End If
Next cell


ThisWorkbook.Sheets("blad2").Activate
Dim drow As Integer, dcol As Integer

For y = 0 To x - 1
    dcol = arr(y, 1) - 2
    If dcol < 1 Then dcol = 1
    drow = arr(y, 2) * 3
    If arr(y, 1) = 1 Then
        drow = drow - 2
    ElseIf arr(y, 1) = 2 Then
        drow = drow - 1
    End If
    Cells(drow, dcol).Value = vals(y)
Next y
End Sub
hoeft alleen nog maar de sheets namen te veranderen mochten die anders zijn
  maandag 22 januari 2007 @ 11:28:43 #120
163064 Cuegirllie
Vreemd, maar lekker!
pi_45573572
Ik zit met een probleem.. Ik moet een gestapelde grafiek maken, maar hij wil niet zoals ik dat wil.. iemand hier een idee?? Jammergenoeg geen idee hoe ik een mooie screenshot ervan kan maken.. maar zal t proberen uit te leggen dmv overname;
Dit zijn mijn gegevens

Persoon A
Datum Kosten1 Kosten 2
Jan 50.00 0.00
Feb 60.00 5.00
Maart 70.00 10.00
April 50.00 10.00

Persoon B
Datum Kosten1 Kosten 2
Jan 20.00 1.00
Feb 30.00 10.00
Maart 60.00 7.00
april 10.00 5.00

Nu wil ik dus een gestapelde grafiek, waarin per maand aan wordt gegeven wat de kosten per persoon zijn.
op de x-as de maanden
op de y-as de bedragen

In sitautie van hierboven wil ik dus 1 grafiek met 2 staven per maand (persoon A en B)
Elk zo';n staaf bestaat uit kosten 1 en kosten 2 (bovenop elkaar, gestapeld)
Echter in mijn geval gaat het om 12 maanden en zo'n 12 werknemers, dus zijn bv aparte grafieken geen opties.

Iemand enig idee hoe ik dit moet doen?? Hoop dat het een beetje duidelijk is.

Wat mijn probleem namelijk is, is dat ie of alles bij elkaar in een gestapelde balk zet (dus van alle personen) of alle maanden bij elkaar doet. Het wil gewoon niet lukken. Hoop dat iemand t antwoord weet

[ Bericht 11% gewijzigd door Cuegirllie op 22-01-2007 13:17:00 (verduidelijking probleem) ]
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45575041
Ik heb geprobeerd een voorbeeldje te maken maar kan hem niet posten omdat ik geen ftp toegang heb. Ik kan hem wel naar je mailen als je ff je mail adres doet.
Wat ik nu heb is een grafiek met op de x-as de maanden als volgt: jan feb mrt dec en dan weer jan feb mrt dec voor persoon twee. Op de y-as staan de gestapelde kosten (kosten 1 en 2) per persoon. Je hebt dus in totaal 8 stapels.
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 22 januari 2007 @ 12:26:42 #122
163064 Cuegirllie
Vreemd, maar lekker!
pi_45575251
hm.. dat gaat jammer genoeg ook niet werken.. vergeten bij te vermelden.. Maar het gaat om zo'n 12 personen. Dus dan zou het erg veel worden.
Evt voorbeelden kun je pm-en
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45575297
quote:
Op zondag 21 januari 2007 00:32 schreef realbase het volgende:
Deetch need your help again
Hehe, ik slaap in het weekend. Maar Ralfie is een betere coder dan ik en die heeft op zondag niets te doen zo te zien
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
pi_45575860
@Cuegirllie: probeer het hier eens mee: http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q214119

Ik kan zelf helaas nu ff niet helpen ivm lunchmeeting.
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
pi_45579467
Ik heb een voorbeeld excelletje klaar op basis van bovengenoemde link, volgens mij hoef je alleen de namen en bedragen nog in te vullen.

Waar kan ik hem heen sturen? Je kunt nl. geen bestanden PM'en.

[ Bericht 22% gewijzigd door Deetch op 22-01-2007 14:48:17 ]
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 22 januari 2007 @ 14:46:43 #126
163064 Cuegirllie
Vreemd, maar lekker!
pi_45579583


[ Bericht 100% gewijzigd door Cuegirllie op 22-01-2007 14:54:14 ]
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45579767
Bling you got mail. Verander je @ nog even in [at] ivm spam enzo?
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 22 januari 2007 @ 14:57:35 #128
163064 Cuegirllie
Vreemd, maar lekker!
pi_45579944
zoiets is inderdaad wat ik nodig heb..
Alleen mijn gegevens staan in een leuke tabelletje.. enig idee of t daarmee ook kan.. stuur je wel effe bestandje op met voorbeeld.. (is voor stage, kan/mag t dus ook geen andere layout geven)
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45580360
Vanuit een tabel (zonder lege ruimtes) kan het niet direct juist omdat je door die lege ruimtes meerder aparte stacks creert.
Met behulp van vert.zoeken (vlookup) of gewoon celverwijzingen zou je de getallen wel op de juiste plek in de grafiek kunnen krijgen. Dat is even wat werk maar dan werkt de grafiek wel. kost je hooguit een half uurtje.
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 22 januari 2007 @ 15:16:37 #130
163064 Cuegirllie
Vreemd, maar lekker!
pi_45580453
Is het uit te leggen hoe dat precies werkt.. dat vert.zoeken/celverwijzignen?
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45580916
Ik heb wat ruzie met vlookup maar met eenvoudige celverwijzingen en het handig toevoegen van lege regels en lege cellen kun je een bruikbare tabel maken van je originele tabel. Dat hoeft maar een keer als de invoer steeds in een gelijk format zit. Aangezien je ook op stage bent heb je wel ff de tijd hiervoor. ik heb je een mail teruggestuurd met uitleg.

Succes
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 22 januari 2007 @ 15:33:01 #132
163064 Cuegirllie
Vreemd, maar lekker!
pi_45580970
Tnx.. ik zal effe kijken En inderdaad.. genoeg tijd
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
  maandag 22 januari 2007 @ 16:24:41 #133
163064 Cuegirllie
Vreemd, maar lekker!
pi_45582657
Nou.. t lukt me TNX!!
Kost inderdaad wel wat werk.. en op de helft ofzo.. maarja.. eerst maar es nagaan of ze t zo wel willen.. want weet ook niet in hoeverre dingen gaan veranderen in de toekomst als ik er niet ben.. en dan vinden ze dit veels te ingewikkeld (al is t dat eigenlijk helemaal niet)
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
  dinsdag 23 januari 2007 @ 09:51:20 #134
15967 Frollo
You know I am a righteous man
pi_45588759
Ik wil iets doen wat vast hééél simpel is, maar ik kan er gewoon even niet opkomen.

Ik heb een een cel het volgende:

="Het antwoord is "&A1

In die cel verschijnt dus: "Het antwoord is " plus de waarde uit A1. Nu wil ik die waarde uit A1 graag opmaak meegeven, bijvoorbeeld vet (Het antwoord is 15) of blauw of cursief of alles tegelijk. Hoe doe ik dat? Bedankt!
pi_45589956
Volgens mij kun je bij formulegebruik alleen de hele cel dezelfde layout geven.
Als de cel geheel is gevuld met text en dan kun je wel deel layouts gebruiken.
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
  dinsdag 23 januari 2007 @ 10:53:36 #136
163064 Cuegirllie
Vreemd, maar lekker!
pi_45590084
jah.. dat dacht ik ook.. is volgsen mij niet mogelijk om alleen die 15 qua opmaak te veranderen.
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
  dinsdag 23 januari 2007 @ 10:56:30 #137
15967 Frollo
You know I am a righteous man
pi_45590155
quote:
Op dinsdag 23 januari 2007 10:48 schreef Deetch het volgende:
Volgens mij kun je bij formulegebruik alleen de hele cel dezelfde layout geven.
Als de cel geheel is gevuld met text en dan kun je wel deel layouts gebruiken.
OK, maar als ik nou tekst van het getal maak met TEKST()? Dan kan ik in elk geval wel de notatie veranderen. Bijvoorbeeld:
="Het is vandaag "&TEKST(VANDAAG();"d mmmm")

Dus ik vroeg me af of je er dan ook opmaak aan kunt meegeven.
pi_45594689
Detekst functie zit aan de zelfde getalsnotaties vast als de gewone getalsnotaties uit format, cells en dus kun je alleen de gehele cel een bepaalde format meegeven.. Je hebt nog steeds met een formule te maken dus blijft mijn vorige post ook gelden.
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
  dinsdag 23 januari 2007 @ 13:44:55 #139
15967 Frollo
You know I am a righteous man
pi_45594750
Nou dat vind ik dan stom.
pi_45594895
Via een macro kan wel. Ga naast de cel staan waarin het getal staat (of pas in de macro de offset verwijzing aan) en run dan onderstaande macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro2()

    getal = ActiveCell.Offset(0, -1).Value
    ActiveCell.FormulaR1C1 = "Het antwoord is: " & getal
    With ActiveCell.Characters(Start:=18, Length:=Len(getal)).Font
        .Name = "Arial"
        .FontStyle = "Vet"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    
End Sub

dan staat in de actieve cel alleen een tekststring met gewenste layout.
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
  dinsdag 23 januari 2007 @ 13:53:11 #141
15967 Frollo
You know I am a righteous man
pi_45594998
Bedankt Deetch!
pi_45655849
♫♪We zijn hier op de wereld om mekaar♪♫
♫♪om mekaar, om mekaar, om mekaar♪♫
♫♪te helpen niet waar♪♫

muzikaal kickje
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
  vrijdag 26 januari 2007 @ 11:37:14 #143
107951 JortK
Immer kwaliteitsposts
pi_45690401
Ik heb zelf hulp nodig :)

ik heb een kolom met de volgende informatie:

1Postbus 20, 1910 AA Uitgeest


Nu wil ik in een ander kolom alleen de tekens hebben tot het komma teken, dus:

1Postbus 20


Hoe doe ik dit :)
  vrijdag 26 januari 2007 @ 12:02:56 #144
15967 Frollo
You know I am a righteous man
pi_45691101
quote:
Op vrijdag 26 januari 2007 11:37 schreef JortK het volgende:
Ik heb zelf hulp nodig

ik heb een kolom met de volgende informatie:


[ code verwijderd ]

Nu wil ik in een ander kolom alleen de tekens hebben tot het komma teken, dus:


[ code verwijderd ]

Hoe doe ik dit
Als er echt altijd een komma na het adres komt, dan is dit volgens mij het handigst:

=LINKS(A1;VIND.SPEC(",";A1)-1)
  vrijdag 26 januari 2007 @ 12:29:07 #145
107951 JortK
Immer kwaliteitsposts
pi_45691950
quote:
Op vrijdag 26 januari 2007 12:02 schreef Frollo het volgende:

[..]

Als er echt altijd een komma na het adres komt, dan is dit volgens mij het handigst:

=LINKS(A1;VIND.SPEC(",";A1)-1)
Werkt als een tiet thanks
pi_45751134
Wilde eerst een topic openen maar zag gelukkig deze reeks.

Ik wil in een simpel excelsheetje het volgende weergeven

kolom1: naam
kolom2: mailadres
kolom3: text: "op mailinglijst"

kolom 3 moet die text weergeven indien het mailadres is ingevuld.

Ik ben aan het proberen met als maar kan niet vinden hoe ik die formule zo moet maken dat hij niet op waarde of text de text erin knalt maar dat hij het bij alle waardes of letters de text in die kolom knalt.

Wie weet raad?
Altijd blijven lachen!!
pi_45754443
Ik zoek een functie om automatisch de laatste datum van de maand waarin we ons bevinden te tonen.
Bestaat dit eigenlijk wel?
pi_45755063
quote:
Op zondag 28 januari 2007 13:31 schreef Da_KlouwN het volgende:
Ik zoek een functie om automatisch de laatste datum van de maand waarin we ons bevinden te tonen.
Bestaat dit eigenlijk wel?
quote:
Dit kun je doen door de functie "LAATSTE.DAG" , maar deze is niet onmiddelijk beschikbaar. Deze extra functies moet je eerst "activeren".
Ga hiervoor naar Extra> invoegtoepassingen en zet een vinkje voor "analysis toolpak".

Nu de formule.
Veronderstel dat in cel A1 de functie "=VANDAAG()" hebt staan (de datum van vandaag) en je wilt de factuur betaald hebben 2 maanden na vandaag gebruik je volgende formule.
=LAATSTE.DAG(A1;2) .
ALs je een Engelse Excel gebruikt , noemt de functie =EOMONTH(A1;2)
LAATSTE.DAG is dus de functie die je kunt gebruiken ipv de engels EOMONTH

linkje

Hiervoor heb je dus wel het Analysis Toolpack nodig.
  zondag 28 januari 2007 @ 13:58:17 #149
85514 ralfie
!Yvan eht nioj
pi_45755227
quote:
Op zondag 28 januari 2007 13:31 schreef Da_KlouwN het volgende:
Ik zoek een functie om automatisch de laatste datum van de maand waarin we ons bevinden te tonen.
Bestaat dit eigenlijk wel? :?
1=DATUM(JAAR(VANDAAG());MAAND(VANDAAG())+1;0)
pi_45783032
quote:
Op zondag 28 januari 2007 11:20 schreef BattleLies het volgende:
Wilde eerst een topic openen maar zag gelukkig deze reeks. ^O^

Ik wil in een simpel excelsheetje het volgende weergeven

kolom1: naam
kolom2: mailadres
kolom3: text: "op mailinglijst"

kolom 3 moet die text weergeven indien het mailadres is ingevuld.

Ik ben aan het proberen met als maar kan niet vinden hoe ik die formule zo moet maken dat hij niet op waarde of text de text erin knalt maar dat hij het bij alle waardes of letters de text in die kolom knalt.

Wie weet raad? :)
Als in b1 het emailadres wel of niet staat dan doe je in C1 de volgende formule.
1=als(b1="";"";"op mailingslijst")
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
pi_45783976
quote:
Op maandag 29 januari 2007 10:25 schreef Deetch het volgende:

[..]

Als in b1 het emailadres wel of niet staat dan doe je in C1 de volgende formule.
[ code verwijderd ]
wow daar was ik niet opgekomen. ik had een vergelijking gemaakt met een leeg vakje en dan tekst aan waar geplakt. werkte ook maar was wel omweg. Ik zocht me kwijt naar de directe formule maar kon niks bedenken voor: " indien ingevuld"

Bedankt joh ! Superr...
Altijd blijven lachen!!
  donderdag 1 februari 2007 @ 14:30:06 #152
163064 Cuegirllie
Vreemd, maar lekker!
pi_45882503
Vraagje;

ik heb een lijst, 1 kolom.. met in enkele cellen getallen. bv; ( een '.' is leeg)

1
5
6
.
7
.
8
.
3
10
.

Nu wil ik dat ie alleen de eerste 4 bij elkaar op telt.. Ik heb nuz oiets;
For varcounter = 1 To 4
Waarde = ActiveCell.Value
Waarde_totaal = Waarde + ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Next

En dat totaal van die 4, wil ik helemaal onderaan vermelden.. en dan de volgtende 6 pakken.. en daarvan het toaal weer onderaan vermelden.
Ik kan er allene niet opkomen hoe t anders zou moeten, iemand ideeen?
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45883817
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Value = "------"
eindrij = ActiveCell.Row
Range("a1").Select

Do
   waarde = 0
   Do Until ActiveCell.Value = "------" Or ActiveCell.Value = ""
      waarde = waarde + ActiveCell.Value
      ActiveCell.Offset(1, 0).Select
   Loop
   tussenrij = ActiveCell.Row
   Range("A65536").Select
   Selection.End(xlUp).Select
   ActiveCell.Offset(1, 0).Select
   ActiveCell.Value = waarde
   Range("A" & tussenrij + 1).Select
     
Loop Until tussenrij > eindrij


[ Bericht 5% gewijzigd door Deetch op 01-02-2007 15:16:14 (code werkend gemaakt) ]
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
  donderdag 1 februari 2007 @ 15:17:50 #154
163064 Cuegirllie
Vreemd, maar lekker!
pi_45884065
Hij werkt inderdaad.. Maar waarom zit er eigenlijk een verwijziging naar de allerlaatste cel.. wat is daar het nut van?
Cue, het komkommermeisje!
Het moet niet mooi zijn, het moet functioneel zijn!
Verliefdheid is een uitvinding voor mensen zonder geld zodat ze gratis seks kunnen hebben..
pi_45884639
Die verwijzing naar je allerlaatste cel combineer met het xlUp commando.
1
2
3
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

Op deze manier kom je helemaal onderaan je kolom terecht. Als je
1Selection.End(xlDown).Select

gebruikt dan ga je naar de eerstevolgende lege cel en dat is nu net niet wat je wilt.
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
pi_45899211
Hoi,
ik heb nog eens een vraagje.
Stel, je neemt 2 excelbestanden. In het eerste staat een kolom met cijfers. In het 2de bestand staan 2 kolommen met cijfers.
Nu zou ik willen dat excel de 2 bestanden met elkaar gaat vergelijken op dezelfde getallen (kolom A uit bestand 1 vergelijken met Kolom B uit bestand 2)
Wanneer er een getal overeenkomt, wil ik dat excel in het 1ste bestand het getal zet dat in Kolom A van het 2de bestand naast hetzelfde getal staat.

Iemand een idee?
  vrijdag 2 februari 2007 @ 08:31:51 #157
80690 hooibaal
Be prepared.
pi_45907787
Je zult in het 2e bestand even de kolommen van plek moeten verwisselen (of een hulpkolommetje C in het leven roepen waarin hetzelfde staat als A) omdat zoekfuncties nou eenmaal altijd op de meest linkse kolom werken.
Dan kun je met de functie VERT.ZOEKEN je doel wel bereiken. Alle verwijzingen gewoon met de muis aanklikken, dan vult ie de celverwijzingen en koppelingen zelf wel in.

Het komt er ongeveer zo uit te zien (in cel B1):
=VERT.ZOEKEN(A1;'[bestand2.xls]'Blad1!A1:B37;2;ONWAAR)
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
pi_45946172
Ik ben voor mezelf een overzicht aan het maken voor mijn werk, met zoveel uur enzo.
Hoe kan ik uren bij elkaar optellen? Bijvoorbeeld 6:45 + 3:24 ?
(6:45 = 6 uur en 45 minuten gewerkt)
  zaterdag 3 februari 2007 @ 22:05:03 #159
85514 ralfie
!Yvan eht nioj
pi_45955765
quote:
Op zaterdag 3 februari 2007 17:39 schreef Flaccid het volgende:
Ik ben voor mezelf een overzicht aan het maken voor mijn werk, met zoveel uur enzo.
Hoe kan ik uren bij elkaar optellen? Bijvoorbeeld 6:45 + 3:24 ?
(6:45 = 6 uur en 45 minuten gewerkt)
door in celeigenschappen het getal als categorie tijd in te stelleen. Daarna kun je gewoon rekenen met die waarden alsof het gewoon getallen zijn
pi_45963875
quote:
Op zaterdag 3 februari 2007 22:05 schreef ralfie het volgende:

[..]

door in celeigenschappen het getal als categorie tijd in te stelleen. Daarna kun je gewoon rekenen met die waarden alsof het gewoon getallen zijn
Hoe doe je dat? 6:43 zijn uren en minuten he?

Is al gelukt:D Thanks
  zondag 4 februari 2007 @ 09:30:55 #161
166653 DR34M3R
*Knuffel!*
pi_45963894
quote:
Op zondag 4 februari 2007 09:25 schreef Flaccid het volgende:

[..]

Hoe doe je dat? 6:43 zijn uren en minuten he?
Heel simpel. Rechtermuisknop -->format cells.
Selecteer "Time" en zet hem op de optie die je wilt. bv 13:30 (dat lijkt me in dit geval het handigst. Je kunt deze ook nog met seconden pakken, dan krijg je 13:30:55).
Als je op die manier je cellen geformatteerd hebt, kun je 2 waarden van elkaar aftrekken en krijg je de tijd die ertussen zit.
Those who dream by night in the dusty recesses of their mind, wake in the morning to find that it was vanity.
But the dreamers of the day are dangerous people, for they dream their dreams with open eyes, and make them come true.
pi_45963909
Kan je ook automatisch van 6 uur 43 minuten daarvan maken 6:43?
En kan je hem laten afronden op halve uren als je wat bijelkaar hebt opgeteld?

Dat ie van 18:43 18,5 maakt enzo?

[ Bericht 15% gewijzigd door Flaccid op 04-02-2007 10:01:48 ]
pi_45966431
Dat kan allemaal. Lees de help van de volgende functie maar eens;

functie round (afronden)
functie hour (uur)
functie minute (minuut)
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
pi_45968264
Had er een topic voor geopend, maar zou hier moeten:
------------------------------------------------------------------------------


Dit is echt er een voor excel-slimmeriken. Ik zoek al een paar dagen naar de oplossing, via allerlei formules, maar het lukt me niet. Please help!


Gegeven in rij 1: een serie oplopende data. Deze data kunnen netzover doorlopen als nodig. Deze data kunnen veranderen/verschuiven, maar zijn altijd een oplopende serie, dus 1 cel naar rechts is de vorige cel +1.

Gegeven in rij 2: rij twee kan alleen 0 of 1 zijn. Deze 0-en en 1-en kunnen veranderen. Extra gegeven: het maximum aantal 1-en achter elkaar is 9. het maximum aantal 0-en achter elkaar is 5.

De gewenste uitkomst (hier in rij 7):
In deze rij moeten de eerste 7 data uit rij 1 komen waar een 0 onder de datum staat. Dus, als er een 1 onder de datum staat, moet deze overgeslagen worden en gezocht worden naar de eerstvolgende datum met een 0.
De 0-en en 1-en uit rij 2 kunnen veranderen, waarna rij 7 dus vanzelf de nieuwe 7 data moet berekenen.

Voorbeeldsituatie 1:


Voorbeeldsituatie 2:


WIE O WIE weet hier een oplossing voor?...

Liefst zonder vb scripting, maar als het niet anders kan laat maar zien hoe het dan met vb scripting gaat (daar heb ik nl de ballen verstand van nl.)...
pi_45968484
Het lukt me niet, ik kan niet afronden naar halven :S Please help

Afronden.n.veelvoud doet t nie bij mij
  zondag 4 februari 2007 @ 14:21:35 #166
85514 ralfie
!Yvan eht nioj
pi_45970606
quote:
Op zondag 4 februari 2007 13:16 schreef LennyKravitz het volgende:
Had er een topic voor geopend, maar zou hier moeten:
------------------------------------------------------------------------------


Dit is echt er een voor excel-slimmeriken. Ik zoek al een paar dagen naar de oplossing, via allerlei formules, maar het lukt me niet. Please help!


Gegeven in rij 1: een serie oplopende data. Deze data kunnen netzover doorlopen als nodig. Deze data kunnen veranderen/verschuiven, maar zijn altijd een oplopende serie, dus 1 cel naar rechts is de vorige cel +1.

Gegeven in rij 2: rij twee kan alleen 0 of 1 zijn. Deze 0-en en 1-en kunnen veranderen. Extra gegeven: het maximum aantal 1-en achter elkaar is 9. het maximum aantal 0-en achter elkaar is 5.

De gewenste uitkomst (hier in rij 7):
In deze rij moeten de eerste 7 data uit rij 1 komen waar een 0 onder de datum staat. Dus, als er een 1 onder de datum staat, moet deze overgeslagen worden en gezocht worden naar de eerstvolgende datum met een 0.
De 0-en en 1-en uit rij 2 kunnen veranderen, waarna rij 7 dus vanzelf de nieuwe 7 data moet berekenen.

Voorbeeldsituatie 1:
[afbeelding]

Voorbeeldsituatie 2:
[afbeelding]

WIE O WIE weet hier een oplossing voor?...

Liefst zonder vb scripting, maar als het niet anders kan laat maar zien hoe het dan met vb scripting gaat (daar heb ik nl de ballen verstand van nl.)...
Heb al een oplossing gegeven in je andere topic
pi_45971033
quote:
Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:

[..]

Heb al een oplossing gegeven in je andere topic
quote:
Op zondag 4 februari 2007 13:21 schreef Flaccid het volgende:
Het lukt me niet, ik kan niet afronden naar halven :S Please help

Afronden.n.veelvoud doet t nie bij mij
Heb je ook een oplossing voor mij:D
  zondag 4 februari 2007 @ 14:46:08 #168
85514 ralfie
!Yvan eht nioj
pi_45971525
quote:
Op zondag 4 februari 2007 14:32 schreef Flaccid het volgende:

[..]


[..]

Heb je ook een oplossing voor mij:D
ik ben niet zo bekend met tijdfuncties, maar iets als dit werkt iig:

1=TIJD(UUR(A1);AFRONDEN(MINUUT(A1)/30;0)*30;0)

Waarschijnlijk wel erg omslachtig als er speciale functies voor zijn
pi_45971845
Ik wil gewoon 18:43 wordt 18,5 uur, en 18:13 wordt 18 uur
pi_45996465
quote:
Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:

[..]

Heb al een oplossing gegeven in je andere topic
Waarvoor nogmaals mijn dank!
pi_45998642
quote:
Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:

[..]

Heb al een oplossing gegeven in je andere topic
Dit topic dus, voor het archief zeg maar.
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 5 februari 2007 @ 12:05:05 #172
47826 MaVeJuH
Gestoordheid Kent Geen Grenzen
pi_46002848
Mijn vraag is als volgt:

een cel geeft een getal hoger dan 250 of lager dan 250 weer
een andere cel moet aangeven dat als het getal 250 is of hoger de waarde 0
is het getal onder de 250 dan moet de cel de waarde 1 aangeven.

Ik heb hem tot nu toe alleen maar zo ver gekregen dat hij waarde o zet bij 250 en bij alle overige getallen zowel hoger als lager dan 250 1.
Ijshockey: Ruijters Smoke Eaters Geleen!
  maandag 5 februari 2007 @ 12:22:23 #173
15967 Frollo
You know I am a righteous man
pi_46003277
quote:
Op maandag 5 februari 2007 12:05 schreef MaVeJuH het volgende:
Mijn vraag is als volgt:

een cel geeft een getal hoger dan 250 of lager dan 250 weer
een andere cel moet aangeven dat als het getal 250 is of hoger de waarde 0
is het getal onder de 250 dan moet de cel de waarde 1 aangeven.

Ik heb hem tot nu toe alleen maar zo ver gekregen dat hij waarde o zet bij 250 en bij alle overige getallen zowel hoger als lager dan 250 1.
=ALS(ISLEEG(A1);"";ALS(A1>=250;0;1))

Dit moet 'm zijn.
Eerst kijkt hij of A1 leeg is. Zo ja, dan komt er simpelweg niets in de huidige cel.
Zo nee, dan kijkt hij of A1 groter of gelijk 250 is. Is dit zo, dan is het resultaat 0, is dit niet zo, dan is het resultaat 1.
  maandag 5 februari 2007 @ 12:30:34 #174
47826 MaVeJuH
Gestoordheid Kent Geen Grenzen
pi_46003462
Yep thnx!
Ijshockey: Ruijters Smoke Eaters Geleen!
  maandag 5 februari 2007 @ 13:56:16 #175
107951 JortK
Immer kwaliteitsposts
pi_46005844
Ik ben op zoek naar een macro waarvan ik een hele kolom in een keer kan converteren van tekst naar getal... want met de Celeigenschappen pakt die dat niet
  maandag 5 februari 2007 @ 13:57:54 #176
15967 Frollo
You know I am a righteous man
pi_46005893
quote:
Op maandag 5 februari 2007 13:56 schreef JortK het volgende:
Ik ben op zoek naar een macro waarvan ik een hele kolom in een keer kan converteren van tekst naar getal... want met de Celeigenschappen pakt die dat niet
Van macro's heb ik geen verstand, maar werkt =WAARDE() niet dan?
  maandag 5 februari 2007 @ 14:04:45 #177
107951 JortK
Immer kwaliteitsposts
pi_46006096
quote:
Op maandag 5 februari 2007 13:57 schreef Frollo het volgende:

[..]

Van macro's heb ik geen verstand, maar werkt =WAARDE() niet dan?
Stom dat ik daar niet aan gedacht heb

Thanks
  maandag 5 februari 2007 @ 14:08:11 #178
15967 Frollo
You know I am a righteous man
pi_46006195
Graag gedaan.
  maandag 5 februari 2007 @ 15:56:46 #179
15726 wouswous
Smile, tomorow will be worse
pi_46009650
Vraagje:
Heb een kolom waar verschillende jaartallen instaan.

Onderaan deze kolom moet er een optelling komen hoevaak een jaartal voorkomt in deze kolom.
Zoiets als:
Als (ieder getal uit kolom 1 = 2007) ; aantal optellen ; niets doen.

Iemand een oplossing hiervoor, zonder dat ik aparte kolomen ga maken per jaar.. (ALS cel1=2007;1'0) en dan een totaaloptelling hoevaak dit jaar voorkwam.
ik droomde vanacht dat ik een spekje van 1 KG at,
vanochtend toen ik wakker werd, was mijn kussen opeens weg.
  maandag 5 februari 2007 @ 15:58:23 #180
15967 Frollo
You know I am a righteous man
pi_46009707
quote:
Op maandag 5 februari 2007 15:56 schreef wouswous het volgende:
Vraagje:
Heb een kolom waar verschillende jaartallen instaan.

Onderaan deze kolom moet er een optelling komen hoevaak een jaartal voorkomt in deze kolom.
Zoiets als:
Als (een getal uit kolom 1 = 2007) ; aantal optellen ; niets doen.

Iemand een oplossing hiervoor, zonder dat ik aparte kolomen ga maken per jaar.. (ALS cel1=2007;1'0) en dan een totaaloptelling hoevaak dit jaar voorkwam.
=aantal.als(bereik;criterium) is de formule die je zoekt!

Dus bijvoorbeeld:

=aantal.als(A1:A999;2007)
pi_46012644
Ik heb een werkblad van iemand gekregen met commentaren bij verschillende cellen (rooie driehoekje in rechterboven hoek van een cel).
Nu wil ik deze commentaren in een aparte cel geplaatst hebben, is dat mogelijk met een functie of moet ik een macro gaan schrijven?
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 5 februari 2007 @ 17:28:59 #182
15967 Frollo
You know I am a righteous man
pi_46012915
quote:
Op maandag 5 februari 2007 17:21 schreef Deetch het volgende:
Ik heb een werkblad van iemand gekregen met commentaren bij verschillende cellen (rooie driehoekje in rechterboven hoek van een cel).
Nu wil ik deze commentaren in een aparte cel geplaatst hebben, is dat mogelijk met een functie of moet ik een macro gaan schrijven?
Je kunt in de Pagina-instellingen (tabblad Blad) wel aangeven dat je de opmerkingen aan het eind van het document wilt afdrukken. Dat ziet er op zich keurig uit, met de celverwijzing erbij en zo.

Ik weet dat dit niet is wat je vroeg, maar misschien is het toevallig wel wat je wilde.
pi_46013497
Niet helemaal, ik heb inmiddels zelf al een functie gemaakt:

1
2
3
4
5
6
7
Function GetComment(Cell As Range, n As Integer) As String
    '    Haalt de comment uit aangegeven cel en verwijderd de eerste n characters
    '    n is naam van invoerder+3

    GetComment = Mid(Cell.Comment.Text, n, Len(Cell.Comment.Text) - n + 1)

End Function
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
pi_46021149
het volgende raadsel:

Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)


Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.


Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.

Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?

  maandag 5 februari 2007 @ 21:44:17 #185
15726 wouswous
Smile, tomorow will be worse
pi_46022167
quote:
Op maandag 5 februari 2007 15:58 schreef Frollo het volgende:

[..]

=aantal.als(bereik;criterium) is de formule die je zoekt!

Dus bijvoorbeeld:

=aantal.als(A1:A999;2007)
Hartstikke bedankt!
ik droomde vanacht dat ik een spekje van 1 KG at,
vanochtend toen ik wakker werd, was mijn kussen opeens weg.
pi_46032805
quote:
Op maandag 5 februari 2007 21:18 schreef LennyKravitz het volgende:
het volgende raadsel:

Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)
[afbeelding]

Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.


Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.

Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?

Probeer het eens met een macrootje die elke keer als je iets op werkblad 1 veranderd ook je tweede werkblad aanpast? Volgens mij moet dat met een Private Sub worksheet_change. Verder moet je zelf ff googlen want hiermee heb ik ook geen ervaring.
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
  dinsdag 6 februari 2007 @ 10:14:47 #187
85514 ralfie
!Yvan eht nioj
pi_46032985
quote:
Op maandag 5 februari 2007 21:18 schreef LennyKravitz het volgende:
het volgende raadsel:

Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)
[afbeelding]

Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.


Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.

Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?

Dit lijkt een beetje anders te gaan bij jouw als bij office 97, maar kun je niet gewoon de hele kolom B een formule geven van =Blad1!B1 etc ?
pi_46033291
quote:
Op dinsdag 6 februari 2007 10:14 schreef ralfie het volgende:

[..]

Dit lijkt een beetje anders te gaan bij jouw als bij office 97, maar kun je niet gewoon de hele kolom B een formule geven van =Blad1!B1 etc ?
Dat kan wel maar op het moment dat je in blad 1 een regel verwijdert of toevoegt worden deze op blad 2 niet verwijderd of toegevoegd maar worden de verwijzing aangepast.

Als je op blad 1 dus een nieuwe regel boven regel 1 invoegt, wordt de verwijzing die jij noemt veranderd in =Blad1!B2 ipv dat de celverwijzing hetzelfde blijft en er dus een lege cel komt te staan.
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
  dinsdag 6 februari 2007 @ 12:02:47 #189
80690 hooibaal
Be prepared.
pi_46035906
Misschien (weet niet, niet geprobeerd) werkt het wel als je op Blad2 even een hulpkolommetje invoegt die je gewoon handmatig nummert (1,2,3 etc.), laten we zeggen kolom Q.

Dan mik je in kolom B de volgende formule:
=INDEX(Blad1!$B$1:$B$3700;Q1)

Als mijn intuïtie klopt is deze ongevoelig voor het invoegen en verwijderen van rijen.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
pi_46037159
Gebruik de indirect functie in combinatie met het rij-cijfer om onafhankelijke verwijzing te krijgen.

Op blad 2 zet je in kolom A de volgende functie: =indirect("Blad1!A"&RIJ())
voor kolommen B en verder moet je de letter A veranderen.

Als de cel in blad 1 leeg is krijg je een "0" als waarde in de cel. Dit is evt op te lossen met
=als(verwijzing naar cel="";"";verwijzing naar cel)

Vind je geen elegante oplossing (door handmatig invoeren kolomletters dan kun je in VB de volgende (gegoogle-de en dus ongeteste) functie definieren in je spreadsheet:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function GetExcelColumn(ByVal iCellNo As Integer) As String 
    Dim iBeg, iEnd As Integer 

    ' If 1-26, then this is an easy conversion 
    If iCellNo < 27 Then 
        GetExcelColumn = Chr$(iCellNo + 64) 
    Else 
    ' Now we have to account for AA-ZZ 
        iBeg = iCellNo  26     ' Get the first letter 
        iEnd = iCellNo Mod 26   ' Get the second letter 
        If iEnd = 0 Then        
           ' If iEnd is 0, then it is Z, which should be 26 
            iEnd = 26 
        '** you need to subtract 1 from the initial letter otherwise your lettering will be the next letter in the alphabet

        iBeg = iBeg - 1 
        End If 
        GetExcelColumn = Chr$(iBeg + 64) & Chr$(iEnd + 64) 
    End If 
End Function 

dan wordt op blad 2 je functie: =indirect("Blad1!"&GetExcelColumn(KOLOM())&RIJ())

[ Bericht 2% gewijzigd door Deetch op 06-02-2007 12:58:19 ]
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
pi_46037450
Of je doet gewoon zo:

1=als(INDEX(Blad1!$A$1:$M$50;RIJ();KOLOM())="";"";INDEX(Blad1!$A$1:$M$50;RIJ();KOLOM()))
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
pi_46037581
de range A1:m50 moet (veel) ruimer zijn dan het gebied waar je gegevens hebt staan omdat deze range niet groter wordt als je in blad 1 kolmmen of rijen toe gaat voegen.
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
pi_46063471
Ik heb een excel blad, dat alleen uitkomsten van formules bevat (berekend vanaf andere bladen).

Verder bevat het blad 2 drop-down-selectie boxen.

Hoe kan ik dit blad in zodanig beveiligen dat niemand de formules kan aanpassen, en dat de drop-down-boxes wel blijven werken. Als ik nl. het blad beveilig, dan werken de dropdownboxes niet meer (uitkomsten op dit blad veranderen door deze drop-drown-boxes, en dat kan in beveiligde situatie blijkbaar niet).
pi_46065432
quote:
Op woensdag 7 februari 2007 01:59 schreef LennyKravitz het volgende:
Ik heb een excel blad, dat alleen uitkomsten van formules bevat (berekend vanaf andere bladen).

Verder bevat het blad 2 drop-down-selectie boxen.

Hoe kan ik dit blad in zodanig beveiligen dat niemand de formules kan aanpassen, en dat de drop-down-boxes wel blijven werken. Als ik nl. het blad beveilig, dan werken de dropdownboxes niet meer (uitkomsten op dit blad veranderen door deze drop-drown-boxes, en dat kan in beveiligde situatie blijkbaar niet).
ws. moet je met een macro de beveiliging opheffen, dropbox menuus vullen en beveiliging weer aanbrengen
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
pi_46065469
quote:
Op woensdag 7 februari 2007 08:39 schreef Deetch het volgende:

[..]

ws. moet je met een macro de beveiliging opheffen, dropbox menuus vullen en beveiliging weer aanbrengen
hmmm...... ik zou me kunnen voorstellen dat je dus het blad kunt beveiligen en dat je niets kan veranderen door in rechtstreeks cellen te editen, maar maar dat je wel formules hun werk kunt laten doen....
  woensdag 7 februari 2007 @ 09:45:42 #196
85514 ralfie
!Yvan eht nioj
pi_46066380
je kunt in celeigenschappen (laatste tab) de cel blokkeren of niet, waardoor je kunt bepalen welke cellen wel, en welke cellen niet mogen worden veranderd als de beveiliging erop zit
  woensdag 7 februari 2007 @ 12:26:59 #197
137360 mrPanerai
Bekende Belg!
pi_46070651
Ik heb een hele kolom met enkel getallen, nu wil ik voor elk getal 00 plaatsen...kan dit in een keer

Thanks
  woensdag 7 februari 2007 @ 13:59:26 #198
15967 Frollo
You know I am a righteous man
pi_46073318
quote:
Op woensdag 7 februari 2007 12:26 schreef mrPanerai het volgende:
Ik heb een hele kolom met enkel getallen, nu wil ik voor elk getal 00 plaatsen...kan dit in een keer

Thanks
Moeten het getallen blijven, met andere woorden: wil je er nog mee kunnen rekenen als dat "00" er eenmaal voor staat?
En hebben alle getallen hetzelfde aantal cijfers?
pi_46077865
quote:
Op woensdag 7 februari 2007 09:45 schreef ralfie het volgende:
je kunt in celeigenschappen (laatste tab) de cel blokkeren of niet, waardoor je kunt bepalen welke cellen wel, en welke cellen niet mogen worden veranderd als de beveiliging erop zit
Misschien begrijp ik het niet goed...

Maar als ik die cellen unlock... kan de formule veranderd worden... dat mag dus niet. Alleen de uitkomst moet wel kunnen veranderen wanneer elders in het spreadsheet de getallen worden aangepast.

Daarnaast moet ik de dropdwonbox op die pagina wel kunnen bewegen/veranderen.
  donderdag 8 februari 2007 @ 11:43:15 #200
137360 mrPanerai
Bekende Belg!
pi_46100175
quote:
Op woensdag 7 februari 2007 13:59 schreef Frollo het volgende:

[..]

Moeten het getallen blijven, met andere woorden: wil je er nog mee kunnen rekenen als dat "00" er eenmaal voor staat?
En hebben alle getallen hetzelfde aantal cijfers?
heb het reeds gevonden... celeigenschappen...categorie aangepast en dan aantal 0
veel te simpel eigenlijk
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')