Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR="red"]If ActiveSheet.Name <> "Logfile" And Target.Count = 1 Then[/COLOR]
sWsh = ActiveSheet.Name
sBer = ActiveCell.Address
If ActiveCell.HasFormula Then
sOWrd = ActiveCell.Formula
Else
sOWrd = ActiveCell.Value
sNWrd = ""
End If
End If
End Sub
Roncancio
Sorry voor de late reactie.
Het werkt niet
Als ik het bestandje open dan krijg ik onmiddelijk een foutmelding.
Als ik op foutopsporing klik gaat hij naar het rode gedeelte in de code.
Code:Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) [COLOR="red"]If ActiveSheet.Name <> "Logfile" And Target.Count = 1 Then[/COLOR] sWsh = ActiveSheet.Name sBer = ActiveCell.Address If ActiveCell.HasFormula Then sOWrd = ActiveCell.Formula Else sOWrd = ActiveCell.Value sNWrd = "" End If End If End Sub
And Target.Count = 1
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR="red"]If ActiveSheet.Name <> "Logfile" Then[/COLOR]
sWsh = ActiveSheet.Name
sBer = ActiveCell.Address
If ActiveCell.HasFormula Then
sOWrd = ActiveCell.Formula
Else
sOWrd = ActiveCell.Value
sNWrd = ""
End If
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.