met VBA automatisch datum plakken indien cel is gevuld

[Frans Exceleert]

Beste mensen, Graag stel ik hier de volgende vraag.
Ik ben redelijk thuis in Excel echter VBA is nieuw voor mij. Wat ik graag wil is een datum en een tijd in een cel plaatsen op basis van een veld wat handmatig gevuld wordt. Dit is een productie schema en als ik in bijvoorbeeld in kolom 2 een machine kies moet in kolom 1 automatisch de datum en tijd worden geplaatst zodat ik later met draaitabellen leuke productieoverzichten kan genereren.

Nu heb ik nog niet eerder gewerkt met VBA maar wel een voorbeeld gevonden, echter gebeurt er niets als ik deze macro in mijn werkblad zet. Kan iemand mij op weg helpen?

Het volgende gebruik ik als voorbeeld.
Graag jullie feedback.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count = 1 And Target.Column = 1 Then
Set rng = Target.Offset(0, 1)
If Len(Target) = 0 Then
rng.ClearContents
rng.Offset(0, 1).ClearContents
Else
If Len(rng) = 0 Then
rng = Date
rng.Offset(0, 1) = Date + 30
End If
End If
End If
End Sub

[tknijnenburg]

Wat er in de macro staat is:
Als er in kolom 1, 1 cel wijzigt wordt, tenzij de cel er naast gevuld is, de datum in de cel er naast gezet en in de cel daarnaast de datum + 30 dagen.

Ben je hiermee geholpen?

[Frans Exceleert]

Wat er in de macro staat is:
Als er in kolom 1, 1 cel wijzigt wordt, tenzij de cel er naast gevuld is, de datum in de cel er naast gezet en in de cel daarnaast de datum + 30 dagen.

Ben je hiermee geholpen?

Nee ik begrijp het niet en het lijkt ook niet te werken. Ik stuur het excel bestand even mee, misschien kan jij duiden wat im anders moet doen. Het gaat om het werkblad : Productie. Als er in kolom A een machine wordt gekozen, moet in kolom B de datum komen en in kolom C de tijd. Je zou me enorm helpen als ik dit voor elkaar kan krijgen.

[tknijnenburg]

Beste Frans,
De sub routine stond niet op de juiste plaats, in een module i.p.v. in het werkblad zelf.
Je had de gebeurtenis worksheet_change (wijzigen van het werkblad) gewijzigd in worksheet_productie. Dat is een niet bestaande gebeurtenis.
Als je geen verstand hebt van VBA kan je er in mijn ogen beter van afblijven.

Ik heb een nieuw tabblad toegevoegd met hetzelfde resultaat in een formule zonder gebruik te maken van VBA.

[Frans Exceleert]

Beste Frans,
De sub routine stond niet op de juiste plaats, in een module i.p.v. in het werkblad zelf.
Je had de gebeurtenis worksheet_change (wijzigen van het werkblad) gewijzigd in worksheet_productie. Dat is een niet bestaande gebeurtenis.
Als je geen verstand hebt van VBA kan je er in mijn ogen beter van afblijven.

Ik heb een nieuw tabblad toegevoegd met hetzelfde resultaat in een formule zonder gebruik te maken van VBA.

Bedankt voor je hulp, echter werkt wat je gemaakt hebt niet. Iedere keer als er in een volgende cel iets wordt geplaatst springen de datum en tijd op NU, dus er gaat hier iets mis. Volgens mij is dit ook de reden dat het in VBA moet, maar ik kan me natuurlijk vergissen omdat ik er geen verstand van heb.

[tknijnenburg]

Zie bijlage

[Frans Exceleert]

Zie bijlage

Dankjewel zo werkt het inderdaad met VBA. Rest mij nog één vraag. Hoe krijg ik de datum op een NL notatie dus i.p.v. 11/03/2020 naar 02-11-2020 celopmaak werkt in deze niet.

[tknijnenburg]

Ben ik ook tegenaan gelopen.
Heb gegevens overgezet.