Thema Datum  Von Nutzer Rating
Antwort
27.11.2014 19:05:06 Timmy
NotSolved
27.11.2014 23:34:45 Gast24615
Solved
03.12.2014 20:18:05 Timmy
Solved
Blau Funktionsaufruf VBA bei Ändern der Textformatierung
 04.12.2014 23:05:06 Gast84308
NotSolved

Ansicht des Beitrags:
Von:
Gast84308		 Datum:
04.12.2014 23:05:06		 Views:
807		 Rating:
     
Antwort:
  Ja
Thema:
Funktionsaufruf VBA bei Ändern der Textformatierung

Hallo Timmy,

prima, in Xl2010 müsste die Initialisierung bzw. Terminierung noch in die  WB-Open bzw. Close-Events gesetzt werden, da das Activate-Event beim Start anscheinend nicht gefeuert wird:
Code in das Klassenmodul der Arbeitsmappe:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call prcStopTimer
End Sub

Private Sub Workbook_Open()
Call prcStartTimer
End Sub

Wenn es ausreicht, daß das Ereignis erst beim Neuklick in eine Zelle eintritt, geht's auch einen Tacken kürzer:

Code in das Klassenmodul der Arbeitsmappe:

Option Explicit

Private Type CELL_UNDERLINE
   enmUnderLine As XlLineStyle
   strAddress As String
   strShName As String
End Type

Private mudtUnderLine As CELL_UNDERLINE

Private Sub Workbook_Open()
With mudtUnderLine
    .enmUnderLine = ActiveCell.Borders(xlEdgeBottom).LineStyle
    .strAddress = ActiveCell.Address
    .strShName = ActiveSheet.Name
End With
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  With mudtUnderLine
      If Sh.Name = .strShName Then
        If Target.Address <> .strAddress Then _
          If Range(.strAddress).Borders(xlEdgeBottom).LineStyle <> xlNone Then _
              Cells(1, 1) = .strAddress & " ist unterstrichen"
        .enmUnderLine = Target.Borders(xlEdgeBottom).LineStyle
        .strAddress = Target.Address
      End If
  End With
End Sub

Gruß, Mullit

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2014 19:05:06 Timmy
NotSolved
27.11.2014 23:34:45 Gast24615
Solved
03.12.2014 20:18:05 Timmy
Solved
Blau Funktionsaufruf VBA bei Ändern der Textformatierung
 04.12.2014 23:05:06 Gast84308
NotSolved