[Excel] Het grote Excel vragen topic #26

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_97929078
With
  donderdag 9 juni 2011 @ 10:59:22 #202
62215 qu63
..de tijd drinkt..
pi_97929211
quote:
0s.gif Op donderdag 9 juni 2011 10:55 schreef DaFan het volgende:
With
Kan je iets duidelijker zijn? ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97934206
Nee telefoon typt kut :p

With Range("A1")
.value = 4
.interior = black
End With

Snap je ??
pi_97935115
quote:
0s.gif Op donderdag 9 juni 2011 13:24 schreef DaFan het volgende:
Nee telefoon typt kut :p

With Range("A1")
.value = 4
.interior = black
End With

Snap je ??
Bovenstaand is hetzelfde als:

Range("A1").value = 4
Range("A1").interior = black

Dus alle dubbele stukken in je object beschrijving kun je dan weglaten.
Als je dan vervolgens ook nog het pivottabelnummer variabel maakt kun je volgens mij een loopje maken om elke keer die tabellen te vernieuwen.

probeer onderstaande code eens te doorgronden een aan te passen aan jouw situatie:

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

Dim arrPivot As Variant

pivot = Array(9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23)

For i = 0 To 12 'eerste element van een array heeft altijd volgnummer 0
MsgBox pivot(i)
With Range("A" & pivot(i)) ''hier gebruik je de varabele uit de pivot array als rijnummer
    .Value = pivot(i)
    .Interior.ColorIndex = pivot(i)
End With
Next

End Sub
In plaats van Range("A" & pivot( i)) gebruik je:
Sheets("Hulpsheet Sven").PivotTables("Draaitabel"&pivot( i))

[ Bericht 3% gewijzigd door Deetch op 09-06-2011 13:56:16 ]
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 9 juni 2011 @ 14:04:20 #205
62215 qu63
..de tijd drinkt..
pi_97935679
quote:
3s.gif Op donderdag 9 juni 2011 13:49 schreef Deetch het volgende:

[..]

Bovenstaand is hetzelfde als:

Range("A1").value = 4
Range("A1").interior = black

Dus alle dubbele stukken in je object beschrijving kun je dan weglaten.
Als je dan vervolgens ook nog het pivottabelnummer variabel maakt kun je volgens mij een loopje maken om elke keer die tabellen te vernieuwen.

probeer onderstaande code eens te doorgronden een aan te passen aan jouw situatie:

[ code verwijderd ]

In plaats van Range("A" & pivot( i)) gebruik je:
Sheets("Hulpsheet Sven").PivotTables("Draaitabel"&pivot( i))
Duidelijk! ^O^

Een tijdje geleden kwam ik met de vraag hoe ik een ijst unieke waarden uit een kolom kon krijgen. Toen werd gezegd dat een draaitabel het handigst is. Nu kom ik er alleen achter dat niet op ieder werkblad dezelfde rij gekozen moet worden..

In A34:A64 heb ik een lijst met tabbladnamen staan, in B34:B64 staan de kolomnaam waar ik de unieke waarden van wil weten.
[code]
Amsterdam H
Rotterdam I
[knip]
[/code]
Aangezien de kolom dus variabel is, is een standaard draaitabel niet handig. Kan ik dit niet oplossen in een formule/macro?

Even de vraag parkeren, volgens mij heb ik iets..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97935925
Kun je trouwens in excel 2007 een COUNTIF functie doen over meerdere losstaande bereiken?

Ik wil nl tellen hoevaak er een bepaalde tekst staat in het cellenbereik A2:B4 en C5:F20

De simpelste oplossing is natuurlijk: =countif(A2:B4,"tekst")+countif(C5:F20,"tekst") maar dat vind ik niet mooi, ik wil 1 formule.

Wat niet werkt is: =COUNTIF((A1:B4,C5:F20),"tekst") of =COUNTIF(A1:B4&C5:F20,"tekst")
of =COUNTIF(BEREIKJE,"tekst") (waarbij BEREIKJE de named range A2:B4 en C5:F20 is)

Wie heeft de gouden tip (iets met SUMPRODUCT ofzo??)
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 9 juni 2011 @ 14:17:41 #207
62215 qu63
..de tijd drinkt..
pi_97936284
quote:
3s.gif Op donderdag 9 juni 2011 14:09 schreef Deetch het volgende:
Kun je trouwens in excel 2007 een COUNTIF functie doen over meerdere losstaande bereiken?

Ik wil nl tellen hoevaak er een bepaalde tekst staat in het cellenbereik A2:B4 en C5:F20

De simpelste oplossing is natuurlijk: =countif(A2:B4,"tekst")+countif(C5:F20,"tekst") maar dat vind ik niet mooi, ik wil 1 formule.

Wat niet werkt is: =COUNTIF((A1:B4,C5:F20),"tekst") of =COUNTIF(A1:B4&C5:F20,"tekst")
of =COUNTIF(BEREIKJE,"tekst") (waarbij BEREIKJE de named range A2:B4 en C5:F20 is)

Wie heeft de gouden tip (iets met SUMPRODUCT ofzo??)
=SOMPRODUCT((A1:B4="tekst")*(C5:F20="tekst"))
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 9 juni 2011 @ 14:20:43 #208
62215 qu63
..de tijd drinkt..
pi_97936423
quote:
3s.gif Op donderdag 9 juni 2011 13:49 schreef Deetch het volgende:

[..]

Bovenstaand is hetzelfde als:

Range("A1").value = 4
Range("A1").interior = black

Dus alle dubbele stukken in je object beschrijving kun je dan weglaten.
Als je dan vervolgens ook nog het pivottabelnummer variabel maakt kun je volgens mij een loopje maken om elke keer die tabellen te vernieuwen.

probeer onderstaande code eens te doorgronden een aan te passen aan jouw situatie:

[ code verwijderd ]

In plaats van Range("A" & pivot( i)) gebruik je:
Sheets("Hulpsheet Sven").PivotTables("Draaitabel"&pivot( i))
Hmz, deze regel blijft een foutmelding geven..
1    With Sheets("Hulpsheet Sven").PivotTables("Draaitabel" & pivot(I)).PivotCache.Refresh ''hier gebruik je de variabele uit de pivot array als rijnummer
Terwijl dezeregel wel werkte:
1Sheets("Hulpsheet Sven").PivotTables("Draaitabel27").PivotCache.Refresh

En gefixed, tabel9 had een andere naam gekregen..

[ Bericht 5% gewijzigd door qu63 op 09-06-2011 14:35:30 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 9 juni 2011 @ 14:47:57 #209
62215 qu63
..de tijd drinkt..
pi_97937542
M'n macrocode is nu nog wat ingekort:
1
2
3
4
5
6		Dim pt As PivotTable
    For Each pt In Sheets("Hulpsheet Sven").PivotTables
        pt.PivotCache.Refresh
        pt.PivotFields("Adviseur").AutoSort _
            xlAscending, "Adviseur"
    Next pt
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 9 juni 2011 @ 15:01:59 #210
62215 qu63
..de tijd drinkt..
pi_97938192
In A34:A64 heb ik een lijst met tabbladnamen staan, in B34:B64 staat de kolomnaam waar ik de unieke waarden van wil weten.
1
2
3
4		Amsterdam H
Rotterdam I
Hilversum X
[..]
Het bereik A34:A64 wordt automatisch gevuld. Hier kan dus 1 plaatsnaam in staan, of er kunnen 30 plaatsnamen in staan. Iedere keer een nieuwe pivottable aanmaken is geen optie (moet "onderhoudsvrij" zijn).
In B2:AE31 wil ik, per kolom (plaatsnaam) een lijst krijgen met de unieke waarden van rij 6 tot en met 100 van de hierboven aangegeven kolom (H,I of X in dit geval).

Hoe kan ik dit het beste doen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97938448
Lekker bezig.
Geen * gebruiken in Somproduct (performance-technisch)
Denk ook aan -- anders werkt hwt niet meer :P
  donderdag 9 juni 2011 @ 15:10:29 #212
62215 qu63
..de tijd drinkt..
pi_97938523
quote:
0s.gif Op donderdag 9 juni 2011 15:08 schreef DaFan het volgende:
Lekker bezig.
Geen * gebruiken in Somproduct (performance-technisch)
Denk ook aan -- anders werkt hwt niet meer :P
Die * heb ik hier van t forum..

Als je alleen aantallen wilt hebben hoef je -- niet te gebruiken, als je alle waarden bij elkaar opgeteld wilt hebben wel, althans, dacht ik..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97940719
ik kom er ff niet meer uit

bijv:
ik heb in kolom B het volgende staan:
B1 2
B2 0
B3 0
B4 4
B5 0
B6 0
B7 0

met allerlei waarden in kolom C

nu wil ik een formule hebben waarbij het volgende gebeurt:
A1: =IF (B1=2 dan SUM (C1+C2)
A3 = IF (B4=4 dan SUM (C4+C5+C6+C7)
dus als in B een bepaalde waarde staat (bijv 6) wil ik van die rij + de 5 opvolgende in rij C de som hebben

iemand die mij de goede weg op kan sturen
maakt niet uit hoe omslachtig het is, als hij maar werkt
pi_97941025
De -- is toch om te forceren dat de functie TRUE en FALSE als 1 of 0 ziet?

=--SUMPRODUCT((A2:B4="tekst"),(C5:F20="tekst")) geeft als foutmelding #VALUE!
=--SUMPRODUCT((A2:B4="tekst")*(C5:F20="tekst")) geeft als foutmelding #N/A
=--SUMPRODUCT((A2:B4&C5:F20="tekst"),1) geeft als foutmelding #N/A

Zo kom ik nog niet echt verder. ik hou het voorlopig wel op het optellen van verschillende countifs.
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_97941131
=SUMPRODUCT(--(A2:B4="tekst"),

Etc
pi_97941286
quote:
0s.gif Op donderdag 9 juni 2011 15:59 schreef icebeer het volgende:
ik kom er ff niet meer uit

bijv:
ik heb in kolom B het volgende staan:
B1 2
B2 0
B3 0
B4 4
B5 0
B6 0
B7 0

met allerlei waarden in kolom C

nu wil ik een formule hebben waarbij het volgende gebeurt:
A1: =IF (B1=2 dan SUM (C1+C2)
A3 = IF (B4=4 dan SUM (C4+C5+C6+C7)
dus als in B een bepaalde waarde staat (bijv 6) wil ik van die rij + de 5 opvolgende in rij C de som hebben

iemand die mij de goede weg op kan sturen
maakt niet uit hoe omslachtig het is, als hij maar werkt
Als de waarde 1 is dan alleen som C1? en 0=0?

=IF(B1=0,0,SUM(INDIRECT("C"&ROW(B1)&":C"&ROW(B1)+B1-1)))
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_97941414
quote:
0s.gif Op donderdag 9 juni 2011 16:08 schreef DaFan het volgende:
=SUMPRODUCT(--(A2:B4="tekst"),

Etc
=SUMPRODUCT(--(A2:B4="tekst"),--(C5:D7="tekst"))
Dan komt er 0 uit in plaats van 13 zoals ik met de hand tel.

=COUNTIF(A2:B4,"tekst")+COUNTIF(C5:F20,"tekst") geeft overigens ook 13.
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 9 juni 2011 @ 16:17:14 #218
62215 qu63
..de tijd drinkt..
pi_97941594
quote:
3s.gif Op donderdag 9 juni 2011 16:14 schreef Deetch het volgende:

[..]

=SUMPRODUCT(--(A2:B4="tekst"),--(C5:D7="tekst"))
Dan komt er 0 uit in plaats van 13 zoals ik met de hand tel.
Omdat "tekst"+"tekst" ook 0 is. Hadden er getallen gestaan dan had er 6289568 uit kunnen komen ipv 13.
quote:
=COUNTIF(A2:B4,"tekst")+COUNTIF(C5:F20,"tekst") geeft overigens ook 13.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 9 juni 2011 @ 16:19:44 #219
62215 qu63
..de tijd drinkt..
pi_97941762
1=VERGELIJKEN("*Adviseur*";'Amsterdam MB'!A4:Q4;0)

Nu moet alleen 'Amsterdam MB' variabel worden..
Als ik het zo doe werkt het niet:
1=VERGELIJKEN("*Adviseur*";"'"&A35&"'!A4:Q4";0)
In A35 staat dus Amsterdam MB

[ Bericht 34% gewijzigd door qu63 op 09-06-2011 16:36:48 (Aargh! Suf bezig..) ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97942496
quote:
3s.gif Op donderdag 9 juni 2011 16:11 schreef Deetch het volgende:

[..]

Als de waarde 1 is dan alleen som C1? en 0=0?

=IF(B1=0,0,SUM(INDIRECT("C"&ROW(B1)&":C"&ROW(B1)+B1-1)))
wow super!
hij deed het in eerste instantie trouwens niet, toen ik de , veranderde voor ; wel
=IF(B1=0;0;SUM(INDIRECT("C"&ROW(B1)&":C"&ROW(B1)+B1-1)))
  donderdag 9 juni 2011 @ 17:06:59 #221
62215 qu63
..de tijd drinkt..
pi_97944042
quote:
0s.gif Op donderdag 9 juni 2011 16:19 schreef qu63 het volgende:

[ code verwijderd ]

Nu moet alleen 'Amsterdam MB' variabel worden..
Als ik het zo doe werkt het niet:

[ code verwijderd ]

In A35 staat dus Amsterdam MB
Of is dit een limitatie van Vergelijken() en moet het met een macro?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97949811
quote:
0s.gif Op donderdag 9 juni 2011 16:17 schreef qu63 het volgende:

[..]

Omdat "tekst"+"tekst" ook 0 is. Hadden er getallen gestaan dan had er 6289568 uit kunnen komen ipv 13.

[..]

Sorry jullie hebben gelijk, het was eigenlijk tellen.
Ik heb nog deze:
=SUM(IF(A2:B4="tekst";1)+IF(C5:F20="tekst";1))
Ctrl-Shift-Enter
pi_97949923
quote:
0s.gif Op donderdag 9 juni 2011 16:19 schreef qu63 het volgende:

[ code verwijderd ]

Nu moet alleen 'Amsterdam MB' variabel worden..
Als ik het zo doe werkt het niet:

[ code verwijderd ]

In A35 staat dus Amsterdam MB
=VERGELIJKEN("*Adviseur*";INDIRECT(A35 & "!A4:Q4");0)

Volgens mij hoeven de enkele aanhalingstekens er niet omheen. Bij mij niet iig (Office 2010)
  vrijdag 10 juni 2011 @ 09:09:29 #224
62215 qu63
..de tijd drinkt..
pi_97970405
quote:
7s.gif Op donderdag 9 juni 2011 19:35 schreef DaFan het volgende:

[..]

=VERGELIJKEN("*Adviseur*";INDIRECT(A35 & "!A4:Q4");0)

Volgens mij hoeven de enkele aanhalingstekens er niet omheen. Bij mij niet iig (Office 2010)
INDIRECT(A35 & "!A4:Q4") wordt bij mij vervangen door #VERW (Excel 2010 NL)..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97970456
quote:
0s.gif Op vrijdag 10 juni 2011 09:09 schreef qu63 het volgende:

[..]

INDIRECT(A35 & "!A4:Q4") wordt bij mij vervangen door #VERW (Excel 2010 NL)..
Sorry wel aanhalingstekens! Je hebt een spatie in je sheetnaam :)
  vrijdag 10 juni 2011 @ 09:17:35 #226
62215 qu63
..de tijd drinkt..
pi_97970610
quote:
0s.gif Op vrijdag 10 juni 2011 09:11 schreef DaFan het volgende:

[..]

Sorry wel aanhalingstekens! Je hebt een spatie in je sheetnaam :)
Klopt, deze werkt wel:
1=VERGELIJKEN("*Adviseur*";INDIRECT("'"&A35&"'!A4:Q4");0)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 10 juni 2011 @ 10:08:55 #227
62215 qu63
..de tijd drinkt..
pi_97972004
Deze code geeft als resultaat #WAARDE, kan iemand zien waar het aan ligt?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19		Function UNIQUE(InputRange As Range, ItemNo As Long) As Variant
Dim cl As Range, cUnique As New Collection, cValue As Variant
    Application.Volatile
    On Error Resume Next
    For Each cl In InputRange
        If cl.Formula <> "" Then
            cUnique.Add cl.Value, CStr(cl.Value)
        End If
    Next cl
    UNIQUE = ""
    If ItemNo = 0 Then
        UNIQUE = cUnique.Count
    Else
        If ItemNo <= cUnique.Count Then
            UNIQUE = cUnique(ItemNo)
        End If
    End If
    On Error GoTo 0
End Function
Ik gebruik deze code om de eerste unieke waarde te vinden:
1=UNIQUE("'"&A34&"'!$"&B34&"$6:$"&B34&"$106";1)
Als ik em niet dynamisch maak werkt het wel:
1=UNIQUE('Amsterdam IMB'!$H$6:$H$106;1)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97972765
Je functie UNIQUE verwacht een range en niet een string (tekst).
Als je =UNIQUE(INDIRECT("'"&A34&"'!$"&B34&"$6:$"&B34&"$106");1) doet zou het wel moeten werken.
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_97972810
quote:
7s.gif Op donderdag 9 juni 2011 19:32 schreef DaFan het volgende:

[..]

Sorry jullie hebben gelijk, het was eigenlijk tellen.
Ik heb nog deze:
=SUM(IF(A2:B4="tekst";1)+IF(C5:F20="tekst";1))
Ctrl-Shift-Enter
Tja dat is niet echt een verbetering tov het optellen van de countifs maar toch bedankt.
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 10 juni 2011 @ 10:41:44 #230
62215 qu63
..de tijd drinkt..
pi_97972854
quote:
3s.gif Op vrijdag 10 juni 2011 10:38 schreef Deetch het volgende:
Je functie UNIQUE verwacht een range en niet een string (tekst).
Als je =UNIQUE(INDIRECT("'"&A34&"'!$"&B34&"$6:$"&B34&"$106");1) doet zou het wel moeten werken.
Ja! Thanks! :*
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97973086
quote:
3s.gif Op vrijdag 10 juni 2011 10:39 schreef Deetch het volgende:

[..]

Tja dat is niet echt een verbetering tov het optellen van de countifs maar toch bedankt.
mee eens maar ik krijg het niet anders voor elkaar.. :(
  vrijdag 10 juni 2011 @ 11:10:35 #232
62215 qu63
..de tijd drinkt..
pi_97973915
Wat moet ik aan deze functie aanpassen om er voor te zorgen dat lege cellen overgeslagen worden?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19		Function UNIQUE(InputRange As Range, ItemNo As Long) As Variant
Dim cl As Range, cUnique As New Collection, cValue As Variant
    Application.Volatile
    On Error Resume Next
    For Each cl In InputRange
        If cl.Formula <> "" Then
            cUnique.Add cl.Value, CStr(cl.Value)
        End If
    Next cl
    UNIQUE = ""
    If ItemNo = 0 Then
        UNIQUE = cUnique.Count
    Else
        If ItemNo <= cUnique.Count Then
            UNIQUE = cUnique(ItemNo)
        End If
    End If
    On Error GoTo 0
End Function
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 10 juni 2011 @ 11:35:28 #233
62215 qu63
..de tijd drinkt..
pi_97974828
En als ik deze macro draai doet Excel er bijna 20 seconden over, waar ligt dat aan en kan dat verholpen worden?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23		Sub Vernieuwen()
'
' Vernieuwen Macro
'
' Sneltoets: Ctrl+Shift+V
'
    Application.ScreenUpdating = False
    
    Dim c As Range
    For Each c In Sheets("Hulpsheet Sven").Range("A32:A58")
    c.ClearContents
    Next c
    
    Dim Ws As Worksheet, Wb As Workbook, R As Range, S As Integer
    Set Wb = ActiveWorkbook
    Set R = Sheets("Hulpsheet Sven").Range("a32")
    S = 1
    For Each Ws In Wb.Worksheets
    R.Cells(S, 1) = Ws.Name
    S = S + 1
    Next Ws
    Application.ScreenUpdating = True
End Sub
Het werkboek heeft nu 17 sheets..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97982254
Dim c As Range
For Each c In Sheets("Hulpsheet Sven").Range("A32:A58")
c.ClearContents
Next c

Kun je dat niet net zo goed vervangen door:
Sheets("Hulpsheet Sven").Range("A32:A58").ClearContents?

Nu gaat de macro elke cel apart clearen.

IN die tweede loop roep je een cel aan: R.Cells(s,1) als onderdeel van een range. Maar daarboven definieer je de range als 1 cel A32, kan het daar aan liggen?
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 10 juni 2011 @ 15:23:58 #235
62215 qu63
..de tijd drinkt..
pi_97983554
quote:
3s.gif Op vrijdag 10 juni 2011 14:53 schreef Deetch het volgende:
Dim c As Range
For Each c In Sheets("Hulpsheet Sven").Range("A32:A58")
c.ClearContents
Next c

Kun je dat niet net zo goed vervangen door:
Sheets("Hulpsheet Sven").Range("A32:A58").ClearContents?

Nu gaat de macro elke cel apart clearen.
Dit scheelt al bijna 10 sec! ^O^
quote:
IN die tweede loop roep je een cel aan: R.Cells(s,1) als onderdeel van een range. Maar daarboven definieer je de range als 1 cel A32, kan het daar aan liggen?
Hoe zou ik dat anders moeten doen dan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98072200
leg eerst eens uit wat je met die tweede code wilt bewerkstelligen? Dan zal ik na de pinksteren eens een poging wagen.
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 13 juni 2011 @ 01:41:34 #237
62215 qu63
..de tijd drinkt..
pi_98098983
quote:
3s.gif Op zondag 12 juni 2011 17:58 schreef Deetch het volgende:
leg eerst eens uit wat je met die tweede code wilt bewerkstelligen? Dan zal ik na de pinksteren eens een poging wagen.
Vanaf cel A32 naar beneden wil ik een lijst met sheetnamen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98102539
quote:
0s.gif Op maandag 13 juni 2011 01:41 schreef qu63 het volgende:

[..]

Vanaf cel A32 naar beneden wil ik een lijst met sheetnamen
1
2
3		For i = 1 To Sheets.Count
   Range("A" & i + 31) = Sheets(i).Name
Next i
pi_98147899
quote:
7s.gif Op maandag 13 juni 2011 09:28 schreef DaFan het volgende:

[..]
[ code verwijderd ]

zo ga je van 20 regels code naar 6 dat is vast sneller.
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 14 juni 2011 @ 10:50:53 #240
249182 Holy_Goat
mhèèhèhè
pi_98149284
quote:
7s.gif Op maandag 13 juni 2011 09:28 schreef DaFan het volgende:

[..]
[ code verwijderd ]

1
2
3
4		dim ws as worksheet
for each ws in thisworkbook.sheets
   .... ws.name gebruiken
next ws

echter, wat wel leuk zou zijn in vba....
cells(i++,1) als zijnde gebruik i, en voeg daarna automatisch 1 toe aan i.
Toch jammer.
  woensdag 15 juni 2011 @ 09:14:17 #241
62215 qu63
..de tijd drinkt..
pi_98190941
quote:
7s.gif Op maandag 13 juni 2011 09:28 schreef DaFan het volgende:

[..]
[ code verwijderd ]

Hmz, die code kost me alasnogruim 20 seconden.. Geen verbetering t.o.v. dit dus:
1
2
3
4
5
6
7
8		Dim Ws As Worksheet, Wb As Workbook, R As Range, S As Integer
Set Wb = ActiveWorkbook
Set R = Sheets("Hulpsheet Sven").Range("a32")
S = 1
For Each Ws In Wb.Worksheets
R.Cells(S, 1) = Ws.Name
S = S + 1
Next Ws
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98192591
quote:
0s.gif Op woensdag 15 juni 2011 09:14 schreef qu63 het volgende:

[..]

Hmz, die code kost me alasnogruim 20 seconden.. Geen verbetering t.o.v. dit dus:

[ code verwijderd ]

Qua tijd niet...code wel. Korter is beter ;)
Misschien moet je calculate ook ff uitzetten. Het zou best een kunnen dat Excel gaat rekenen als de macro de sheet raadpleegt?

17 lege sheets duurt <1 sec

[ Bericht 2% gewijzigd door DaFan op 15-06-2011 10:30:21 ]
  woensdag 15 juni 2011 @ 11:29:25 #243
62215 qu63
..de tijd drinkt..
pi_98194514
quote:
7s.gif Op woensdag 15 juni 2011 10:24 schreef DaFan het volgende:

[..]

Qua tijd niet...code wel. Korter is beter ;)
Misschien moet je calculate ook ff uitzetten. Het zou best een kunnen dat Excel gaat rekenen als de macro de sheet raadpleegt?

17 lege sheets duurt <1 sec
Ik denk dat het vooral komt door bijna 800 cellen met een UNIQUE()-functie..

Berekenen uitzetten was idd wel een goede, nu duurde het <1sec ipv 12 sec!

[ Bericht 4% gewijzigd door qu63 op 15-06-2011 11:36:16 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 15 juni 2011 @ 11:37:50 #244
62215 qu63
..de tijd drinkt..
pi_98194805
Nu moet ik alleen nog iets bedenken hoe ik die UNIQUE-functie lege cellen over kan laten slaan en of deze nog sneller kan. In grote sheets duurt het namelijk soms 0,5sec voordat ik weer verder kan..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98195960
quote:
0s.gif Op woensdag 15 juni 2011 11:37 schreef qu63 het volgende:
Nu moet ik alleen nog iets bedenken hoe ik die UNIQUE-functie lege cellen over kan laten slaan en of deze nog sneller kan. In grote sheets duurt het namelijk soms 0,5sec voordat ik weer verder kan..
Ik denk gewoon met een IF, volgens mij evalueert ie pas FALSE of TRUE na de IF
pi_98197497
1
2
3
4
5
6
7
8		For Each cl In InputRange
     If cl.Formula <> "" Then
         cUnique.Add cl.Value, CStr(cl.Value)
     Else
         Goto Volgende
     End If
Volgende:
Next cl
?

[ Bericht 19% gewijzigd door DaFan op 15-06-2011 13:22:03 ]
pi_98198209
quote:
7s.gif Op woensdag 15 juni 2011 12:56 schreef DaFan het volgende:

[ code verwijderd ]

?
dan stopt de code toch bij de eerste de beste lege cel? vraag me af of dat de bedoeling is.
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_98198578
quote:
3s.gif Op woensdag 15 juni 2011 13:12 schreef Deetch het volgende:

[..]

dan stopt de code toch bij de eerste de beste lege cel? vraag me af of dat de bedoeling is.
Aangepast, thanks.
VBA heeft geen 'Continue' :r
  woensdag 15 juni 2011 @ 13:29:33 #249
62215 qu63
..de tijd drinkt..
pi_98198896
quote:
7s.gif Op woensdag 15 juni 2011 12:56 schreef DaFan het volgende:

[ code verwijderd ]

?
Helaas, het veranderd niets, ik krijg nog steeds in een lijst unieke waarden een lege cel ;(
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98199733
quote:
0s.gif Op woensdag 15 juni 2011 13:29 schreef qu63 het volgende:

[..]

Helaas, het veranderd niets, ik krijg nog steeds in een lijst unieke waarden een lege cel ;(
Is je waarde in cl leeg leeg of is hij leeg door een formule?
Want dan is cl.Formula natuurlijk nooit ""

cl.Value <> "" is dan beter ;)

vb;
Als ik A1:A10 heb staan
1=IF(ROW(A1)=4;"";ROW(A1))
(doorgetrokken)
Dan geeft cl.Value = 9
cl.Formula = 10

Edit, zo dus:
1
2
3
4
5		For Each cl In InputRange
     If cl.Value<> "" Then
         cUnique.Add cl.Value, CStr(cl.Value)
     End If
Next cl
  woensdag 15 juni 2011 @ 14:07:08 #251
62215 qu63
..de tijd drinkt..
pi_98200567
quote:
7s.gif Op woensdag 15 juni 2011 13:48 schreef DaFan het volgende:

[..]

Is je waarde in cl leeg leeg of is hij leeg door een formule?
Want dan is cl.Formula natuurlijk nooit ""

cl.Value <> "" is dan beter ;)

vb;
Als ik A1:A10 heb staan
[ code verwijderd ]

(doorgetrokken)
Dan geeft cl.Value = 9
cl.Formula = 10

Edit, zo dus:

[ code verwijderd ]

Check! Er staan idd formules in :) ^O^
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98200773
Snelheid nu?
  woensdag 15 juni 2011 @ 14:35:40 #253
330093 McCandless
I'm supertramp
pi_98201758
Ik werk met Excel 2003 en heb daar een 2 keuzelijsten gemaakt. Alleen wil ik hierbij iets bewerkstelligen waarvan ik me afvraag of dit mogelijk is.

Ik heb dus 2 keuze-lijsten, stel 1 in A1 en 1 in A2.

De keuze's die ik bij A2 wil laten verschijnen moeten echter afhankelijk zijn van wat ik bij A1 gekozen heb. Bijvoorbeeld:

Keuze's A1:

Kosten
Opbrengsten

Keuze's A2:
Directe kosten
Indirecte kosten
Vaste opbrengsten
Losse opbrengsten

Directe kosten en indirecte kosten moeten dan alleen verschijnen als ik in A1 kosten heb gekozen.

Kan dit?
pi_98201845
quote:
5s.gif Op woensdag 15 juni 2011 14:35 schreef McCandless het volgende:
Ik werk met Excel 2003 en heb daar een 2 keuzelijsten gemaakt. Alleen wil ik hierbij iets bewerkstelligen waarvan ik me afvraag of dit mogelijk is.

Ik heb dus 2 keuze-lijsten, stel 1 in A1 en 1 in A2.

De keuze's die ik bij A2 wil laten verschijnen moeten echter afhankelijk zijn van wat ik bij A1 gekozen heb. Bijvoorbeeld:

Keuze's A1:

Kosten
Opbrengsten

Keuze's A2:
Directe kosten
Indirecte kosten
Vaste opbrengsten
Losse opbrengsten

Directe kosten en indirecte kosten moeten dan alleen verschijnen als ik in A1 kosten heb gekozen.

Kan dit?
http://www.contextures.com/xldataval02.html
  woensdag 15 juni 2011 @ 14:38:40 #255
62215 qu63
..de tijd drinkt..
pi_98201893
quote:
7s.gif Op woensdag 15 juni 2011 14:12 schreef DaFan het volgende:
Snelheid nu?
Niet veranderd, maar nu hoef ik niet om lege cellen heen te werken :)
De macro die te lang duurde is sneller geworden door het uitschakelen van het berekenen :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98202260
quote:
0s.gif Op woensdag 15 juni 2011 14:38 schreef qu63 het volgende:

[..]

Niet veranderd, maar nu hoef ik niet om lege cellen heen te werken :)
De macro die te lang duurde is sneller geworden door het uitschakelen van het berekenen :)
Mooi! Next ;)
  woensdag 15 juni 2011 @ 14:53:46 #257
330093 McCandless
I'm supertramp
pi_98202477
quote:
7s.gif Op woensdag 15 juni 2011 14:37 schreef DaFan het volgende:

[..]

http://www.contextures.com/xldataval02.html
Mijn dank is groot!
  woensdag 15 juni 2011 @ 15:06:17 #258
62215 qu63
..de tijd drinkt..
pi_98203045
quote:
7s.gif Op woensdag 15 juni 2011 14:48 schreef DaFan het volgende:

[..]

Mooi! Next ;)
Sorry, ik heb even niets meer ;) M'n sheets zijn nu weer snel en ze doen wat ze moeten doen!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98237155
Hi All,

Ik heb een stukje code dat bepaalt of de regels in een bepaalde sectie wel of niet moeten worden laten zien.

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		Sub ShowOrHide(tabloid As String, sColumn As Integer, startRow As Integer, endRow As Integer, Hide, Level)
    
    Dim wsData As Worksheet
    Set wsData = Worksheets(tabloid)
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Call UnProtect_WorkSheets(tabloid)
        
    For i = startRow To endRow

        Select Case Hide

            Case 0:  If Cells(i, sColumn) <= Level Then wsData.Rows(i).Hidden = True               'Hide
            Case 1:
                     If Cells(i, sColumn) <= Level Then                                            'Unhide
                        wsData.Rows(i).Hidden = False
                     Else
                        wsData.Rows(i).Hidden = True
                     End If
            Case 2:                                                                                'Unhide extra Level
                     If Cells(i, sColumn) <= Level + 1 Then
                        wsData.Rows(i).Hidden = False
                     Else
                        wsData.Rows(i).Hidden = True
                     End If

        End Select

    Next i
    
    Call Protect_WorkSheets(tabloid)
    
End Sub

Ik run deze macro op een sectie van zo'n 4000 regels. Onder Excel 2007 duurt dat zo'n 5 seconden. Onder 2010 duurt het echter zo'n 150 seconden. Das dus 30x zo lang :S

