"Dé grootste en gratis computerhelpdesk van Nederland"
-
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.
Openen van een tekstvenster of afb. als 2 waarden niet overeenstemmen
- Onderwerp starter gvanwijk
- Startdatum
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.747
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Dit achter het werkblad:
Sla het document op als document met macro's (.xlsm)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 4 Then
If Target.Address(0, 0) = "D6" Or Target.Address(0, 0) = "D9" Then
If Range("D6") <> "" And Range("D9") <> "" Then
If Range("D6") <> Range("D9") Then
MsgBox "Let op: Waarden komen niet overeen.", vbCritical
End If
End If
End If
End If
End SubSla het document op als document met macro's (.xlsm)
Als ik de macro "Waarden" noem, dan wordt jouw code toch:
Sub Waarden()
If Target.Count = 1 And Target.Column = 4 Then
If Target.Address(0, 0) = "D6" Or Target.Address(0, 0) = "D9" Then
If Range("D6") <> "" And Range("D9") <> "" Then
If Range("D6") <> Range("D9") Then
MsgBox "Let op: Waarden komen niet overeen.", vbCritical
End If
End If
End If
End If
End Sub
Maar die geeft een foutcode, ik vergeet wat dus, blijft lastig die macro's.
Sub Waarden()
If Target.Count = 1 And Target.Column = 4 Then
If Target.Address(0, 0) = "D6" Or Target.Address(0, 0) = "D9" Then
If Range("D6") <> "" And Range("D9") <> "" Then
If Range("D6") <> Range("D9") Then
MsgBox "Let op: Waarden komen niet overeen.", vbCritical
End If
End If
End If
End If
End Sub
Maar die geeft een foutcode, ik vergeet wat dus, blijft lastig die macro's.
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.747
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Als je zegt een foutmelding te krijgen, vertel deze er dan ook bij.
Daarnaast vind ik het vreemd dat als ik een werkende code geef je begint te klagen dat deze na een dusdanig cruciale wijziging niet meer werkt.
Hij heeft niet voor niets deze kop en hoort dan niet voor niets in de Worksheet sectie:
Waar denk je dat na jouw wijziging de waarde van de variabele Target vandaan moet komen?
Daarnaast vind ik het vreemd dat als ik een werkende code geef je begint te klagen dat deze na een dusdanig cruciale wijziging niet meer werkt.
Hij heeft niet voor niets deze kop en hoort dan niet voor niets in de Worksheet sectie:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)Waar denk je dat na jouw wijziging de waarde van de variabele Target vandaan moet komen?
Laatst bewerkt:
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.747
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Wat ik al zei, die wijziging KAN niet.
Zoals ik hem plaatste wordt de code uitgevoerd na een wijziging in een cel.
Zoals jij hem wilt noemen zal je hem achter een knopje moeten hangen of zoiets.
Als je echt wilt wten hoe en waarom zal je je moeten verdiepen in Event routines, welke er zijn en wanneer en op welk moment deze worden geactiveerd en wat de verschillende parameters beteken en hoe je die in je code kan gebruiken. Dat is dus niet even zomaar hier uit te leggen.
Zoals ik hem plaatste wordt de code uitgevoerd na een wijziging in een cel.
Zoals jij hem wilt noemen zal je hem achter een knopje moeten hangen of zoiets.
Als je echt wilt wten hoe en waarom zal je je moeten verdiepen in Event routines, welke er zijn en wanneer en op welk moment deze worden geactiveerd en wat de verschillende parameters beteken en hoe je die in je code kan gebruiken. Dat is dus niet even zomaar hier uit te leggen.
Laatst bewerkt:
Nee hoor niet opgelost, ik zal me eerst wat moeten verdiepen in Event routines, ik heb de vraag vast op opgelost gezet, omdat dat nog wel even gaat duren voordat ik me daarin heb verdiept.
Dus bedankt inderdaad, maar kan er nu nog niets mee.
Dus bedankt inderdaad, maar kan er nu nog niets mee.
ExcelAmateur
Terugkerende gebruiker
- Lid geworden
- 25 aug 2010
- Berichten
- 3.333
Haal boven in de regel - Sub waarden() - weg.
Denk dat de foutmelding dan ook weg is. (Hoop ik)
Denk dat de foutmelding dan ook weg is. (Hoop ik)
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.747
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Maar waarom wijzig je die code zoals ik het heb geplaatst?
Die werkt goed dus als je een andere bedoeling hebt kan je dat beter even uitleggen en kan ik de code erop aanpassen voor je.
Die werkt goed dus als je een andere bedoeling hebt kan je dat beter even uitleggen en kan ik de code erop aanpassen voor je.
- Status
