ehm...quote:
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..
1 2 3 4 5 6 7 | If IsDate(Waarde) Then MsgBox "Ja" Else MsgBox "Nee" End If |
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?
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
1 |
1 |
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.
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 ]
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?)
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 |
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 ]
1 2 3 4 5 6 7 8 | Range("B2").Value = Date ScrollBar1.Value = 0 ScrollBar2.Value = 0 End Sub |
quote:Op donderdag 19 maart 2009 16:51 schreef Deetch het volgende:
nevermind
code stond idd op de verkeerde plek
LOLquote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |