• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum automatisch invoeren bij tekst in andere cel

Status
Niet open voor verdere reacties.

Debje19

Gebruiker
Lid geworden
12 jul 2010
Berichten
26
Goedemiddag,

Ik ben bezig met een excelbestand waarin de datum automatisch ingevuld moet worden als ik in een andere cel tekst zet.
Even voor het idee:

Bekijk bijlage Bezoekersreg nieuw.xlsx

Als ik dus cel C5 invul door middel van een 'dropdown' menu moet in cel H5 de datum komen te staan en in I5 de tijd (huidige).
Daarnaast als ik een X invul in cel J5 moet in cel K5 de datum komen en in L5 de tijd.

Weet iemand hoe ik dit voor elkaar krijg?
Ik heb namelijk wel losse formules gevonden om de huidige datum en tijd te krijgen maar niet in combinatie met iets invullen.
Het gaat trouwens om de 2010 versie van Excel en is Engels talig.

Alvast bedankt!!
 

Bijlagen

  • vis.jpg
    vis.jpg
    59,7 KB · Weergaven: 348
Laatst bewerkt:
Druk Alt+F11, dan zie je een stukje VBA-code, die het gevraagde uitvoert.
 
Druk Alt+F11, dan zie je een stukje VBA-code, die het gevraagde uitvoert.

Ik weet niet waarom, maar op de een of andere manier krijg ik een tabel op een nieuw tabblad te zien als ik op ALT+F11 druk.
En bovenin staat wel een formule maar als ik die kopieer en plak geeft hij een error aan.
 
Hieronder de code die achter blad 1 moet staan.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
  If Target.Column = 3 Then
  If Target.Value <> "" Then
    Target.Offset(0, 5).Value = Date
    Target.Offset(0, 6).Value = Time
  Else: Target.Offset(0, 5).Value = ""
        Target.Offset(0, 6).Value = ""
  End If
  End If
  If Target.Column = 10 Then
  If Target.Value = "x" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
  Else: Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""

  End If
  End If
Einde:
End Sub
Post anders hier jou bestand (zonder gevoelige info), dan komt het wel ok.
 
Laatst bewerkt:
Hieronder de code die achter blad 1 moet staan.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Einde
  If Target.Column = 3 Then
  If Target.Value <> "" Then
    Target.Offset(0, 5).Value = Date
    Target.Offset(0, 6).Value = Time
  Else: Target.Offset(0, 5).Value = ""
        Target.Offset(0, 6).Value = ""
  End If
  End If
  If Target.Column = 10 Then
  If Target.Value = "x" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 2).Value = Time
  Else: Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""

  End If
  End If
Einde:
End Sub
Post anders hier jou bestand (zonder gevoelige info), dan komt het wel ok.

Ik heb het bestand toegevoegd :)
 

Bijlagen

Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan