[Excel] Het grote Excel vragen topic #18

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
pi_77088256
quote:
Op donderdag 21 januari 2010 08:19 schreef Joooo-pi het volgende:

[..]

autofilter:

Data --> filter --> autofilter
Ja die had ik gevonden (zie edit ) Maar ik krijg dit autofilter alleen bij 1 kolom en niet bij meerdere...
Ik keek naar jou, jij naar je brommertje; ik houd van jou, jij van je brommertje; jij brak mijn hart, ik jouw brommertje...
pi_77090008
quote:
Op donderdag 21 januari 2010 10:46 schreef Bartjebart het volgende:

[..]

Ja die had ik gevonden (zie edit ) Maar ik krijg dit autofilter alleen bij 1 kolom en niet bij meerdere...
de hele bovenste rij selecteren (waar de kopteksten staan) en dan autofilter aan zetten.
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_77090298
Ik vind die autofilter uit 2007 sowieso maar irritant. Bij de oude kon je gewoon klikken op een optie en dan filterde hij. Nu zit je met die klote checkboxes.
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
  donderdag 21 januari 2010 @ 11:59:46 #84
62215 qu63
..de tijd drinkt..
pi_77091037
16 months worth of drawing exercises in Microsoft Excel
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_77101990
quote:
Op donderdag 21 januari 2010 11:59 schreef qu63 het volgende:
16 months worth of drawing exercises in Microsoft Excel
proest, waarom zou je dat in godsnaam doen?
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 21 januari 2010 @ 17:05:47 #86
62215 qu63
..de tijd drinkt..
pi_77104035
quote:
Op donderdag 21 januari 2010 16:18 schreef Deetch het volgende:

[..]

proest, waarom zou je dat in godsnaam doen?
Kunst?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_77112670
quote:
Op donderdag 21 januari 2010 11:40 schreef znarch het volgende:
Ik vind die autofilter uit 2007 sowieso maar irritant. Bij de oude kon je gewoon klikken op een optie en dan filterde hij. Nu zit je met die klote checkboxes.
Hoeft niet hoor. Je hebt nog steeds de aangepaste filter.

Zie hier

http://www.excel-2007.nl/images/image263.jpg
pi_77120788
quote:
Op donderdag 21 januari 2010 17:05 schreef qu63 het volgende:

[..]

Kunst?
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_77138857
quote:
Op donderdag 21 januari 2010 20:31 schreef hendrik2009 het volgende:

[..]

Hoeft niet hoor. Je hebt nog steeds de aangepaste filter.

Zie hier

http://www.excel-2007.nl/images/image263.jpg
Klopt maar ik zou het zoals dit willen:

Zonder checkboxes, kan dat ook dan ?
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
pi_77139287
nee, dat is de gekozen manier om autofilter weer te geven in office 2007.
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_77215480
Als ik ff tussendoor mag komen met een n00b vraag.. zou iemand mij dan ff kunnen helpen?

Wat ik wil:
- een variabele in een formule zetten
- een vergelijking maken

wat ik geprobeerd heb:
B3 'een in te vullen waarde'
B4 X-B3-(x-(x/1.25))
B5 B4/25=2

Ik wil dus weten bij bij welke variabele het antwoord 2 is.
pi_77215946
Dat kan niet zomaar, heb je de Oplosser voor nodig.
pi_77216117
Weet je dan ook toevallig hoe ik daar aan kom? en werkt dat moeilijk?

mijn dank is groot!
- edit: algevonden, dank is nog steeds groot

[ Bericht 41% gewijzigd door Yho op 24-01-2010 19:12:45 ]
pi_77242707
Mooi een Excell topic op Fok

Momenteel ben ik een beetje aan het knutselen aan een werkblad waar mijn werknemer het aantal uren dat wij besteden per project kan bijhouden. Aangezien ik helemaal nieuw ben in de wereld van Excell, heb ik als basis een bettingsheet gebruikt om deze vervolgens met de daar al ingebouwde formules om te bouwen tot het werkblad naar mijn keuze. Nu ben ik een heel eind gekomen, maar loop ik in het zich van de haven toch vast.

De sheet: http://www.megaupload.com/?d=1EEX3H20

Mijn vraag: op het 5de tabblad van de sheet is de bedoeling dat er een overzicht komt van het aantal gewerkte uren per weeknummer per project. Zou iemand mij kunnen helpen met de juiste formules zodat de onder tabblad 3 ingevoerde gegevens doorberekend worden in dit 5de tabblad?

