DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Ja dat is dus lastig, omdat je, zodra je de value eruithaalt, hem opslaat als een getal.quote:Op woensdag 18 maart 2009 13:04 schreef qu63 het volgende:
[..]
Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..
Ik zag een post over IsDate maar ik krijg het niet aan de praat
Ik zal nog even voor je rondkijken![ Bericht 0% gewijzigd door DaFan op 18-03-2009 20:23:44 ]
Check, je moet de Text eruit halen, niet Value
Hoop dat dit helpt.
| 1 2 3 4 5 6 7 | If IsDate(Waarde) Then MsgBox "Ja" Else MsgBox "Nee" End If |
Hoop dat dit helpt.
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.
Wie kan mij helpen?
Wie kan mij helpen?
Eerst een tabel maken, bijvoorbeeld in een ander tabblad, met alle nummers onder elkaar met de afdeling naam erbij (sheet2). Zeg in A1:B10 (10 nummers, 10 afdelingen).quote:Op woensdag 18 maart 2009 21:10 schreef hoek21 het volgende:
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.
Wie kan mij helpen?
Dan op Sheet1:
- Je nummer staat in cel A1.
- Je wil de afdeling in cel B1 hebben:
=VLOOKUP(A1,Sheet2!A1:B10, 2, 0)
Geeft dan de afdeling naam in B1 aan de hand van cel A1.
Vertaling en versie wijzigingen mag je zelf uitzoeken. Lees de OP maar
je moest ons even inwrijven dat je in mexico zat? You bastard!quote:Op woensdag 18 maart 2009 22:23 schreef hoek21 het volgende:
TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City
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
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
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.
| 1 |
Waarom kan ik de tekstkleur van een textlabel niet veranderen? Het font kan ik wel veranderen, maar de kleur blijkbaar niet
Tevens kent excel 2003 blijkbaar het commando format$ niet:
| 1 |
Ik heb een flink userform gemaakt in excel 2004, bedoeld voor collega's die met excel 2003 werken. Gevolg is dat ze constant errors krijgen
[ Bericht 24% gewijzigd door Hi_flyer op 19-03-2009 10:28:52 ]
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _ :=xlPivotTableVersion10 Sheets("Data").Select Cells(19, 6).Select ActiveWorkbook.ShowPivotTableFieldList = True With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Ernst") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit"). _ Orientation = xlHidden With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Product") .Orientation = xlRowField .Position = 1 End With Range("F19").Select ActiveWorkbook.ShowPivotTableFieldList = False |
Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?quote:Op donderdag 19 maart 2009 07:54 schreef DaFan het volgende:
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.
(of bedoel je mijn eigen probeersel?)
Dit heb je niet in zijn geheel 'opgenomen' toch? (gezien de Cells(.., ..) regel)quote:Op donderdag 19 maart 2009 11:28 schreef Jaheur het volgende:
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:
[ code verwijderd ]
Bij welke regel krijg je de foutmelding?
Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).quote:Op donderdag 19 maart 2009 12:40 schreef Metal_Jag het volgende:
[..]
Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?
(of bedoel je mijn eigen probeersel?)
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.
Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
| 1 2 3 4 5 6 7 8 9 | If IsDate(Waarde) Then If Mid(Waarde, 3, 1) = ":" And IsNumeric(Mid(Waarde, 1, 2)) Then MsgBox "Is Tijd" End If End If |
Jaheur als je nou ff een nep variable aanmaakt, zeg i = 1 en deze plaatst aan het begin van je macro. Ga dan in de Editor en doe rechtermuisknop -> Add watch (Controle toevoegen) -> Break when value changes (Onderbreken indien waarde is gewijzigd).
Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.
Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.
Thanx. Ziet er goed uit.quote:Op donderdag 19 maart 2009 13:46 schreef DaFan het volgende:
[..]
Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.
Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
[ code verwijderd ]
Ik heb vanuit de control toolbox een scrollbar gekoppeld aan een cel.
Nu wil ik echter elke keer als ik de worksheet open dat de waarden van de 2 scrollbars weer terug naar 0 gaan, ongeacht waar deze eerst op stond. In cel B2 wil ik de datum van vandaag.
Onderstaande code werkt niet
Nu wil ik echter elke keer als ik de worksheet open dat de waarden van de 2 scrollbars weer terug naar 0 gaan, ongeacht waar deze eerst op stond. In cel B2 wil ik de datum van vandaag.
Onderstaande code werkt niet
| 1 2 3 4 5 6 7 8 | Range("B2").Value = Date ScrollBar1.Value = 0 ScrollBar2.Value = 0 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
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
Vergeet je m niet in ThisWorkbook te zetten en niet in Blad1.
Daarnaast:
Worksheets("Blad1").ScrollBar1.Value = 0
Daarnaast:
Worksheets("Blad1").ScrollBar1.Value = 0
nevermind 
code stond idd op de verkeerde plek
[ Bericht 78% gewijzigd door Deetch op 19-03-2009 16:56:48 ]
code stond idd op de verkeerde plek
[ Bericht 78% gewijzigd door Deetch op 19-03-2009 16:56:48 ]
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
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
quote:Op donderdag 19 maart 2009 16:51 schreef Deetch het volgende:
nevermind
code stond idd op de verkeerde plek
LOLquote:
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
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
Goedenavond!
Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?
Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.
Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5
Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!
Ik hoor het heel graag!
Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?
Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.
Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5
Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!
Ik hoor het heel graag!
