VBA für alle Tabellenblätter
22.06.2014 22:03:57
Bernd
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makro, speichern. Mit einer anderen Funktion und einem aufgenommenen Makro habe ich es geschafft. Nur mit dem folgenden Makro nicht. Was muss ich da machen. Könnt Ihr mir vielleicht helfen?
Hier das Makro:
Sub ActiveSheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [inOrdnung]) Is Nothing Then
'Gebe in [...] die gewünschten Bereiche an, wo dieses Makro wirken soll
If Target.Value = "Ö" Then
Target.Value = ""
Else
Target.Value = "Ö"
Target.Font.Name = "Symbol"
End If
Cancel = True
End If
End Sub
Im voraus vielen Dank.
Gruß Bernd
Anzeige