Mijn dank is groot, PM eventueel als je nog meer vragen hebt.
Op woensdag 8 september 2010 13.23 schreef Houniet het volgende: Guus is de beste hier
Op donderdag 5 augustus 2010 01:45 schreef Fenomeno het volgende:
als ik later groot ben wil ik net zo worden als guus
pi_77242786
quote:
Op zondag 24 januari 2010 17:41 schreef Yho het volgende:
Weet je dan ook toevallig hoe ik daar aan kom? en werkt dat moeilijk?

mijn dank is groot!
- edit: algevonden, dank is nog steeds groot
He,
Mooi dat je het zelf gevonden hebt. Het is wel een praktische tool, maar erg lastig om uit te leggen aan iemand die het nog nooit gebruikt heeft
Daarom stelde ik het al uit tot nu
pi_77243722
Stel tab3:
C5 = Nieuwe binnenweg
D5 = 1
L5 = 0,45

Stel tab5
I6 = "Nieuwe binnenweg" (LET OP je hebt een spelfout!)
H7= 1

Dan is I8:
=ALS($H7<>"";SOMPRODUCT(($H7=Werkgeschiedenis!$D$5:$D$9)*('Analyse 2'!I$6=Werkgeschiedenis!$C$5:$C$9)*(Werkgeschiedenis!$L$5:$L$9)))

En doortrekken naar rechts en beneden. Resultaat is 0,45

Je moet wel oppassen, want met SOMPRODUCT kan je niét met Named ranges werken die over de hele kolom gaan. Je mág dus geen D:D gebruiken in SOMPRODUCT in oudere versies dan 2007.

In 2007 mag het dus wel!

Ziet er netjes uit trouwens, met Named Ranges werken is wel pro in zo'n sheet. Maar gaat dus met deze formule problemen opleveren in oudere versies dan 2007.


Hoop dat het zo duidelijk genoeg is.
pi_77243921
YESSS SUMPRODUCT fapfapfapfap
pi_77244385
quote:
Op maandag 25 januari 2010 12:10 schreef DaFan het volgende:
Stel tab3:
C5 = Nieuwe binnenweg
D5 = 1
L5 = 0,45

Stel tab5
I6 = "Nieuwe binnenweg" (LET OP je hebt een spelfout!)
H7= 1

Dan is I8:
=ALS($H7<>"";SOMPRODUCT(($H7=Werkgeschiedenis!$D$5:$D$9)*('Analyse 2'!I$6=Werkgeschiedenis!$C$5:$C$9)*(Werkgeschiedenis!$L$5:$L$9)))

En doortrekken naar rechts en beneden. Resultaat is 0,45

Je moet wel oppassen, want met SOMPRODUCT kan je niét met Named ranges werken die over de hele kolom gaan. Je mág dus geen D:D gebruiken in SOMPRODUCT in oudere versies dan 2007.

In 2007 mag het dus wel!

Ziet er netjes uit trouwens, met Named Ranges werken is wel pro in zo'n sheet. Maar gaat dus met deze formule problemen opleveren in oudere versies dan 2007.


Hoop dat het zo duidelijk genoeg is.
zie pm
Op woensdag 8 september 2010 13.23 schreef Houniet het volgende: Guus is de beste hier
Op donderdag 5 augustus 2010 01:45 schreef Fenomeno het volgende:
als ik later groot ben wil ik net zo worden als guus
pi_77245981
quote:
Op maandag 25 januari 2010 12:17 schreef DaFan het volgende:
YESSS SUMPRODUCT fapfapfapfap
heel goed hoor.

Als je wilt weten waarom DaFan een natte voeg krijgt van de sumproduct functie check dan deze tutorials, dan snap je de kracht van deze functie.

http://www.exceluser.com/explore/sumproduct_11.htm
http://www.lqnet.com/Excel/sumproduct.aspx
http://www.meadinkent.co.uk/xlsumproduct.htm

[ Bericht 41% gewijzigd door Deetch op 25-01-2010 13:38:00 ]
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_77246644

Heb m via PM ook al wat toegestuurd
pi_77247989
quote:
Op maandag 25 januari 2010 13:27 schreef Deetch het volgende:

[..]

heel goed hoor.

Als je wilt weten waarom DaFan een natte voeg krijgt van de sumproduct functie check dan deze tutorials, dan snap je de kracht van deze functie.

http://www.exceluser.com/explore/sumproduct_11.htm
http://www.lqnet.com/Excel/sumproduct.aspx
http://www.meadinkent.co.uk/xlsumproduct.htm

Ik heb inderdaad al een pm gekregen met een dergelijke uitleg, bedankt
Op woensdag 8 september 2010 13.23 schreef Houniet het volgende: Guus is de beste hier
Op donderdag 5 augustus 2010 01:45 schreef Fenomeno het volgende:
als ik later groot ben wil ik net zo worden als guus
pi_77284990
Hoi Allemaal,

Ik ben bezig met het bouwen vaneen excel-tooltje. Nu wil ik daar ook de functionaliteit in hebben dat er direct vanuit excel (of eventueel via Outlook) een mailtje wordt verstuurd.

Het idee is als volgt. Een gebruiker heeft bepaalde informatie nodig. Nu wil ik dat er dan met een druk op de knop een mail verstuurd wordt naar een bepaald mailadres. Alle benodigde gegevens staan in de excel-sheet. De output moet dus ongeveer als volgt zijn (dikgedrukte tekst zijn de celverwijzingen):

-----------------------------------------------------------------------------
Beste A1,

Voor dossier A2 mis ik wat gegevens van relatie

A3
A4
A5 A6.

Zou jij deze kunnen opvragen?

MVG,
actuarisje
-----------------------------------------------------------------------------

Het mailadres (van de ontvanger) staat ook ergens in de excel-sheet.

Kan iemand mij hiermee helpen? Heeft iemand nog ergens een macro liggen die zoiets kan doen? Kan iemand mij doorverwijzen naar een website met duidelijke uitleg van hoe ik zoiets aan kan pakken?

Ik gebruik op dit moment Excel 2003. Ik heb een klein beetje programmeerervaring (C++/java), maar heb nog nooit iets met VBA gedaan.
pi_77286185
Heb je een SMTP server of wil je gewoon output in een nieuwe mail in Outlook?
pi_77286393
quote:
Op dinsdag 26 januari 2010 12:38 schreef DaFan het volgende:
Heb je een SMTP server of wil je gewoon output in een nieuwe mail in Outlook?
Er is een SMTP server. Ik wil ook dat de mail automatisch verzonden wordt, zonder dat de gebruiker iets hoeft te doen met Outlook.

Nu heb ik al wel een aantal macro's gevonden voor het automatisch versturen van mail, maar ik heb er nog geen gevonden waarbij de 'body' van de email niet een standaard-tekst is. In mijn geval moet de tekst in de body afhangen van wat waarden in de excelsheet.
  dinsdag 26 januari 2010 @ 13:10:45 #105
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_77287489
Ik lift even mee op actuarisje's vraag. Ik wil mogelijk een soortgelijke functionaliteit (die dan een e-mail stuurt naar een online applicatie die de e-mail weer omzet in een sms).
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_77287594
Je kan toch gewoon een string samenstellen in VBA door waarden uit de cellen? En die dus als body eraan hangen.

bv A1 = naam
B1 = applicatienaam
C1 = knopnaam

1
2
3
4
5
6		a = "Geachte heer " & Range("A1").Value & ","
b = " Applicatie " & Range("B1").Value & " werkt niet goed."
c = " Het probleem is volgens mijn knopje " & Range("C1").Value & "."

BodyEmail = a & b & c
Range("D1").Value = BodyEmail


En dan die string dus in de Body zetten?
pi_77287794
Is er een mogelijkheid om in excel uitverschillende tabs automatisch te tellen?

Ik moet dus mijn werkuren bij houden in een mooi excelletje,
elke week een apart tabblak (wk1, wk2 etc)
Is het mogelijk om in een apart tabblad een formule te maken die uit een bepaalde cel (celnr is op elk tabblad gelijk) een getal gaat optellen, zodat ik bv automatisch mijn vakantieuren kan bijhouden.
Ik weet dat je met de hand de betreffende cel kan aanwijzen, maar dan krijg ik een hele lange formule en moet ik dat geintje 52x uitvoeren, dus ik dacht dat moet sneller kunnen, maar tot dusver nog niets gevonden
hopelijk weet iemand een oplossing
pi_77291299
"tab1" is je eerste sheet.
"tab52" is je laatste sheet

=SOM(Tab1:Tab52!A1)
telt alle waardes uit A1 uit alle cellen bij elkaar op.
  dinsdag 26 januari 2010 @ 15:20:57 #109
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_77292707
quote:
Op dinsdag 26 januari 2010 13:13 schreef DaFan het volgende:
Je kan toch gewoon een string samenstellen in VBA door waarden uit de cellen? En die dus als body eraan hangen.

