Invoegtoepassingen

[Iguard]

Hallo,

Ik heb gisteren office 2007 geinstalleerd op mijn pc. Hiervoor had ik office 2003. Maar als ik mijn excel bestand opvraag krijg ik een paar foutmeldingen in beeld op de volgende codes in VBA:

- Activecell.Value = Time

Deze herkent het systeem niet meer...... hetzelfde geldt voor:

- Ucase

Het heeft volgens mij te maken met de invoeg toepassingen maar welke moet ik voor beide selecteren?

Mvg

Iguard

 

[DANIEL162]

Ik werk met alle office ook met 2007.
Ik zou graag uw volledege formule willen zien.
Maar zo wekt het ook

Activecell.Value = Time

grtjs Daniel

 

[Iguard]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 8 Then
Target.Offset(0, 3) = Time
End If
End Sub

Als ik in kolom 8 iets invoer krijg ik direct een foutmelding.

 

[Iguard]

'On Error Resume Next
'If (Target.Column = 8) Then
'Application.EnableEvents = False
'Target.Value = UCase(Target.Value)
'Application.EnableEvents = True
'End If

En bij bovenstaande krijg ik ook een foutmelding. Wie kan mij helpen?

 

[Iguard]

Foutmelding toegevoegd.Bekijk bijlage Ucase.xlsx

 

[Warme bakkertje]

Welke verwijzingen heb je aangevinkt staan in VBA ?

 

[Iguard]

Zie bestandje. Alvast bedankt!

Bekijk bijlage Invoegtoepassingen.xlsx

 

[Warme bakkertje]

Ik vroeg Verwijzingen geen Invoegtoepassingen

 

[Iguard]

Warme bakkertje,

Zie bestandje.... deze verwijzingen heb ik erin staan.

 

[Warme bakkertje]

Welk bestandje ?

 

[ExcelAmateur]

Iguard,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column = 8 Then Target.Offset(0, 3) = Time
End Sub

Dit werkt bij mij.

Hierbij het plaatje waar Warme bakkertje om vroeg.
Hier kun je zien wat erbij mij aangevinkt staat.
Dit is te vinden in de VBA editor onder Extra / Verwijzing

 

[Iguard]

Warme Bakkertje en Amateur,

Hierbij het juiste bestandje.

Ik heb jouw optie geprobeerd Amateur, maar dit werkt ook niet.

M.v.g.

Bekijk bijlage Verwijzingen.docx

 

[ExcelAmateur]

Iguard,

Ik weet niet waarom het bij jou niet werkt, hier werkt het perfect.
Het automatisch berekenen staat ook aan?

Zelf zou ik weten hoe dit bij je op te lossen en wens je dan ook suc6.

 

[Iguard]

Amateur,

Ik begrijp het ook niet.... ik kan ook ipv tijd ook nu gebruiken.....

Als ik in kolom H iets invul dan komt in kolom K de huidige tijd, in kolom L de eindtijd.

Het verschil tussen die tijden wordt automatisch berekend in kolom m met onderstaande code:

=ALS(ISFOUT(I7+(I7<H7)-H7);" ";I7+(I7<H7)-H7)*1440

De tijd in kolom L wordt d.m.v. ctrl + shift + ; ingevoerd......

Als je "nu" gebruikt in K dan krijg ik niet de goede uitkomst in kolom m met "tijd" daarin tegen
altijd wel in office2003.... of heb je hier een oplossing voor?

Mvg