Iemand enig idee waar dit verschil in snelheid vandaan komt?
  donderdag 16 juni 2011 @ 08:48:13 #260
38651 yozd
FR1908 Vakkie R
pi_98237535
Ik heb in Excel 2007 wat staafdiagrammen gemaakt. Deze heb ik gekopieerd naar Word, maar ze verschijnen alleen goed in beeld als ik copy/paste doe. Diegene naar wie ik het moet opsturen, wil het echter hebben als copy/paste special --> enhanced metabestand. Probleem is dan echter dat die de layout verpest. Hij laat de x-as en de rechter y-as helemaal niet meer zien!

Weet iemand hoe dat kan?

En dan nog een vreemder iets; als ik gewoon copy/paste in een Word bestand, ziet alles er goed uit, maar als een collega hetzelfde bestand opent, in dezelfde versie van Word, dan ziet hij de x-as en rechter y-as ook niet! Herkent iemand dit?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_98238135
quote:
0s.gif Op donderdag 16 juni 2011 08:21 schreef actuarisje het volgende:
Hi All,

Ik heb een stukje code dat bepaalt of de regels in een bepaalde sectie wel of niet moeten worden laten zien.
[ code verwijderd ]

Ik run deze macro op een sectie van zo'n 4000 regels. Onder Excel 2007 duurt dat zo'n 5 seconden. Onder 2010 duurt het echter zo'n 150 seconden. Das dus 30x zo lang :S

