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.
Ik heb een hondertal rijen met data, waarvan 'één kolom een datum/tijdsaanduiding is (2009-02-02 14:26:06); nu wil ik in de kolom ernaast automatisch het uurslot invullen (in dit geval 14:00-15:00) hoe kan ik dat het gemakkelijks (automatisch) doen? Het werkje komt dagelijks voor dus van handmatig word ik gillend gek. De data wil ik daarna opnemen in een pivot (al zal dat het makkelijkste zijn).
Excel 2007 UK.
Excel 2007 UK.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Ik heb een oudere NL versie en daar kan het zo:quote:Op dinsdag 3 februari 2009 13:40 schreef static het volgende:
Ik heb een hondertal rijen met data, waarvan 'één kolom een datum/tijdsaanduiding is (2009-02-02 14:26:06); nu wil ik in de kolom ernaast automatisch het uurslot invullen (in dit geval 14:00-15:00) hoe kan ik dat het gemakkelijks (automatisch) doen? Het werkje komt dagelijks voor dus van handmatig word ik gillend gek. De data wil ik daarna opnemen in een pivot (al zal dat het makkelijkste zijn).
Excel 2007 UK.
=UUR(A1) & " - " & UUR(A1)+1
In Engels is de functie UUR gewoon HOUR.
DUS:
=HOUR(A1) & " - " & HOUR(A1)+1
zou moeten werken.
heitieh
Dat werkt als een trein, thanks! 
Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
=HOUR(A1) & ":00 - " & HOUR(A1)+1 & ":00"quote:foto Op dinsdag 3 februari 2009 14:27 schreef static het volgende:
Dat werkt als een trein, thanks!
Nog een schoonheidsvraagje: hoe krijg ik het in dit formaat: 11:00-12:00? Nu is het 11-12.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Het is dat je een vent bent. 
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.
Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.
Is dit op te lossen?
Van deze getallen heb ik een grafiek gemaakt.
Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.
Is dit op te lossen?
In de grafiek de getallen handmatig invoeren?quote:
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.
Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.
Is dit op te lossen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Een elegante oplossing heb ik niet, maar maak een 2e tabblad met celverwijzigen naar het eerste tabblad en baseer je grafiek op het 2e tabblad, zodat je in tabblad 1 gerust rijen kunt verbergen.quote:Op dinsdag 3 februari 2009 20:43 schreef elkravo het volgende:
Ik heb in een aantal cellen getallen gezet.
Van deze getallen heb ik een grafiek gemaakt.
Een aantal cijfers in een bepaalde kolom wil ik verbergen. Maar de grafiek moet die getallen wel "gebruiken". Echter als ik de kolom verberg verandert de grafiek doordat de cijfers niet gebruikt worden.
Is dit op te lossen?
heitieh
Beste mensen,
Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?
Bij voorbaat dank,
Kees
foto
Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?
Bij voorbaat dank,
Kees
Ik neem aan dat je A/B/C gewoon handmatig invoert in kolom F?
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)
En dat naar beneden trekken.
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)
En dat naar beneden trekken.
Volgens mij wil hij ook automatisch unieke waarden zoeken. Dat maakt het lastig. Misschien draaitabel ? (daar heb ik de ballen verstand van)quote:Op woensdag 4 februari 2009 18:34 schreef DaFan het volgende:
Ik neem aan dat je A/B/C gewoon handmatig invoert in kolom F?
Dan wordt G2:
=COUNTIF($A$2:$C$7,F2)
of
=AANTAL.ALS($A$2:$C$7;F2)
En dat naar beneden trekken.
Ik zou zelf maar weer een macro'tje schrijven om de eerste rij te maken, om vervolgens de AANTAL.ALS functie te gebruiken.
[ Bericht 5% gewijzigd door Joooo-pi op 04-02-2009 18:55:46 ]
heitieh
Beste mensen,
Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?
Bij voorbaat dank,
Kees
Ik heb de volgende vraag. Ik zou graag uit 3 kolommen de unieke gegevens willen halen en deze onder elkaar (dus in 1 kolom) op een nieuw blad willen weergeven. In de kolom daarnaast zou ik graag het aantal keer dat deze naam voorkomt willen weergeven. Zie als voorbeeld de afbeelding. De waardes in de linker 3 kolommen (A B en C) moeten omgetoverd worden tot de rechter 2 (F en G). Weet iemand hier een antwoord op?
Bij voorbaat dank,
Kees
wil je ook dat a,b en c ook zelf gezocht worden? Dus als er ook een d komt dat ie er automagisch onder komt?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Een formule gaat echt niet werken. Tenminste, ik ben er 100% van overtuigd dat het kan, maar ik kan het niet 
Ik ga het wél ff proberen, anders maak ik een macro.
Ik ga het wél ff proberen, anders maak ik een macro.
misschien kun je uit deze code de voor jou nuttige stuken halen? Let op over al waar een blauw icoontje staat voor informatie moet komen te staan ( i ) (zonder spaties)
| 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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | 'rListSource is column of unsorted duplicate entries which is transformed 'into a new list in either column or row starting from rListPaste range 'of sorted unique entries Dim rListSource, rListPaste, AllCells, Cell As Range Dim NoDupes As New Collection Dim i As Integer, j As Integer Dim colm As String Set rListSource = Application.InputBox _ (Prompt:="Please select the source column", Type:=8) colm = Mid(rListSource.Address, 2, 1) Set rListPaste = Application.InputBox _ (Prompt:="Please select the destination cell", Type:=8) If rListPaste Is Nothing Then iReply = MsgBox("No range nominated," _ & " terminate", vbYesNo + vbQuestion) If iReply = vbYes Then Exit Sub End If ' Define range of items, assuming first row is headertext Set AllCells = Range(colm & "2", Range(colm & "65536").End(xlUp)) ' The next statement ignores the error caused ' by attempting to add a duplicate key to the collection. ' The duplicate is not added - which is just what we want! On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) ' Note: the 2nd argument (key) for the Add method must be a string Next Cell ' Resume normal error handling On Error GoTo 0 ' Sort the collection For i = 1 To NoDupes.Count - 1 For j = i + 1 To NoDupes.Count If NoDupes  > NoDupes(j) ThenSwap1 = NoDupes Swap2 = NoDupes(j) NoDupes.Add Swap1, before:=j NoDupes.Add Swap2, before:=i NoDupes.Remove i + 1 NoDupes.Remove j + 1 End If Next j Next i 'placing unique dataset in either a column or a row starting at first cel of selected range Application.Worksheets(rListPaste.Worksheet.Name).Activate rListPaste.Activate rListPaste.Select row_or_col = MsgBox("Put unique list in column (YES) or row (NO)?", vbYesNoCancel + vbDefaultButton1) If row_or_col = vbYes Then For i = 1 To NoDupes.Count ActiveCell.Offset(i - 1, 0) = NoDupes Next i ElseIf row_or_col = vbNo Then For i = 1 To NoDupes.Count ActiveCell.Offset(0, i - 1) = NoDupes Next i ElseIf row_or_col = vbCancel Then Exit Sub End If 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
Als je alles in 1 kolom kunt krijgen(handmatig, gewoon onder elkaar knippen/plakken), kun je dit wel met een draaitabel voor elkaar krijgen.
Selecteerd die ene rij waar alle gegevens in staan(inclusief kolomnaam!).
klik op draaitabel in menu "data"
Klik voltooien
Sleep die ene kolom zowel in "rijvelden" als in "gegevensitems".
Selecteerd die ene rij waar alle gegevens in staan(inclusief kolomnaam!).
klik op draaitabel in menu "data"
Klik voltooien
Sleep die ene kolom zowel in "rijvelden" als in "gegevensitems".
Dat is voor mij voldoende. Ik ga het waarschijnlijk toch maar 1 keer toepassen en ik heb geen verstand van macro's. Bedankt voor de moeite en petje af!
Weer een vraagje...
Als ik een cel wil kantelen zeg maar 45 graden dan gaat dat BEST maar als ik een samengevoegde cel wil kantelen NIET iemand een oplossing ??
Als ik een cel wil kantelen zeg maar 45 graden dan gaat dat BEST maar als ik een samengevoegde cel wil kantelen NIET iemand een oplossing ??
Welke versie? In 2007 lukt het prima.quote:Op donderdag 5 februari 2009 14:22 schreef BuupWerk het volgende:
Weer een vraagje...
Als ik een cel wil kantelen zeg maar 45 graden dan gaat dat BEST maar als ik een samengevoegde cel wil kantelen NIET iemand een oplossing ??
Nog een poging met verticaal.zoeken() van mij
Ik kan niet onthouden hoe het nou werkt
Ik heb een paar honderd rijen met gegevens. De eerste kolom is het ID. Nu wil ik in m'n andere werkblad een cel invullen met een ID, en dat Excel de rest van de gegevens dan automatisch ophaalt.
Hoe moest dat ook al weer
Ik kan niet onthouden hoe het nou werkt
Ik heb een paar honderd rijen met gegevens. De eerste kolom is het ID. Nu wil ik in m'n andere werkblad een cel invullen met een ID, en dat Excel de rest van de gegevens dan automatisch ophaalt.
Hoe moest dat ook al weer
=VERT.ZOEKEN(A1,Sheet1!A1:B1000,2,0)
Dat is de 2e kolom ophalen. Als je de derde kolom wil ophalen moet je tot C1000 zoeken en de 2 in een 3 veranderen.
Dat is de 2e kolom ophalen. Als je de derde kolom wil ophalen moet je tot C1000 zoeken en de 2 in een 3 veranderen.
de help van excel gebruiken doet ook wonderenquote:Op donderdag 5 februari 2009 15:05 schreef DaFan het volgende:
=VERT.ZOEKEN(A1,Sheet1!A1:B1000,2,0)
Dat is de 2e kolom ophalen. Als je de derde kolom wil ophalen moet je tot C1000 zoeken en de 2 in een 3 veranderen.
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 5 februari 2009 15:08 schreef Deetch het volgende:
[..]
de help van excel gebruiken doet ook wonderen
SPOILER2Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
quote:Op donderdag 5 februari 2009 15:08 schreef Deetch het volgende:
[..]
de help van excel gebruiken doet ook wonderen
quote:
[..]
de help van excel gebruiken doet ook wonderen
Heb ik ook meestal wel genoeg aan, maar vert.zoeken lukt me nooit goed. En dan is dit veel sneller
In Excel (2007) heb ik de formule ZELFDE.DAG()
Hier kun je het aantal maanden bij de startdatum optellen.
Nu heb ik (in Word) een VB-formulier waarin zowel de begindatum als het aantal maanden wordt ingevuld.
Hoe krijg ik in (mijn bestaande) een macro dan de einddatum? Deze einddatum wordt weer in het Word-sjabloon ingevuld.
(Omdat er in Excel een functie voor is en ik aanneem dat de macro-code voor Excel en Word niet gek veel verschillen heb ik mijn vraag hier maar gepost in plaats van in het grote 'Word-vragen-topic' )
Hier kun je het aantal maanden bij de startdatum optellen.
Nu heb ik (in Word) een VB-formulier waarin zowel de begindatum als het aantal maanden wordt ingevuld.
Hoe krijg ik in (mijn bestaande) een macro dan de einddatum? Deze einddatum wordt weer in het Word-sjabloon ingevuld.
(Omdat er in Excel een functie voor is en ik aanneem dat de macro-code voor Excel en Word niet gek veel verschillen heb ik mijn vraag hier maar gepost in plaats van in het grote 'Word-vragen-topic'
)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Ik pasquote:Op maandag 9 februari 2009 12:27 schreef ManAtWork het volgende:
In Excel (2007) heb ik de formule ZELFDE.DAG()
Hier kun je het aantal maanden bij de startdatum optellen.
Nu heb ik (in Word) een VB-formulier waarin zowel de begindatum als het aantal maanden wordt ingevuld.
Hoe krijg ik in (mijn bestaande) een macro dan de einddatum? Deze einddatum wordt weer in het Word-sjabloon ingevuld.
(Omdat er in Excel een functie voor is en ik aanneem dat de macro-code voor Excel en Word niet gek veel verschillen heb ik mijn vraag hier maar gepost in plaats van in het grote 'Word-vragen-topic'
... Word is onbekend terrein voor mij
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc. 
Iemand enig idee hoe dat te verhelpen?
Iemand enig idee hoe dat te verhelpen?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Op de voorgrond zetten ofzo?quote:
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc.
Iemand enig idee hoe dat te verhelpen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Werkte het eerste wel Static? Als ik snel ff je voorbeeld namaak (1 staaf, 2 lijn op sec axis), kan ik gewoon datalabels toevoegen. Ook na opslaan, sluiten en openen staan ze er nog.
ManAtWork:
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
http://www.pcreview.co.uk/forums/thread-959269.phpquote:The EDate function is part of the Analysis Tool Pak add-in. To use it in
VBA, you need to first load the "Analysis Tool Pak - VBA" add-in in Excel.
Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item. Once you do this, you can access the
function directly. E.g.,
Dim Res
Res = edate(Now, 3)
Debug.Print Res
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
quote:Op maandag 9 februari 2009 12:49 schreef DaFan het volgende:
Weet je het Engelse equivalent van deze functie, ik kan hem niet vinden? Dan kan ik er wel wat mee.
quote:You can use the EDATE function to determine a date a number of months in the past or future. This function is part of the Analysis ToolPak. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Je was dus even iets sneller. En Fok! had het te druk om mijn post te plaatsen.quote:Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]
http://www.pcreview.co.uk/forums/thread-959269.php
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Ik ga eens puzzelen. Alvast mijn dank.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Weet iemand al wat? Ik kom er echt niet uit :xquote:Op vrijdag 30 januari 2009 15:53 schreef Jaheur het volgende:
Ik heb dan een hele lastige:
Ik heb een range van A1 tot G10 (voorbeeld) in de kolommen kunnen X voorkomen, maar sommige cellen zijn leeg, maar soms kunnen er dubbelen X-en voorkomen. Hoe kan ik dit vereenvoudigen dus bijvoorbeeld
A1:A10 is gelijk aan D1:D10 dus de hele kolom van D mag verwijderd worden, maar deze vergelijking is wel random want A kan net zo goed B zijn. De vergelijking moet wel over de hele kolom gaan.
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
Het werkte allemaal prima, totdat ik een nieuew range data toevoegde. De vorige labels staan er allemaal behalve de nieuwe (heb er twee toegevoegd).
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Uhm als bijvoorbeeld bij A1:A10 hetzelfde voorkomt als bij G1:G10 dan mag de gehele kolom G weg. Deze vergelijking en deleten moet doorgaan totdat er een lege kolom verschijnt.quote:Op maandag 9 februari 2009 14:39 schreef DaFan het volgende:
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
Dus in een kolom is A gelijk aan D en E en C gelijk aan G dan moet D, E en G verwijderd worden.
Een kolom verwijderen lukt me nog wel, maar de vergelijking maken is lastig.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | LastColumn = Range("IV1").End(xlToLeft).Column LastRow = Range("A65536").End(xlUp).Row j = 1 For i = 1 To LastColumn For k = i + 1 To LastColumn If Cells(j, i).Value = Cells(j, k).Value Then For j = 1 To LastRow If j = LastRow Then Sheets("Sheet1").Columns(k).EntireColumn.Delete End If Next j End If Next k Next i End Sub |
Deze werkt ook voor grotere ranges (zeg A1:Z1000), enige 2 problemen zijn:
a) Er wordt vanuit gegaan dat Kolom A is gevuld in A1 én in de laatste cel van de kolom.
b) Er wordt vanuit gegaan dat Kolom Z (in de grote range) gevuld is in Z1.
Dit kan ik aanpassen door:
a) De range vast te maken (dus altijd A1:G10)
b) De gebruiker te vragen om input te geven aan het begin wat de laatste kolom en de laatste rij is.
Dit werkt dus wel voor een macro in Excel. Helaas krijg ik het in Word niet voor elkaar.quote:Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]
http://www.pcreview.co.uk/forums/thread-959269.php
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Bovenstaande krijg ik niet gedaan in VBA van Word.quote:Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item.
(Lijkt me logisch daar .xls Excel betreft,...)
Op de Knowledge Base van MS zie ik dat edate ook alleen betrekking heeft op Excel.
Iemand een alternatief?
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
Denk dat ik het daar inderdaad in moet gaan zoeken. Alleen zal ik ook te maken krijgen met jaren.quote:Op maandag 9 februari 2009 18:15 schreef DaFan het volgende:
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
Morgen google maar weer opstarten.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
Als ik dan met een macroknop de volgende code uitvoer
krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"
wat doe ik fout?
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
| 1 2 3 4 5 6 7 8 9 10 | Elist(0) = "nooit" Elist(1) = "zelden" Elist(2) = "soms" Elist(3) = "vaak" Me.lstE.List = Elist end sub |
Als ik dan met een macroknop de volgende code uitvoer
| 1 2 | frmE.show |
krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"
wat doe ik fout?
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
moet het niet dit zijn:quote:Op dinsdag 10 februari 2009 13:32 schreef Deetch het volgende:
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
[ code verwijderd ]
Als ik dan met een macroknop de volgende code uitvoer
[ code verwijderd ]
krijg ik de foutmelding
"Runtime error 9", subscript out of range
wat doe ik fout?
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Dim LegeCellen as Integer LegeCellen = 0 For each c in Range("A1:A10") If c.Value = "" Then LegeCellen = LegeCellen + 1 End If Next MsgBox LegeCellen End Sub |
inderdaadquote:Op dinsdag 10 februari 2009 13:35 schreef Metal_Jag het volgende:
[..]
moet het niet dit zijn:
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
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
Ja zoiets doe ik ook, maar ik dacht misschien kan het handiger. Thanx.quote:Op dinsdag 10 februari 2009 13:35 schreef DaFan het volgende:
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:
[ code verwijderd ]
Nu nog een 2e vraag:
Ik heb 140 (!) knopjes die allemaal hetzelfde moeten doen, behalve dat er gegevens in de buurt van hun eigen positie geplaatst moet worden. Nu heb ik dit:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Set positie = Range("E2") UserForm1.Show End Sub Private Sub CommandButton2_Click() Set positie = Range("E3") UserForm1.Show End Sub Private Sub CommandButton3_Click() Set positie = Range("E4") UserForm1.Show End Sub ENZ ENZ ENZ x 140 |
Kan dit niet handiger? Want nu moet ik 140x deze procedure kopieren en op één plekje wijzigen...
[ Bericht 2% gewijzigd door Metal_Jag op 10-02-2009 15:14:39 ]
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Ik heb wel dit gevonden:quote:Op dinsdag 10 februari 2009 15:24 schreef DaFan het volgende:
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Object.Top en Object.Left
geeft de positie van het object. Maar dan kom ik er nog niet uit. Eerst moet je nog weten welk object de opdracht geeft en vervolgens de positie linken aan een cel...
En tout cas. Ik heb 140x een procedure gemaakt met hulp van de "vervangen" optie.
Als je nog suggesties hebt, dan wil ik het nog wel weten voor een volgende keer.
