"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.
adres van geselecteerde cel
- Onderwerp starter SUVERMO
- Startdatum
- Status
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.301
- Office versie
- Office 365
Niet helemaal waar.
Een dubbelklik kan dat ook doen en daarna een nieuwe cel selecteren.
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.301
- Office versie
- Office 365
@Wlilem.
bedankt voor de reactie
ondertussen ben ik verdergaan om toch met een macro te werken, dit omdat er voor andere toch een macro nodig is.
in een andere macro staat
in [LCFK] moet de waarde en niet de formule komen te staan, daarom [LCFK] = [LCFK].Value
kan dit ook door een aanpassing in onderstaande
[LCFK] = "=ADDRESS(ROW(RasVarieteitKleur!R6C[6])-2+ARBK,COLUMN(FILTER_KLEUR_KOLOM))"
ondertussen ben ik verdergaan om toch met een macro te werken, dit omdat er voor andere toch een macro nodig is.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("F49:S125")) Is Nothing Then Exit Sub
[SELECTEER_INHOUD] = Target.Value
[SELECTEER_RIJ] = ActiveCell.Row
[SELECTEER_KOLOM] = ActiveCell.Column
[BESTAANDE_CELINHOUD] = Target.Value
End Subin een andere macro staat
Code:
Sub NamenVullenMetInhoud()
[ARBR] = Range("Ras!A1").SpecialCells(xlCellTypeLastCell).Row
[ARBV] = Range("Varieteit!A1").SpecialCells(xlCellTypeLastCell).Row
[ARBK] = Range("Kleur!A1").SpecialCells(xlCellTypeLastCell).Row
[MaxARB_R_V_K] = "=MAX(ARBR,ARBV,ARBK)"
[MaxARB_R_V_K] = [MaxARB_R_V_K].Value
[LCFR] = "=ADDRESS(ROW(RasVarieteitKleur!R6C)-2+ARBR,COLUMN(FILTER_RAS_KOLOM))"
[LCFR] = [LCFR].Value
[LCFV] = "=ADDRESS(ROW(RasVarieteitKleur!R6C[3])-2+ARBV,COLUMN(FILTER_VARIETEIT_KOLOM))"
[LCFV] = [LCFV].Value
[LCFK] = "=ADDRESS(ROW(RasVarieteitKleur!R6C[6])-2+ARBK,COLUMN(FILTER_KLEUR_KOLOM))"
[LCFK] = [LCFK].Value
End Subin [LCFK] moet de waarde en niet de formule komen te staan, daarom [LCFK] = [LCFK].Value
kan dit ook door een aanpassing in onderstaande
[LCFK] = "=ADDRESS(ROW(RasVarieteitKleur!R6C[6])-2+ARBK,COLUMN(FILTER_KLEUR_KOLOM))"
- Status