Iemand enig idee waar dit verschil in snelheid vandaan komt?
Volgens mij was er bij Excel 2010 in de VBA nogal wat aangepast misschien dat dat de oorzaak is.
Helpt het als je in de macro syntax (eerste regel van Sub ......) de variabelen Hide en Level ook definieert als "as integer"?
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_98238165
quote:
0s.gif Op donderdag 16 juni 2011 08:48 schreef yozd het volgende:
Ik heb in Excel 2007 wat staafdiagrammen gemaakt. Deze heb ik gekopieerd naar Word, maar ze verschijnen alleen goed in beeld als ik copy/paste doe. Diegene naar wie ik het moet opsturen, wil het echter hebben als copy/paste special --> enhanced metabestand. Probleem is dan echter dat die de layout verpest. Hij laat de x-as en de rechter y-as helemaal niet meer zien!

Weet iemand hoe dat kan?

En dan nog een vreemder iets; als ik gewoon copy/paste in een Word bestand, ziet alles er goed uit, maar als een collega hetzelfde bestand opent, in dezelfde versie van Word, dan ziet hij de x-as en rechter y-as ook niet! Herkent iemand dit?
Nee. De workaround die je kunt toepassen:

Screendump maken (CTRL+printScreen)
Plakken in paint of ander tekenprogramma
Selectie hieruit kopieren
Plakken speciaal als metabestand
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 16 juni 2011 @ 11:05:40 #263
62215 qu63
..de tijd drinkt..
pi_98241062
Benne we weer :s)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21		Sub trimit()
startTime = Time
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim h As Long

For h = 1 To Sheets("Data HO Sven").Range("A65536").End(xlUp).Row
   Range("A" & h).Value = trim(Range("A" & h).Value)
Next
Dim v As Long

For v = 1 To Sheets("Data VP").Range("A65536").End(xlUp).Row
   Range("A" & v).Value = trim(Range("A" & v).Value)
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
stopTime = Time
    elapsedTime = (stopTime - startTime) * 24 * 60 * 60
    duur = Application.WorksheetFunction.Round(elapsedTime, 2)
    MsgBox "Klaar! Het trimmen duurde " & duur & " seconden." & Chr(13)
End Sub
Geeft een foutmelding op regel 8 "typen komen niet met elkaar overeen" (en ook op regel 13 als ik het eerste blok weg laat)

Nu dacht ik dat het gisteren nog wel werkte.. Wie weet wat er fout is?

-edit-
WTF? Na het toevoegen van een errorhandler (omdat m'n sheet maar op handmatig bijwerken bleef staan) werkt het wel..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		Sub trimit()
startTime = Time
Application.ScreenUpdating = False
Application.Calculation = xlManual

On Error GoTo errhandler
Dim h As Long

For h = 1 To Sheets("Data HO Sven").Range("A65536").End(xlUp).Row
   Range("A" & h).Value = trim(Range("A" & h).Value)
Next
Dim v As Long

For v = 1 To Sheets("Data VP").Range("A65536").End(xlUp).Row
   Range("A" & v).Value = trim(Range("A" & v).Value)
Next
errhandler:
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
stopTime = Time
    elapsedTime = (stopTime - startTime) * 24 * 60 * 60
    duur = Application.WorksheetFunction.Round(elapsedTime, 2)
    MsgBox "Klaar! Het trimmen duurde " & duur & " seconden." & Chr(13)
End Sub


[ Bericht 3% gewijzigd door qu63 op 16-06-2011 11:14:22 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 16 juni 2011 @ 11:14:45 #264
38651 yozd
FR1908 Vakkie R
pi_98241367
quote:
3s.gif Op donderdag 16 juni 2011 09:24 schreef Deetch het volgende:

[..]

Nee. De workaround die je kunt toepassen:

Screendump maken (CTRL+printScreen)
Plakken in paint of ander tekenprogramma
Selectie hieruit kopieren
Plakken speciaal als metabestand
Dan ga ik het maar op deze manier doen denk ik. Bedankt!
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_98241398
Regel 8 = regel 9 in code tag toch?
Waarom maak je h een Long?
Waarom zet je niet neer "Next h" ipv "Next", volgens mij is dit geen correcte syntax
pi_98241409
quote:
0s.gif Op donderdag 16 juni 2011 11:14 schreef yozd het volgende:

[..]

Dan ga ik het maar op deze manier doen denk ik. Bedankt!
Office 2010 gebruiken :P Daar zit een screenshot functie in!
  donderdag 16 juni 2011 @ 12:26:26 #267
112251 314
gimme pie!
pi_98244026
ik wil graag in een percentage uitdrukken hoe ver iets af is, dit wordt berekend door het aantal minuten dat bepaalde stappen duren te delen door het totaal, en dat weer te geven als %

even simpel gezegd, 4 stappen van 15 minuten zijn dus een uur:
1
2
3
4
5		A    B    C
15
15
15
15   60  100%
de 100% in C4 komt automatisch uit iets dergelijks als =SUM(A1:A4)/B4 --> resultaat is 1 --> 100%
maar nu wil ik dat een bepaalde stap alleen meegerekend wordt op basis van 'done' ja/nee

1
2
3
4		15 Done
15 Done
15
15          60  50%

hoe doe ik dat :?
pi_98244359
=SUMIF(B1:B4;"=Done";A1:A4)/C4

(Neem aan dat '60' in C4 staat, niet in B4).
  donderdag 16 juni 2011 @ 13:02:35 #269
62215 qu63
..de tijd drinkt..
pi_98245240
quote:
7s.gif Op donderdag 16 juni 2011 11:15 schreef DaFan het volgende:
Regel 8 = regel 9 in code tag toch?
Nope, echt regel 8
quote:
Waarom maak je h een Long?
copy-paste :P
quote:
Waarom zet je niet neer "Next h" ipv "Next", volgens mij is dit geen correcte syntax
idem..

Vond de code ergens en heb em aangepast naar mijn wens.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 16 juni 2011 @ 13:44:27 #270
112251 314
gimme pie!
pi_98246775
quote:
7s.gif Op donderdag 16 juni 2011 12:35 schreef DaFan het volgende:
=SUMIF(B1:B4;"=Done";A1:A4)/C4

(Neem aan dat '60' in C4 staat, niet in B4).
^O^ alleen wel komma gebruiken ipv ;
pi_98246886
quote:
0s.gif Op donderdag 16 juni 2011 13:44 schreef 314 het volgende:

[..]

^O^ alleen wel komma gebruiken ipv ;
Moet je je taal er maar bij zetten zoals in de OP staat :6
  donderdag 16 juni 2011 @ 14:06:43 #272
112251 314
gimme pie!
pi_98247636
quote:
12s.gif Op donderdag 16 juni 2011 13:46 schreef DaFan het volgende:

[..]

Moet je je taal er maar bij zetten zoals in de OP staat :6
had al SUM gebruikt in plaats van SOM ;)
  donderdag 16 juni 2011 @ 16:06:10 #273
112251 314
gimme pie!
pi_98252772
quote:
7s.gif Op donderdag 16 juni 2011 12:35 schreef DaFan het volgende:
=SUMIF(B1:B4;"=Done";A1:A4)/C4
ik bedenk me net dat als je iets overslaat, dat het dan ook op zich 'gedaan' is.. kun je een OR als criterium van de SUMIF geven? dan kan ik gewoon find&replace gebruiken namelijk

ik wil dus =SUMIF(B1:B4;"=Done" of "=Skip";A1:A4)/C4 maar hoe ik het ook draai, wend, keer, probeer tussen haakjes erin te krijgen, Excel pikt het niet
pi_98253650
quote:
0s.gif Op donderdag 16 juni 2011 16:06 schreef 314 het volgende:

[..]

ik bedenk me net dat als je iets overslaat, dat het dan ook op zich 'gedaan' is.. kun je een OR als criterium van de SUMIF geven? dan kan ik gewoon find&replace gebruiken namelijk

ik wil dus =SUMIF(B1:B4;"=Done" of "=Skip";A1:A4)/C4 maar hoe ik het ook draai, wend, keer, probeer tussen haakjes erin te krijgen, Excel pikt het niet
Niet te moeilijk doen imo;
=(SUMIF(B1:B4;"=Done";A1:A4)+SUMIF(B1:B4;"=Skip";A1:A4))/C4
  donderdag 16 juni 2011 @ 16:30:02 #275
112251 314
gimme pie!
pi_98253950
als je dat doet dan telt ie A1:A4 dubbel, deelt ie door C4 en krijg je 2x zo hoge waarden. daarbij zou ik alle SUMIF aan moeten gaan passen en dat zijn er een stuk of 50.. een find&replace zou zoveel makkelijker zijn
pi_98255159
=SUMIF(B1:B4;OR("=Done";"=Skip");A1:A4)/C4 werkt ook niet?
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_98258509
quote:
0s.gif Op donderdag 16 juni 2011 16:30 schreef 314 het volgende:
als je dat doet dan telt ie A1:A4 dubbel, deelt ie door C4 en krijg je 2x zo hoge waarden.
Niet waar. Heb je het geprobeerd?
pi_98258527
quote:
3s.gif Op donderdag 16 juni 2011 16:57 schreef Deetch het volgende:
=SUMIF(B1:B4;OR("=Done";"=Skip");A1:A4)/C4 werkt ook niet?
Nee ik heb alle opties wel gehad. SUMIFS kan ook niet dat is voor EN, niet voor OR.
SUMPRODUCT kan ook niet...

Maar als het je lukt hou ik me ook aanbevolen.
  donderdag 16 juni 2011 @ 18:49:52 #279
62215 qu63
..de tijd drinkt..
pi_98260155
quote:
7s.gif Op donderdag 16 juni 2011 18:10 schreef DaFan het volgende:

[..]

Nee ik heb alle opties wel gehad. SUMIFS kan ook niet dat is voor EN, niet voor OR.
SUMPRODUCT kan ook niet...

Maar als het je lukt hou ik me ook aanbevolen.
SUM(IF(B1:B4="Done";IF(B1:B4="Skip";A1:A4/C4;"Fout!"))
:?

http://www.ozgrid.com/Excel/sum-if.htm

-edit-
Sumifs zou ook moeten werken: http://techtites.com/2008(...)multiple-conditions/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98288851
Ik wil graag het commando vervangen gebruiken, maar kan dat ook voor meerdere tekens in één cel?

Dit is mijn uitgangspunt:
T1AC=MEAN(T1_AC,T1_AC2).

Als ik =VERVANGEN(A1;2;1;2) gebruik wordt het 2e teken in cel A1 veranderd in een 2. Maar ik wil dat de andere T1'tjes ook een T2 worden. Ik wil dus dat er komt te staan: T2AC=MEAN(T2_AC,T2_AC2).

Hoe kan je meerdere tekens in één keer in 1 cel vervangen?

Meerdere keren het commando vervangen achter elkaar pakt ie niet. Ook =vervangen(x;x;x;x;x;x;x;x;x;x;) doet ie niet. Bij de helpfunctie staat alleen hoe je één teken of een tekenreeks kunt vervangen. Is er een manier waar op ik de drie 1'tjes in een 2 kan veranderen met een commando in Excel?

Alvast bedankt :).
Ik gebruik Office 2007, NL
pi_98289383
quote:
0s.gif Op vrijdag 17 juni 2011 12:25 schreef hetzusjevan het volgende:Is er een manier waar op ik de drie 1'tjes in een 2 kan veranderen met een commando in Excel?

Alvast bedankt :).
Ik gebruik Office 2007, NL
Je moet SUBSTITUEREN gebruiken ipv VERVANGEN.

=SUBSTITUEREN (A1;1;2)
pi_98290260
ctrl+H en dan "T1" vervangen door "T2"
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 17 juni 2011 @ 13:25:20 #283
38651 yozd
FR1908 Vakkie R
pi_98290908
Ik gebruik in een Excel document (document X) de formule:

A3=cel("bestandsnaam")

mbv de naam van de directory waar alles in staat zoek ik bepaalde waarden in een matrix. Dat werkt allemaal goed. Maar als ik nu een ander Excel document open (in een andere directory) met X open, dan verandert die die de waarde van A3 in X (hij neemt de directory naam over van de directory waarin het nieuwe bestand staat).

Is dat probleem op te lossen?

-edit-

Heb het probleem opgelost met een cell referentie: cel("bestandsnaam",A1)

Maar ik heb geen idee wat ik doe...

[ Bericht 13% gewijzigd door yozd op 17-06-2011 13:31:27 ]
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_98291413
quote:
7s.gif Op vrijdag 17 juni 2011 12:41 schreef DaFan het volgende:

[..]

Je moet SUBSTITUEREN gebruiken ipv VERVANGEN.

=SUBSTITUEREN (A1;1;2)

quote:
3s.gif Op vrijdag 17 juni 2011 13:04 schreef Deetch het volgende:
ctrl+H en dan "T1" vervangen door "T2"
Thanks beide! Heb beide opties kunnen gebruiken voor verschillende doeleinden, het is nu oplost :).
  vrijdag 17 juni 2011 @ 14:12:55 #285
62215 qu63
..de tijd drinkt..
pi_98292456
quote:
0s.gif Op vrijdag 17 juni 2011 13:25 schreef yozd het volgende:
Ik gebruik in een Excel document (document X) de formule:

A3=cel("bestandsnaam")

mbv de naam van de directory waar alles in staat zoek ik bepaalde waarden in een matrix. Dat werkt allemaal goed. Maar als ik nu een ander Excel document open (in een andere directory) met X open, dan verandert die die de waarde van A3 in X (hij neemt de directory naam over van de directory waarin het nieuwe bestand staat).

Is dat probleem op te lossen?

-edit-

Heb het probleem opgelost met een cell referentie: cel("bestandsnaam",A1)

Maar ik heb geen idee wat ik doe...
De functie cel() gebruikt altijd de laatst actieve cel, behalve als je er een referentie achter plakt. In jouw geval dus A1 :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 17 juni 2011 @ 14:14:33 #286
62215 qu63
..de tijd drinkt..
pi_98292516
Is het mogelijk om in Outlook een mail op te stellen met variabelen uit een Excelsheet?

Dus "Hallo %naam%, blablabal %meerblabla%" in de tekst en ook de naam en het emailadres in de header..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 17 juni 2011 @ 14:17:19 #287
38651 yozd
FR1908 Vakkie R
pi_98292624
quote:
0s.gif Op vrijdag 17 juni 2011 14:14 schreef qu63 het volgende:
Is het mogelijk om in Outlook een mail op te stellen met variabelen uit een Excelsheet?

Dus "Hallo %naam%, blablabal %meerblabla%" in de tekst en ook de naam en het emailadres in de header..
http://www.rondebruin.nl/sendmail.htm
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
  vrijdag 17 juni 2011 @ 18:45:44 #288
62215 qu63
..de tijd drinkt..
pi_98303165
quote:
0s.gif Op vrijdag 17 juni 2011 14:17 schreef yozd het volgende:

[..]

