Onder een bepaalde voorwaarde een stukje code uitvoeren.

[Lengerke]

Dag mensen,

Ik ben op zoek naar een stukje code waarmee het volgende gedaan kan worden:
Wanneer in A1 een waarde staat met een lengte van 4, dan moet een stukje code worden uitgevoerd dat ik al heb. Is de waarde niet 4, dan moet er niets gebeuren.
Alvast dank!

 

[Chrila]

Hoi,

hoe bedoel je precies dat de waarde een lengte van 4 heeft

Moet de waarde een 4 zijn of moet er een getal staan dat bestaat uit 4 cijfers?

 

[Lengerke]

Dag Grilla,

Bedankt voor je snelle reactie.
Wat ik bedoel is als er b.v. 34-M (lengte=4) staat in A1, dat dan het stukje code moet worden uitgevoerd. Maar als er in A1 b.v. staat TER (lengte=3) of 35-67 (lengte=5), dat dan het stukje code niet wordt uitgevoerd.
Hoop dat het zo iets duidelijker is.

 

[Chrila]

Als(Lengte(A1)=4;stukje code;"")

zoiets?

 

[VenA]

Wat is er mis met even een voorbeeldbestand plaatsen? Welke code wordt er zoal uitgevoerd of niet? Heb je al gekeken naar het Change event?

 

[Lengerke]

Hopelijk is het voorbeeld bestandje duidelijk.

 

[VenA]

Een .xlsx bevat geen code.

 

[Lengerke]

Dat weet ik. Hier is hij met code.

 

[edmoor]

Zoiets:

Sub KopieerOnderVoorwaarde()
    If Len(Range("A1")) = 4 Then Range("E4:E10") = Range("G4:G10").value
End Sub

Of wat VenA zei over het Change event, dit achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("E4:E10") = IIf(Len(Target) = 4, Range("G4:G10").Value, "")
    End If
End Sub

 

[Lengerke]

Dag mensen,
Ik heb wat vergeten, sorry er moet als actie niet gewoon gekopieerd worden, maar de waarden moeten gekopieerd worden (want het zijn eigenlijk formules die er achter zitten.
De verbeterde beschrijving staat in het vernieuwde bestandje.
Alvast grote dank!

 

[edmoor]

Heb je het wel getest? Dat is precies wat de Change functie in #9 doet.
Hij kopiëert niet de functies maar de waarden.

 

[VenA]

De code hoort niet thuis in de module van ThisWorkbook maar in de module van Blad1.

Anders moet je de code een beetje aanpassen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 

[edmoor]

Waarbij je er dan rekening mee moet houden dat het dan voor ieder werkblad geldt.
Middels het sh object dat je dan voorhanden hebt kan je dat dan weer manipuleren.

 

[Lengerke]

Met al jullie hulp ben ik eruit gekomen, dank, jullie zijn geweldig!