Kan dit eenvoudiger !!

Status
Niet open voor verdere reacties.

HammerJohn

Gebruiker
Lid geworden
27 apr 2016
Berichten
173
Ik wil meerdere cellen met een msgbox, uitlichten als je op de cel klikt. Ik heb nu voor iedere cel
apart de opdracht gemaakt, dat werkt goed maar ik heb 1 sheet met 6 cellen en 1 met 50 cellen.

Kan de onderstaande code dus éénvoudiger, cellen staan in zelfde kolom.

Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Cells.Address = "$C$6" Then
    MsgBox Range("C6").Value
End If
If ActiveCell.Cells.Address = "$C$8" Then
    MsgBox Range("C8").Value
End If
If ActiveCell.Cells.Address = "$C$10" Then
    MsgBox Range("C10").Value
End If
End Sub
 
Zoiets:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Target.Address(0,0)
        Case "C6", "C8", "C10"
            MsgBox Target.Value, vbInformation, "Cel: " & Target.Address(0,0)
    End Select
End Sub
 
Laatst bewerkt:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox target
End Sub

Alle elementen in een code betekenen wat; ze staan er niet voor niets.
Analyseer code.
En veel korter dan hierboven lijkt me lastig.
 
Laatst bewerkt:
@Ed,
Code:
"Cel: " & Target.Address(0,0)
 
Yep! Beter :thumb:
Aangepast.
 
Laatst bewerkt:
super bedankt en inderdaad alles werkt zoals ik wilde....

wat moest ik zonder jullie
 
Hallo sorry nog 1 vraagje ik heb de code in het workbook staan, maar nu doet hij het op
alle sheets. Ik zou dat graag iets anders zien ... alleen op enkele sheets waar het noodzakelijk is.
Nu gaat het op diverse sheets mis.
 
Controleer dan ook op de naam van de sheet:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Sh.Name
        Case "Blad3", "Blad6"
            Select Case Target.Address(0, 0)
                Case "C6", "C8", "C10"
                    MsgBox Target.Value, vbInformation, "Cel: " & Target.Address(0, 0)
            End Select
    End Select
End Sub
 
ik heb dat ingevoerd maar dat werkt niet.... hij laat geen MSG box zien
 

Bijlagen

  • Mapmsgbox.xlsm
    13,3 KB · Weergaven: 32
Dan werkt het dus prima.
Je sheet heet niet blad1 maar Blad1
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan