mir wurde vor einigen Woche hier ein VBA Code zu bekommen um eine Aufgabe zu lösen. Das hat auch unter Excel 2010 sehr gut funktioniert.
Jetzt bin ich gerade dabei dies unter Excel 2016 zu probieren und bekomme eine Fehlermeldung, womit ich leider gar nichts anfangen kann:
---------------------------------------------------------------------------------
Option Explicit
' _
Dieses Ereignis tritt ein, wenn eine Zelle doppelklicket wird
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
Dim x As Long
Dim arrZeichen
Dim arrFarbe
Dim arrSchriftart
If Not Intersect(target, Range("P10:AE259")) Is Nothing Then
' Hier kann man die Wechselnde Einträge pflegen (Der Bereich kann beliebig erweitert _
_
_
werden.
' hier wird der Bereich gekennzeichnet.
arrZeichen = Array("", "ü", "û") ' _
_
_
hier werden die Einträge gepflegt.
arrFarbe = Array(vbBlue, vbGreen, vbRed) ' _
_
_
hier werden die Farben geflegt.
arrSchriftart = Array("Calibri", "Wingdings", "Wingdings") ' _
_
_
hier werden die Schriftarten gepflegt.
'' Hier kann man die Wechselnde Einträge pflegen (Der Bereich kann beliebig erweitert _
_
_
werden.
' ElseIf Not Intersect(target, Range("H10:H259")) Is Nothing Then ' _
_
_
hier wird der Bereich gekennzeichnet.
' arrSchriftart = Array("Verdana", "Verdana", "Verdana") ' _
_
_
hier werden die Schriftarten gepflegt.
' arrZeichen = Array("fix", "beweglich", "") ' _
_
_
hier werden die Einträge gepflegt.
' arrFarbe = Array(vbBlue, vbBlue, vbBlue) ' _
_
_
hier werden die Farben geflegt.
'' Hier kann man die Wechselnde Einträge pflegen (Der Bereich kann beliebig erweitert _
_
_
werden.
' ElseIf Not Intersect(target, Range("I10:I259")) Is Nothing Then ' _
_
_
hier wird der Bereich gekennzeichnet.
' arrSchriftart = Array("Verdana", "Verdana", "Verdana") ' _
_
_
hier werden die Schriftarten gepflegt.
' arrZeichen = Array("Voll", "Halb", "") ' _
_
_
hier werden die Einträge gepflegt.
' arrFarbe = Array(vbBlue, vbBlue, vbBlue) ' _
_
_
hier werden die Farben geflegt.
'' Hier kann man die Wechselnde Einträge pflegen (Der Bereich kann beliebig erweitert _
_
_
werden.
' ElseIf Not Intersect(target, Range("J10:J259")) Is Nothing Then ' _
_
_
hier wird der Bereich gekennzeichnet.
' arrSchriftart = Array("Verdana", "Verdana", "Verdana") ' _
_
_
hier werden die Schriftarten gepflegt.
' arrZeichen = Array("Ja", "Nein", "") ' _
_
_
hier werden die Einträge gepflegt.
' arrFarbe = Array(vbBlue, vbBlue, vbBlue) ' _
_
_
hier werden die Farben geflegt.
Else
Exit Sub
End If
On Error Resume Next
x = WorksheetFunction.Match(target.Value & "", arrZeichen, 0)
On Error GoTo 0
x = x Mod (UBound(arrZeichen) + 1)
target.Value = arrZeichen(x)
target.Font.Color = arrFarbe(x)
target.Font.Name = arrSchriftart(x)
cancel = True
End Sub
---------------------------------------------------------------------------------
Folgende Fehlermeldung bekomme ich immer wieder:
Fehler beim Kompilieren:
Sub oder Function nicht defibniert.
Kann mir bitte jemand helfen zu erfahren, was gemacht werden soll?
vielen Dank für die Mühe und Feedback im Voraus.
Liebe Grüße, Lilli :)