bv A1 = naam
B1 = applicatienaam
C1 = knopnaam
[code verwijderd ]

En dan die string dus in de Body zetten?
Even op mijn persoonlijke situatie gespitst:

Wij willen per persoon een mail sturen met bepaalde gegevens. Die mail gaat naar een (per persoon) uniek e-mailadres (telefoonnummer@gatewayprovider.nl).

In die mail wil ik gegevens vanuit een Excelbestand weergeven tussen de tekst (excelvelden zijn dikgedrukt weergegeven).

Bv:

Beste werknemer,

Vandaag is het salaris voor week A2 uitbetaald. Dit moet dus spoedig op je bankrekening staan.

Wij hebben op basis van de door ons ontvangen urenstaten B2 uren verwerkt. Het netto uitbetaalde bedrag is C2.

Met vriendelijke groet,

Bedrijfsnaam
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_77294304
quote:
Op dinsdag 26 januari 2010 14:46 schreef DaFan het volgende:
"tab1" is je eerste sheet.
"tab52" is je laatste sheet

=SOM(Tab1:Tab52!A1)
telt alle waardes uit A1 uit alle cellen bij elkaar op.
deze oplossing had ik ook al gevonden op internet maar die werkt dus niet..helaas
Ik krijg in het veld #VALUE! te zien
ook maakt excel er zelf de volgende formule van:

=SUM(WK1:'wk02'!U49)

waarschijnlijk herkent ie mij tweede tab (wk02) wel als aparte tab door de achtervoeging (!)
hoe gooit er ook zelf '....' omheen

nog andere mogelijkheden?
pi_77295464
'WK1:WK02'!U49

Kan niet anders dan werken
pi_77297022
quote:
Op dinsdag 26 januari 2010 16:19 schreef DaFan het volgende:
'WK1:WK02'!U49

Kan niet anders dan werken
klopt, je was in je eerste antwoord de accentjes vergeten
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_77298229
quote:
Op dinsdag 26 januari 2010 16:49 schreef Deetch het volgende:

[..]

klopt, je was in je eerste antwoord de accentjes vergeten
Facepalm.
  woensdag 27 januari 2010 @ 00:42:53 #114
62215 qu63
..de tijd drinkt..
pi_77319594
quote:
Op dinsdag 26 januari 2010 17:18 schreef DaFan het volgende:

[..]

Facepalm.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 27 januari 2010 @ 08:57:22 #115
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_77322576
quote:
Op dinsdag 26 januari 2010 15:20 schreef sanger het volgende:

[..]

Even op mijn persoonlijke situatie gespitst:

Wij willen per persoon een mail sturen met bepaalde gegevens. Die mail gaat naar een (per persoon) uniek e-mailadres (telefoonnummer@gatewayprovider.nl).

In die mail wil ik gegevens vanuit een Excelbestand weergeven tussen de tekst (excelvelden zijn dikgedrukt weergegeven).

Bv:

Beste werknemer,

Vandaag is het salaris voor week A2 uitbetaald. Dit moet dus spoedig op je bankrekening staan.

Wij hebben op basis van de door ons ontvangen urenstaten B2 uren verwerkt. Het netto uitbetaalde bedrag is C2.

Met vriendelijke groet,

Bedrijfsnaam
Kan bovenstaande met een Outlooktaak? Daar las ik iets over gisteren
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_77325496
quote:
Op dinsdag 26 januari 2010 13:13 schreef DaFan het volgende:
Je kan toch gewoon een string samenstellen in VBA door waarden uit de cellen? En die dus als body eraan hangen.

bv A1 = naam
B1 = applicatienaam
C1 = knopnaam
[ code verwijderd ]

En dan die string dus in de Body zetten?
Ik heb het nu op een iets andere manier aangepast. Nu wordt op een apart werkblad de mail aangemaakt. Op dit werkblad staat de ontvanger in cel C3, het onderwerp in cel C4, en de body van de mail staat in cellen B11:L44.

Volgens mij moet het wel mogelijk zijn om die range (B11:L44) in het script als body voor de mail mee te geven. Daar ga ik nog even mee puzzelen...
pi_77325821
Even iets heel anders tussendoor. Ik beschik over een sheet met een duizendtal regels met data. Nu wordt er van deze data een dagelijkse update beschikbaar gesteld.

Ik wil mijn huidige sheet dus (het liefst automatisch elke dag) synchroniseren/updaten met de nieuwe data. De nieuwe en oude files hebben exact dezelfde indeling/lay-out. Laten we het volgende voorbeeld nemen:

OUWE FILE

1 hello blue
2 hello blue
4 hello blue
5 hello blue

NIEUWE FILE

1 hello red
2 hello blue
3 hello blue
5 hello blue

Dan moet dus de nieuwe file als volgt eruit zien:

1 hello red
2 hello blue
3 hello blue
4 MELDING
5 hello blue

Dus:
Regel 1 is aangepast (blue wordt red)
Regel 2 wordt niet aangepast (want oud = nieuw)
Regel 3 moet worden toegevoegd (deze zit er nieuw bij)
Regel 4 moet een melding krijgen, omdat deze er in de nieuwe file nl. niet meer in zit (bijvoorbeeld dat de hele regel groen kleurt)
Regel 5 wordt niet aangepast (want oud = nieuw)


Het liefst wil ik dat dit automatisch gebeurt met een druk op een knop, waarbij de oude versie eerst wordt opgeslagen (backup).

Heeft iemand zo'n scriptje liggen en/of kan iemand mij helpen er zo één op te zetten?
pi_77326671
quote:
Op woensdag 27 januari 2010 10:50 schreef actuarisje het volgende:

[..]

Ik heb het nu op een iets andere manier aangepast. Nu wordt op een apart werkblad de mail aangemaakt. Op dit werkblad staat de ontvanger in cel C3, het onderwerp in cel C4, en de body van de mail staat in cellen B11:L44.

Volgens mij moet het wel mogelijk zijn om die range (B11:L44) in het script als body voor de mail mee te geven. Daar ga ik nog even mee puzzelen...
Ik heb nu hetvolgende script gebruikt (van de site van Ron de Bruin). De gegevens voor de mail staan op Blad2, genaamd "Email"

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102		 Sub Mail_Selection_Range_Outlook_Body()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2007
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object

    Set rng = Nothing
    On Error Resume Next
    'Only the visible cells in the selection
    'Set rng = Selection.SpecialCells(xlCellTypeVisible)
    'You can also use a range if you want
    Set rng = Sheets("Email").Range("B11:L44").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = Sheets("Email").Range("C3").Value
        .CC = ""
        .BCC = ""
        .Subject = Sheets("Email").Range("C4").Value
        .HTMLBody = RangetoHTML(rng)
        .Send   'or use .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2007
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
 
    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
 
    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With
 
    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
 
    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")
 
    'Close TempWB
    TempWB.Close savechanges:=False
 
    'Delete the htm file we used in this function
    Kill TempFile
 
    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function


Kan iemand zo op het eerste gezicht zien of dit zou moeten kunnen werken? Ik heb namelijk op de PC waar ik nu zit GEEN Outlook staan, dus bij het runnen van de macro krijg ik de foutmelding dat er een object niet aangemaakt kan worden. Het loop bij mij mis op regel 27, waarschijnlijk omdat ik geen Outlook heb...
pi_77330361
quote:
Op woensdag 27 januari 2010 11:22 schreef actuarisje het volgende:

[..]

Ik heb nu hetvolgende script gebruikt (van de site van Ron de Bruin). De gegevens voor de mail staan op Blad2, genaamd "Email"
[ code verwijderd ]

Kan iemand zo op het eerste gezicht zien of dit zou moeten kunnen werken? Ik heb namelijk op de PC waar ik nu zit GEEN Outlook staan, dus bij het runnen van de macro krijg ik de foutmelding dat er een object niet aangemaakt kan worden. Het loop bij mij mis op regel 27, waarschijnlijk omdat ik geen Outlook heb...
Ik heb dit even laten testen door een vriendin die wel beschikking had tot Outlook en het werkt op deze manier

Dank voor de gedane suggesties. Nu blijft alleen mijn vraag voor het automatisch updaten nog open staan...
  woensdag 27 januari 2010 @ 20:07:33 #120
132806 tokko1
Wat Shiz zegt ..
pi_77348897
Iemand een makkelijke mannier om exel spreadsheatje te maken met gewoon getallen t'm 300..
1-2-3-4-5-6-7-8-9-10
11-12-13-14-15-16-17-18-19-20
21-22.. etc??

Thanks
Check mijn china reviews op &lt;a href="http://reviewblog.tweakblogs.net" rel="nofollow" target="_blank"&gt;Reviewblog.tweakers.net&lt;/a&gt;
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[Excel] Het grote Excel vragen topic #18
Index

» digital corner

» software

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