Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Privat Sub ObjExcel_Sheet Change....deaktivieren

Forumthread: Privat Sub ObjExcel_Sheet Change....deaktivieren

Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 10:22:15
Addi
Hallo Zusammen,
beim Erstellen und Optimieren eines Makros (meist durch Aufzeichnung) habe ich folgendes Problem:
Wenn ich Anpassungen im Coding mache und diese dann an mit F8 teste springt mein Coding sehr häufig in solch einen Bereich:

Option Explicit
Public WithEvents ObjExcel As Application

Private Sub ObjExcel_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If EloRibbonIsLoaded = True And EloRibbonText = False Then
If EloRibbonIsInvalidate = False Then
EloRibbon.Invalidate
EloRibbonIsInvalidate = True
End If
End If

End Sub

Private Sub Workbook_Open()
Set ObjExcel = Application
EloRibbonIsLoaded = False
EloRibbonIsInvalidate = False
End Sub

Diesen Bereich muss ich dann mit F8 durchklicken, bis ich wieder zu meinem Coding komme.
Ist dies für die ordnungsgemäße Ausführung notwendig, oder kann man dies mit einem Befehl ggf. deaktivieren?

Vielen Dank und Gruß,
Addi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 10:53:03
BoskoBiati
Hi,

dann hast Du wahrscheinlich in Deinem Code einen Sprungbefehl zu diesem Makro. Bei welcher Deiner Codezeilen passiert dieser Wechsel?

Gruß

Edgar
AW: Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 10:59:54
Addi
Hallo Edgar,
vielen Dank schon mal!!
Das passiert bei ganz vielen Zeilen...unter anderem benenne ich einige Zellen um - bei jeder Zeile springt er dort rein...

Range("A1").Value = "AuftrGeber"
Range("B1").Value = "AuftGeberName"
Range("C1").Value = "Artikel"
Range("D1").Value = "Artikeltext"
Range("E1").Value = "Belegdatum"
Range("F1").Value = "Position"
Range("G1").Value = "Betrag Netto"
Range("H1").Value = "Währung"
Range("I1").Value = "AnzPositionen"

Viele Grüße Addi
Anzeige
AW: Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 11:19:38
Ulf
Hi,
bezieht sich auf Ribbons und vlt notwendig für Add-In o.ä., schalt es halt aus solange du willst 
Option Explicit

Public WithEvents ObjExcel As Application



Private Sub ObjExcel_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If EloRibbonIsLoaded = True And EloRibbonText = False Then

If EloRibbonIsInvalidate = False Then

EloRibbon.Invalidate

EloRibbonIsInvalidate = True

End If

End If



End Sub



Private Sub Workbook_Open()

Set ObjExcel = Application

EloRibbonIsLoaded = False

EloRibbonIsInvalidate = False

End Sub




set ObjExcel=nothing

Range("A1").Value = "AuftrGeber"

Range("B1").Value = "AuftGeberName"

Range("C1").Value = "Artikel"

Range("D1").Value = "Artikeltext"

Range("E1").Value = "Belegdatum"

Range("F1").Value = "Position"

Range("G1").Value = "Betrag Netto"

Range("H1").Value = "Währung"

Range("I1").Value = "AnzPositionen"

set ObjExcel=Application

hth
Ulf
Anzeige
AW: Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 13:39:12
Addi
Hallo Ulf,
vielen Dank für den Tipp, leider löst das nicht mein Problem.
Aber ich möchte das nun auch nicht weiter vertiefen...ich muss mich halt bei der Bearbeitung bzw. beim Testen des Codings mit F8 immer durchklicken aber wenn das
Makro dann im Betrieb mit F5 gestartet wird ist es ja eh egal.
Viele Grüße
Addi
Anzeige
AW: Privat Sub ObjExcel_Sheet Change....deaktivieren
15.10.2025 13:56:25
BoskoBiati
Hi,

als Krücke zum Testen: 

Option Explicit

Public WithEvents ObjExcel As Application



Private Sub ObjExcel_SheetChange(ByVal Sh As Object, ByVal Target As Range)



Exit sub



If EloRibbonIsLoaded = True And EloRibbonText = False Then

If EloRibbonIsInvalidate = False Then

EloRibbon.Invalidate

EloRibbonIsInvalidate = True

End If

End If



End Sub

oder 

Private Sub Workbook_Open()

'Set ObjExcel = Application

'EloRibbonIsLoaded = False

'EloRibbonIsInvalidate = False

End Sub


Nach dem Testen das Ganze rückgängig machen!
Gruß

Edgar
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum