abonnement Unibet Coolblue Bitvavo
pi_83840788
Hallo,

Kan iemand mij helpen met een werkrooster maken in Excel.

Zoals jullie op de bijgevogde afbeeldingen kunnen zien heb ik het eerste blad gebruikt voor alle personeelsleden. Daarachter heb ik de dagen van de week gezet met een voorwaardelijke opmaak, zoadat ik in mijn eerste schem meteen (dmv kleuren) een overzich heb van de gehele week.

N = Niet beschikbaar (rood)
D = Dagdienst (Groen)
A = Avonddienst (Blauw)

Dit werkt....

Nu wil ik dat er automatisch een koppeling komt met tabblad 2, wanneer ik achter iemand zijn naam de D(dagdienst) of de A(avonddienst) zet, wil ik dat zijn gegevens, naam, leeftijd en telnr (B, C en D) naar het tweede tabblad wordt gekopieerd en ik op dat tablad dan automatisch het dagrooster te zien krijg, de mensen van de dagdienst in et bovenste tabel, en de mensen van de avonddienst in de onderste.

Hoe gaat me dit lukken?

Alvast super bedankt!
  vrijdag 9 juli 2010 @ 10:59:00 #102
249182 Holy_Goat
mhèèhèhè
pi_83841007
gast, haal die plaatjes eens door een resizer, PLUS maak dan de hele blokken zwart ipv nog af en toe leesbaar met spikkels
  vrijdag 9 juli 2010 @ 11:12:15 #103
62215 qu63
..de tijd drinkt..
pi_83841735
quote:
Op vrijdag 9 juli 2010 10:54 schreef IvovandenAkker het volgende:
Nu wil ik dat er automatisch een koppeling komt met tabblad 2, wanneer ik achter iemand zijn naam de D(dagdienst) of de A(avonddienst) zet, wil ik dat zijn gegevens, naam, leeftijd en telnr (B, C en D) naar het tweede tabblad wordt gekopieerd en ik op dat tablad dan automatisch het dagrooster te zien krijg, de mensen van de dagdienst in et bovenste tabel, en de mensen van de avonddienst in de onderste.

Hoe gaat me dit lukken?

Alvast super bedankt!
Wat heb je zelf al geprobeerd?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 9 juli 2010 @ 11:19:39 #104
249182 Holy_Goat
mhèèhèhè
pi_83842161
quote:
Op vrijdag 9 juli 2010 11:12 schreef qu63 het volgende:

[..]

Wat heb je zelf al geprobeerd?
dat ook.
pi_83842387
quote:
Op vrijdag 9 juli 2010 11:12 schreef qu63 het volgende:

[..]

Wat heb je zelf al geprobeerd?
Nou ik heb er gistyer de gehele ochtend mee bezig geweest of verschillende formules uit te proberen, maar ik heb niet veel kennis van excel duskom er niet uit.
  vrijdag 9 juli 2010 @ 11:29:55 #106
62215 qu63
..de tijd drinkt..
pi_83842717
quote:
Op vrijdag 9 juli 2010 11:23 schreef IvovandenAkker het volgende:

[..]

Nou ik heb er gistyer de gehele ochtend mee bezig geweest of verschillende formules uit te proberen,
Welke formules heb je geprobeerd?
quote:
maar ik heb niet veel kennis van excel duskom er niet uit.
Das makkelijk gezegd.. Kennis is ook aan te leren he, dan kom je er wel zelf uit Ons vragen is wel de makkelijkste oplossing natuurlijk
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83843135
Dat is ook precies de reden... Waarom zou ik blijven prutsen als jullie het veel sneller en veel beter kunnen dan ikzelf.

de formules die ik heb getest zijn transponeren en isverwijzing.... verder komt er weinig in de buurt volgens mij
  vrijdag 9 juli 2010 @ 11:54:58 #108
249182 Holy_Goat
mhèèhèhè
pi_83844215
quote:
Op vrijdag 9 juli 2010 11:37 schreef IvovandenAkker het volgende:
Dat is ook precies de reden... Waarom zou ik blijven prutsen als jullie het veel sneller en veel beter kunnen dan ikzelf.
omdat als je zo redeneert ik er ook geld voor kan gaan vragen
Tis een vraagbaak, geen solution on demand
  vrijdag 9 juli 2010 @ 11:56:11 #109
249182 Holy_Goat
mhèèhèhè
pi_83844292
waarom hou je het niet gewoon op sheet 1 allemaal met een kekke autofilter eigenlijk?
  vrijdag 9 juli 2010 @ 12:10:36 #110
62215 qu63
..de tijd drinkt..
pi_83844952
quote:
Op vrijdag 9 juli 2010 11:37 schreef IvovandenAkker het volgende:
Dat is ook precies de reden... Waarom zou ik blijven prutsen als jullie het veel sneller en veel beter kunnen dan ikzelf.

de formules die ik heb getest zijn transponeren en isverwijzing.... verder komt er weinig in de buurt volgens mij
quote:
Op vrijdag 9 juli 2010 11:54 schreef Holy_Goat het volgende:

[..]

omdat als je zo redeneert ik er ook geld voor kan gaan vragen
Tis een vraagbaak, geen solution on demand
En aangezien al je topics hier op fok vragen zijn geweest die ook via google opgelost hadden kunnen worden ga ik mijn tijd hier niet in steken
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83845399
Wat zijn jullie lekker streng
pi_83848033
quote:
Op vrijdag 9 juli 2010 12:22 schreef DaFan het volgende:
Wat zijn jullie lekker streng
Lol, Ivo moet eerst maar eens de help van excel doorlezen. Zoek dan op auto filter of data sorteren oid. Beetje zelf nadenken kan geen kwaad.
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_83852751
Ach... Ik dacht dat dit topc was om vragen te stellen...

Dat heb ik gedaan, als julie niet willen helpen is dat prima, ik dacht alleen dat vragen vrij stond.

Maar zomaar iets voor een ander doen is natuurlijk heel ouderwets... ik las al weer dat er geld werd gevraagd...

Ik vind wel een andere weg.

Toch bedankt Ieder die kosteloos een reactie wilde geven!
  vrijdag 9 juli 2010 @ 15:33:23 #114
15967 Frollo
You know I am a righteous man
pi_83852833
Ik snap het ook niet helemaal, zo absurd is het toch niet wat Ivo vraagt? Normaal is de sfeer toch wel beter hier.
pi_83853062
Mja het is wel echt veel werk...
pi_83854279
en het is ook veel te warm en de vraagstelling was ook niet echt duidelijk. En verder heeft holygoat het antwoord al gegeven, nl. dat wat IvovandenAkker wil prima kan met een autofilter functie.
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 9 juli 2010 @ 18:17:02 #117
62215 qu63
..de tijd drinkt..
pi_83858832
quote:
Op vrijdag 9 juli 2010 15:33 schreef Frollo het volgende:
Ik snap het ook niet helemaal, zo absurd is het toch niet wat Ivo vraagt? Normaal is de sfeer toch wel beter hier.
We de manier waarop het gevraagd wordt.. Gewoon roepen dat je iets niet lukt is wel erg simpel..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 9 juli 2010 @ 18:23:18 #118
62215 qu63
..de tijd drinkt..
pi_83858978
quote:
Op vrijdag 9 juli 2010 15:30 schreef IvovandenAkker het volgende:
Ach... Ik dacht dat dit topc was om vragen te stellen...

Dat heb ik gedaan, als julie niet willen helpen is dat prima, ik dacht alleen dat vragen vrij stond.

Maar zomaar iets voor een ander doen is natuurlijk heel ouderwets... ik las al weer dat er geld werd gevraagd...

Ik vind wel een andere weg.