http://www.rondebruin.nl/sendmail.htm
Ik wil de mail nog wel normaal op kunnen maken in Outlook. De (weliswaar handige) opties die ik daar zie geven mij die optie niet ;(
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 19 juni 2011 @ 02:42:43 #289
17637 spooky1234
Whaazzuuuuup!!
pi_98360943
Vraagje: (denk redelijk simpel)

In Kolom A: Klantnaam
In Kolom B: Bedrag

Complicatie; sommige klanten komen meerdere keren voor bijvb;

Jan 100
Kees 200
Jan 60
Piet 900

Wat ik wil is een kolom met alle klanten maar dan uniek, dus niet Jan 2x. En in 2e kolom totaalbedragen per klant;

Jan 160
Kees 200
Piet 900

Remove duplicate values is geen probleem, maar hoe tel ik lookups van zelfde klanten bij elkaar?
I see dumb people! They are everywhere, walking around, not even knowing they are dumb!
pi_98362735
Hiervoor is de draaitabel (pivot table) in het leven geroepen.
Menu invoegen/insert, dan draaitabel/pivot table.
Sleep de klantnaam in de rijlabels en het bedrag naar het waardeveld.
google anders even.
  zondag 19 juni 2011 @ 12:10:48 #291
62215 qu63
..de tijd drinkt..
pi_98365448
quote:
0s.gif Op zondag 19 juni 2011 09:32 schreef hendrik2009 het volgende:
Hiervoor is de draaitabel (pivot table) in het leven geroepen.
Menu invoegen/insert, dan draaitabel/pivot table.
Sleep de klantnaam in de rijlabels en het bedrag naar het waardeveld.
google anders even.
Of met deze functie: [Excel] Het grote Excel vragen topic #26
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 20 juni 2011 @ 07:17:53 #292
17637 spooky1234
Whaazzuuuuup!!
pi_98400572
Thx voor vorige tip mbt pivottable, nu weer een newb question;

Ik kom niet helemaal uit met index & match. Wat ik wil is juiste "dagprijs" opzoeken in een tabel waarvan kolommen dagen zijn en regels staan voor artikelen.

- - - - - - dag1 dag2 dag3
arikel1 -- 22 -- - 18 ---- 29
artikel2 - 67 - -- 25 -- - 98
artikel3 - 33 - -- 35 -- - 12

Ik wil een formule waarin item en dagnr invoer zijn en uitvoer waarde uit tabel.
Dus f(artikel2,dag2)=25

---------------- Never mind; heb al een oplossing gevonden; http://www.techonthenet.com/excel/formulas/2d_lookup.php

[ Bericht 7% gewijzigd door spooky1234 op 20-06-2011 08:31:02 ]
I see dumb people! They are everywhere, walking around, not even knowing they are dumb!
pi_98506685
M'n vraag klinkt zo simpel, ik heb alleen geen idee hoe het moet ..



Bij kolom C, onder de "jaarlijkse vasten kosten" (Ja ik weet dat die n daar niet hoort :@ ).
Daar wil ik weer gewoon 1 of 2 van de verticale lijntjes zeg maar, maar zonder dat dat daar boven allemaal weer veranderd.

Iemand ?
pi_98507576
Kijk eens bij start - Uitlijning en dan onder samenvoegen en centreren: 'samenvoegen van cellen opheffen'.
'Expand my brain, learning juice!'
&lt;a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank"&gt;Last.fm&lt;/a&gt;
pi_98508028
quote:
0s.gif Op woensdag 22 juni 2011 14:07 schreef crossover het volgende:
Kijk eens bij start - Uitlijning en dan onder samenvoegen en centreren: 'samenvoegen van cellen opheffen'.
Nee die werkt niet, aangezien er geen cellen zijn samengevoegd, het is 1 cel die ik breder heb gemaakt.
  woensdag 22 juni 2011 @ 14:45:02 #296
62215 qu63
..de tijd drinkt..
pi_98509145
quote:
0s.gif Op woensdag 22 juni 2011 14:17 schreef loeders het volgende:

[..]

Nee die werkt niet, aangezien er geen cellen zijn samengevoegd, het is 1 cel die ik breder heb gemaakt.
Extra kolom toevoegen en dan de cellen erboven op iedere regel samenvoegen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98523606
Ik wil graag het volgende bereiken:

in een excelbestand staan verschillende gegevens. Omdat deze gegevens geëxporteerd worden uit een ander programma, worden getallen niet herkent.
In 1 kolom heb je in een cel een getal gevolgd door een *. Doordat het geëxporteerd is, staat de cel niet als getal ingesteld, maar wordt er ook nog eens een " *" achter het getal gezet zodat al helemaal niet meer als getal herkent kan worden.
In verschillende cellen er onder heb je dan tekst staan.

bv:

A1 = 12345 *
A2 = ABCD
A3 = ABCD
A4 = 54321 *

Wat ik wil bereiken is dat er in kolom B komt te staan of de waarden in kolom A getallen of tekst zijn. Ik heb al geprobeerd met de formule:

1
2		 In cel B1:
= LINKS(A1,LENGTE(A1)-2) 
Het resultaat is dat in B1 het getal komt te staan "12345" maar dat het niet al getal herkend wordt:
bv in cel C1:
1 = ISGETAL(B1) 
Dit geeft al resultaat ONWAAR. Het bizarre is dat ik echter wel kan rekenen met cel B1. Dus Excel herkent het wel als getal maar niet altijd, en ook niet waar ik het nodig heb.

De uiteindelijke bedoeling is dat wanneer er in kolom A een getal staat, dat in kolom B een naam komt te staan die via verticaal zoeken wordt opgezocht aan de hand van het getal in kolom A.

Ik heb momenteel het volgende in cel B1 staan:
1=ALS(ISGETAL(LINKS(A1;1))=WAAR;VERT.ZOEKEN(LINKS(A1;LENGTE(A1)-2);leveranciers;2;ONWAAR);"")
Eerst ga ik controleren of het 1ste karakter van cel A1 een getal is. Als dit zo is, dan moet er via verticaal zoeken gezocht worden op de waarde in cel A1 zonder de 2 laatste karakters, nl. de " *".
Het probleem zit hem net in het eerste stuk van de ALS -> ISGETAL geeft overal ONWAAR...

Iemand een idee?

-EDIT-
Mijn probleem is opgelost _O_
Ik heb zelf een functie geschreven die het 1ste karakter omzet naar een getal. Wanneer ik hier dan de ISGETAL-functie mee combineer, geeft dit het gewenste resultaat.
Even ter info nog mijn zelfgeschreven functie:

1
2
3
4
5
6
7
8
9
10		Option Explicit

Public Function tekstconvert(tekst As String) As Integer

Dim nummer As Integer

nummer = Left(tekst, 1)
tekstconvert = nummer

End Function
Als ik dit dan ingeef in cel B2: =ALS(ISGETAL(tekstconvert(A1))=WAAR; ...
geeft Excel de naam bij de getallen en niets bij de niet-getallen ^O^

[ Bericht 9% gewijzigd door Da_KlouwN op 22-06-2011 20:27:04 ]
pi_98546082
Waarom zet je er niet gewoon WAARDE() omheen dat doet hetzelfde :')
pi_98569960
quote:
7s.gif Op donderdag 23 juni 2011 11:06 schreef DaFan het volgende:
Waarom zet je er niet gewoon WAARDE() omheen dat doet hetzelfde :')
Oeps :') Al dat werkt voor niets :D
Mijn oplossing werkte uiteindelijk toch niet optimaal :'(
  Boks-Chick zondag 26 juni 2011 @ 21:57:55 #300
118131 BrandX
BoksChick & CoffeeAddict
pi_98695320
Vraagje?

in excel 2007, hoe kan ik mijn afdrukbereik instellen?

in lager dan 2007 deed ik dat via bestand -> afdrukbereik.

In 2007 vind ik wel paginaindeling -> en dan onder paginainstelling: afdrukbereik.

Doch als ik daarop klik en zeg afdrukbereik bepalen, dan gebeurt er gewoon niets ;(

Wat doe ik fout, c.q. waar moet ik zoeken?
lolwut
actieve topics nieuwe topics
abonnement Unibet Coolblue
[Excel] Het grote Excel vragen topic #26
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')