Toch bedankt Ieder die kosteloos een reactie wilde geven!
Oh, en vragen is inderdaad niet erg, maar geven ook niet. Ik blijf terugkomen naar deze reeks omdat ik zelf nog niet alles weet én ik anderen kan helpen met dingen die ik wél weet.

Gezien jouw posthistorie:
1
2
3
4
5
6
DIG       Rooster in Excel, wie kan mij helpen?    IvovandenAkker    4    116    09/07 13:56 - WyriHaximus
DIG       Welke digitale tv-aanbieder kiezen?    IvovandenAkker    20    731    11/09 13:00 - funrider
DIG       excel als webpagina    IvovandenAkker    16    521    10/09 13:03 - H-blast
UVT       Ontvangst op schiphol    IvovandenAkker    14    531    02/03 11:50 - fathank
DIG       laptop ablu ray speler/ hoe speel ik hd af??    IvovandenAkker    6    553    17/01 17:01 - dennisreijbroek
DIG       swf rippen    IvovandenAkker    5    231    11/09 10:18 - IvovandenAkker

ben jij vooral van de vragende kant en daar wil ik mijn tijd niet in steken :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 10 juli 2010 @ 08:35:13 #119
249182 Holy_Goat
mhèèhèhè
pi_83875202
ik heb nergens gezegd dat ik geld wil hoor om te helpen met problemen. Immers word ik geregeld ook zelf nog geholpen, ook gratis. Het zou anders zijn als ik zou vragen aan qu63 of ie even voor morgen liefst een leuke tool wil klussen voor dit en dat want ik weet niet hoe dat moet. daarbij zou Deetch me dan uitlachen.

overigens, complete solutions worden ook dikwijls ( gratis ) zomaar gemaakt voor mensen. maar dan moet er op de eerste plaats genoeg tijd vrij zijn, tweede plaats moet het een interessante vraagstelling zijn, zodat je er zelf ook nog wat van leert bij het maken (vind ik belangrijk) en derde plaats of t gevoel dat je bij een post hebt een beetje goed is. het is namelijk wel leuk als iemand er dan oprecht blij mee is, bedankt, en niet dat je er dan niets meer van hoort.

heb ik het een beetje goed gezegd?

------
Nog even terug ontopic, probeer echt de autofilter. desnoods met 2 extra kolommen om stAtus van voorkomen dag of avond dienst in die week.(ja/nee)
pi_83891266
Ik heb de volgende formule functie in Excel 2007 NL



Hiermee wordt de positie weergegeven van:
[karakter][karakter][.][karakter][karakter]

Nu wil ik deze vind.spec() functie in VBA hebben. Dit zou de functie InStr() zijn.
http://www.techonthenet.com/excel/formulas/instr.php
Ik krijg dit niet werkend. Mijn wildcard (?) werkt niet. Zonder wildcard werkt et wel.
Het volgende heb ik onder andere al geprobeerd.

1
2
3
4
5
6
Dim Searchin As String
Searchin = ActiveCell.Value
Dim Searchfor As String
Searchfor = "??.??"

MsgBox InStr(1, Searchin, "??.??")


en
1
2
3
4
5
6
Dim Searchin As String
Searchin = ActiveCell.Value
Dim Searchfor As String
Searchfor = "??.??"

MsgBox InStr(1, Searchin, Searchfor)
Iemand de oplossing hiervoor?

Bedankt.
pi_83892380
Ik snap niet precies wat je wilt, want eigenlijk wil je als return 3 hebben toch, niet 1?
pi_83893739
quote:
Op zaterdag 10 juli 2010 20:22 schreef DaFan het volgende:
Ik snap niet precies wat je wilt, want eigenlijk wil je als return 3 hebben toch, niet 1?
Als return wel 1. Het is een code die in een hele reeks tekst moet worden gevonden en het format heeft van 2 cijfers, een punt en twee cijfers.

De formule doet dus wat ik wil, alleen de VBA variant krijg ik niet werkend helaas.

Ik hoop dat het hiermee wat duidelijk wordt.
  zaterdag 10 juli 2010 @ 21:21:08 #123
62215 qu63
..de tijd drinkt..
pi_83894558
quote:
Op zaterdag 10 juli 2010 21:00 schreef hendrik2009 het volgende:

[..]

Als return wel 1. Het is een code die in een hele reeks tekst moet worden gevonden en het format heeft van 2 cijfers, een punt en twee cijfers.

De formule doet dus wat ik wil, alleen de VBA variant krijg ik niet werkend helaas.
[ afbeelding ]
Ik hoop dat het hiermee wat duidelijk wordt.
En dat je daarna met Links() 12.34 er uit kunt filteren neem ik aan?
Weet niks van VBA, maar dacht even hard op
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83894660
Achso duidelijk!
InStr kent geen wildcard charactars. Als je "??.??" invult, gaat hij zoeken "??.??". Niet Wild-wild-punt-wild-wild.

Ik heb deze UDF gevonden en aangepast naar jouw vraag:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function InStrWild(Source As String, FindMe As String, _
                   Optional StartAt As Long = 1) As Long
  Dim X As Long
  Dim SearchMe As String
  SearchMe = Mid$(Source, StartAt)
  If Source Like "**" & FindMe & "**" Then
    For X = 1 To Len(SearchMe)
      If Mid$(SearchMe, X) Like FindMe & "**" Then
        InStrWild = X
        Exit For
      End If
    Next
  End If
End Function

Hier geeft
1=InStrWild(A1,".")-2

Hetzelfde resultaat als VIND.SPEC.

Wellicht heb je daar wat aan.
pi_83894822
Of
1
2
3
4
5
6
7
8
9
Function InStrWild2(str1 As String, str2 As String) As Long

If str1 Like "*" & str2 & "*" Then
    InStrWild2 = InStr(1, str1, Split(str2, "*")(0))
Else
    InStrWild2 = -1
End If

End Function

=InStrWild2(A1,".")-2
pi_83896398
quote:
Op zaterdag 10 juli 2010 21:21 schreef qu63 het volgende:

[..]

En dat je daarna met Links() 12.34 er uit kunt filteren neem ik aan?
Weet niks van VBA, maar dacht even hard op
Met een deel (EN: MID) functie alleen de code weergeven, door vanaf de gevonden positie 5 karakters weer te geven.
  zaterdag 10 juli 2010 @ 22:16:00 #127
62215 qu63
..de tijd drinkt..
pi_83896847
quote:
Op zaterdag 10 juli 2010 22:06 schreef hendrik2009 het volgende:

[..]

Met een deel (EN: MID) functie alleen de code weergeven, door vanaf de gevonden positie 5 karakters weer te geven.
Mja, dat bedoelde ik ook ja
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83900159
quote:
Op zaterdag 10 juli 2010 21:28 schreef DaFan het volgende:
Of
[ code verwijderd ]

=InStrWild2(A1,".")-2
Thanks! Ik heb deze tweede functie gebruikt.
De -2 in de functie gezet en de Else er uit gehaald, zodat je de volgende functie krijgt.

1
2
3
4
5
6
7
Function InstrWild(str1 As String, str2 As String) As Long

If str1 Like "*" & str2 & "*" Then
    InstrWild = InStr(10, str1, Split(str2, "*")(0)) - 2
End If

End Function


Omdat mijn doel is: een code (dossiernummer) weergeven vanaf de gevonden positie, heb ik de InstrWild samen met een MID in een nieuwe functie gezet en nu krijg ik een keer wat ik wil.

Zie hier
1
2
3
4
5
6
7
8
9
10
Function dn(str1 As String, str2 As String) As String
Dim InstrWild As Long

If str1 Like "*" & str2 & "*" Then
    InstrWild = InStr(10, str1, Split(str2, "*")(0)) - 2
End If

dn = Mid(str1, InstrWild, 10)

End Function


Yes, mijn eerste functie! _O_
pi_83900857
De functie dient toch nog wat aangepast te worden. Nu wordt namelijk soms tekst weergegeven, als dat het eerste is waar de punt in voorkomt. Ik wil dus nog toevoegen dat het wel aan het volgende format moet voldoen:

##.##

Maar hoe doe ik dit?

Regular Expressions: http://msdn.microsoft.com/en-us/library/ms974570
Dat heb ik nodig. Nu nog toepassen.

[ Bericht 27% gewijzigd door hendrik2009 op 11-07-2010 09:45:11 ]
  zondag 11 juli 2010 @ 10:38:39 #130
8760 Beavis
Proud to be South African!
pi_83908642
Soms pruts ik ook wat met macro's en ik zou kijken of je dat kan afvangen met een IsNumeric controle:
1
2
3
4
5
If IsNumeric(xxxx) = True Then
    ....
Else
    ....
End If


Of ben ik nou niet slim bezig?
pi_83908792
quote:
Op zondag 11 juli 2010 10:38 schreef Beavis het volgende:
Soms pruts ik ook wat met macro's en ik zou kijken of je dat kan afvangen met een IsNumeric controle:
[ code verwijderd ]

Of ben ik nou niet slim bezig?
De split functie moet herkennen dat er voor de . een getal staat ipv letters, maar hoe?

Dit is mijn functiecode nu:
1
2
3
4
5
6
7
8
9
10
Function dn(str1 As String) As String
Dim InstrWild As Long

If str1 Like "*" & "." & "*" Then
    InstrWild = InStr(10, str1, Split(".", "*")(0))
End If

dn = Mid(str1, InstrWild - 2, 10)

End Function


En dit het resultaat, waarbij B3 niet het gewenste resultaat geeft.

pi_83908942
quote:
Op zaterdag 10 juli 2010 23:38 schreef hendrik2009 het volgende:
De functie dient toch nog wat aangepast te worden. Nu wordt namelijk soms tekst weergegeven, als dat het eerste is waar de punt in voorkomt. Ik wil dus nog toevoegen dat het wel aan het volgende format moet voldoen:

##.##

Maar hoe doe ik dit?

Regular Expressions: http://msdn.microsoft.com/en-us/library/ms974570
Dat heb ik nodig. Nu nog toepassen.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function InStrWild(Source As String, FindMe As String, Optional StartAt As Long = 1) As Long
  
  Dim X As Long
  Dim SearchMe As String
  SearchMe = Mid$(Source, StartAt)
  
    For X = 1 To Len(SearchMe)
      If Mid$(SearchMe, X) Like "##" & FindMe & "##" Then
        InStrWild = X
        Exit For
      End If
    Next

End Function

Met een UDF dus

Bij deze string:
quote:
ba. 14.5 dfsdf 14.56
is het resultaat 16.

Alt-F11 in Excel - Insert - Module.
Plak hier de code.

Nu kan je dus dmv
1=InStrWild(A1,".")

je positie vinden.
pi_83916297
quote:
Op zondag 11 juli 2010 10:49 schreef DaFan het volgende:

[..]
[ code verwijderd ]

Met een UDF dus :P

Bij deze string:
[..]

is het resultaat 16.

Alt-F11 in Excel - Insert - Module.
Plak hier de code.

Nu kan je dus dmv
[ code verwijderd ]

je positie vinden.
Ik had eerst jouw tweede UDF gebruikt, omdat ik bij de eerste het gewenste resultaat niet kreeg. Je laatste code werkte in mijn voorbeeld, maar toen ik het op de werkelijke situatie toepaste, werd het format schijnbaar niet herkend. Na nog verder zoeken, heb ik onderstaande code werkend. Bedankt voor je hulp.
1
2
3
4
5
6
7
8
Function DN(ByVal str1 As String) As String
    Dim x, i As Long
    Const Patrn As String = "##.##.####"
    x = Split(str1, " ")
    For i = 0 To UBound(x)
        If xi Like Patrn Then DN = xi: Exit Function
    Next
End Function
  dinsdag 13 juli 2010 @ 08:48:35 #134
249182 Holy_Goat
mhèèhèhè
pi_83987612
even tussen haakjes, UDF? wasda?
pi_83988440
quote:
Op dinsdag 13 juli 2010 08:48 schreef Holy_Goat het volgende:
even tussen haakjes, UDF? wasda?
User Defined Function.
Daarmee kan je zelf functies maken die je in je worksheet kan gebruiken.

Dus =Holy_goat(A1) bv

Je geeft in de UDF de naam van de UDF een waarde mee, dat is je output. Best handig maar ik maak niet zulke grote sheets dat het nodig is.
  dinsdag 13 juli 2010 @ 13:42:28 #136
158136 Joooo-pi
Do you want a balloon...
pi_83996470
Ik probeer nog steeds in Excel 2007 een optie te vinden die ik altijd in 2003 gebruikte, namelijk het aanwijzertje om meerdere objecten (bijv. plaatjes en lijntjes) te selecteren.

Weet iemand waar die zit?
(in 2003 zat die in de werkbalk "tekenen" helemaal links.)
heitieh
  dinsdag 13 juli 2010 @ 13:47:19 #137
62215 qu63
..de tijd drinkt..
pi_83996653
quote:
Op dinsdag 13 juli 2010 13:42 schreef Joooo-pi het volgende:
Ik probeer nog steeds in Excel 2007 een optie te vinden die ik altijd in 2003 gebruikte, namelijk het aanwijzertje om meerdere objecten (bijv. plaatjes en lijntjes) te selecteren.

Weet iemand waar die zit?
(in 2003 zat die in de werkbalk "tekenen" helemaal links.)
Invoegen -> vormen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 14:00:46 #138
158136 Joooo-pi
Do you want a balloon...
pi_83997263
quote:
Op dinsdag 13 juli 2010 13:47 schreef qu63 het volgende:

[..]

Invoegen -> vormen?
Volgens mij niet, of ik zie 'm over het hoofd
heitieh
  dinsdag 13 juli 2010 @ 14:03:07 #139
62215 qu63
..de tijd drinkt..
pi_83997364
quote:
Op dinsdag 13 juli 2010 14:00 schreef Joooo-pi het volgende:

[..]

Volgens mij niet, of ik zie 'm over het hoofd
Oh wacht, je wil ze niet tekenen, maar aanklikken om iets mee te kunnen doen

CTRL+klik?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 14:17:04 #140
249182 Holy_Goat
mhèèhèhè
pi_83997940
1=Holy_goat(A1) 


geeft bij mij standaard als uitkomst : "kneus"
  dinsdag 13 juli 2010 @ 14:20:18 #141
62215 qu63
..de tijd drinkt..
pi_83998081
Is het ook mogelijk om in Excel te achterhalen wie er als auteur ingesteld is?

In Word heb je zogenaamde 'bouwstenen' die je in je document in kan voegen, heeft Excel dat ook?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 14:28:33 #142
158136 Joooo-pi
Do you want a balloon...
pi_83998426
quote:
Op dinsdag 13 juli 2010 14:03 schreef qu63 het volgende:

[..]

Oh wacht, je wil ze niet tekenen, maar aanklikken om iets mee te kunnen doen

CTRL+klik?
Nee.

Maar nu heb ik em toch gevonden

Start --> "zoeken en selecteren" --> "Objecten selecteren"

Dat scheelt weer een hoop werk in de toekomst!

Toch bedankt voor het meedenken!
heitieh
  dinsdag 13 juli 2010 @ 14:31:49 #143
158136 Joooo-pi
Do you want a balloon...
pi_83998575
quote:
Op dinsdag 13 juli 2010 14:20 schreef qu63 het volgende:
Is het ook mogelijk om in Excel te achterhalen wie er als auteur ingesteld is?

In Word heb je zogenaamde 'bouwstenen' die je in je document in kan voegen, heeft Excel dat ook?
Onder de knop (waar je opslaan e.d. vindt) zit ook de optie "Voorbereiden"

Selecteer dan "Eigenschappen"

heitieh
  dinsdag 13 juli 2010 @ 14:42:23 #144
62215 qu63
..de tijd drinkt..
pi_83999054
quote:
Op dinsdag 13 juli 2010 14:31 schreef Joooo-pi het volgende:

[..]

Onder de knop (waar je opslaan e.d. vindt) zit ook de optie "Voorbereiden"

Selecteer dan "Eigenschappen"

Ik wil het dus in mn sheet te zien krijgen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 14:43:53 #145
158136 Joooo-pi
Do you want a balloon...
pi_83999118
quote:
Op dinsdag 13 juli 2010 14:42 schreef qu63 het volgende:

[..]

Ik wil het dus in mn sheet te zien krijgen
Ah, oké. Is misschien ook wel mogelijk, maar weet ik zo niet...
heitieh
  dinsdag 13 juli 2010 @ 14:47:32 #146
62215 qu63
..de tijd drinkt..
pi_83999267
quote:
Op dinsdag 13 juli 2010 14:43 schreef Joooo-pi het volgende:

[..]

Ah, oké. Is misschien ook wel mogelijk, maar weet ik zo niet...
Iig niet via INFO()
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 14:54:52 #147
158136 Joooo-pi
Do you want a balloon...
pi_83999569
quote:
Op dinsdag 13 juli 2010 14:47 schreef qu63 het volgende:

[..]

Iig niet via INFO()
in VBA kun je dit gebruiken:
ThisWorkbook.BuiltinDocumentProperties("Author")

Maak er zelf een functie van en hoppa!
heitieh
  dinsdag 13 juli 2010 @ 14:57:58 #148
62215 qu63
..de tijd drinkt..
pi_83999707
quote:
Op dinsdag 13 juli 2010 14:54 schreef Joooo-pi het volgende:

[..]

in VBA kun je dit gebruiken:
ThisWorkbook.BuiltinDocumentProperties("Author")

Maak er zelf een functie van en hoppa!
Ik hou niet zo van VBA
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 13 juli 2010 @ 15:05:55 #149
158136 Joooo-pi
Do you want a balloon...
pi_84000175
quote:
Op dinsdag 13 juli 2010 14:57 schreef qu63 het volgende:

[..]

Ik hou niet zo van VBA
Maar dit is heel eenvoudig. Insert Module in de visualbasic editor (ALT+F11)

vul dit in:
1
2
3
Function auteur() As String
   auteur = ThisWorkbook.BuiltinDocumentProperties("Author")
End Function


Ga terug naar je excelsheet en in de cell waar je de auteur wil hebben zet je:
=auteur()

heitieh
  dinsdag 13 juli 2010 @ 15:10:41 #150
62215 qu63
..de tijd drinkt..
pi_84000392
quote:
Op dinsdag 13 juli 2010 15:05 schreef Joooo-pi het volgende:

[..]

Maar dit is heel eenvoudig. Insert Module in de visualbasic editor (ALT+F11)

vul dit in:
[ code verwijderd ]

Ga terug naar je excelsheet en in de cell waar je de auteur wil hebben zet je:
=auteur()

Ah, ik was al aan het klooien en kwam er niet uit

Thanks!

Nu nog een leuk script schrijven voor als iemand mn hele sheet kopieerd

Zou het ook kunnen werken met de naam van de PC waar je op werkt?

-edit-
Hmz, korte workaround gemaakt: =ALS(Auteur()=Saved();"";"MAAK EENS ZELF WAT!")

[ Bericht 9% gewijzigd door qu63 op 13-07-2010 15:21:03 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')