Bei Worksheet_SelectionChange richtiger Sheet?

Hallo zusammen,
ich habe ein Problem mit einem Worksheet_SelectionChange Ereignis. Ich habe einen Sheet, in dem ich ein solches Makro verwende. Darin enthalten sind auch ActiveCell Anweisungen. Jetzt hat sich herausgestellt, dass es nötig ist diesen Sheet zu kopieren. Das Problem ist nun aber: Wenn ich in einem der kopierten Sheets eine Aktion ausführe, das Anklicken einer Zelle genügt schon, springt Excel auf den ersten, ursprünglichen Sheet zurück, anstatt im kopierten Sheet die Aktion auszuführen, die das Makro enthält. Es ist fast so, als wäre der ursprüngliche Sheet sowas wie ein default Sheet. Ich habe es mit hinzugefügten ActiveSheet Anweisungen ausprobiert. Allerdings führten diese entweder zu gar keinen Ergebnis oder zu einer Fehlermeldung. Wie kann ich dem Makro begreiflich machen, dass es die gewünschte Operation im aktuell ausgewählten Sheet ausführen soll? Übrigens steht das Makro bereits im VBA Projekt in der Tabelle, die zu dem Sheet dazu gehört.
Für Hilfe bin ich ausgesprochen dankbar!!!
Grüße,
Marc Richter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
hier ist das Makro. Da habe ich allerdings schon ein paar ActiveSheet Anweisungen rein gepackt, die jedoch keine Wirkung hatten. Wenn ich vor die ActiveCell Anweisungen einfach ein ActiveSheet. davor packe, dann bringt er ne Fehlermeldung, mit Debug-Aufforderung. Ich hoffe, das reicht als Anhaltspunkt.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro4
If ActiveCell.Address(0, 0) = "E21" And ActiveCell.Value = "Kontonummer" Then
Application.EnableEvents = False
ActiveCell.Value = ""
Application.EnableEvents = True
Else
If [E21].Value = "" Then [E21].Value = "Kontonummer"
End If
If ActiveCell.Address(0, 0) = "I21" And ActiveCell.Value = "Bankleitzahl" Then
Application.EnableEvents = False
ActiveCell.Value = ""
Application.EnableEvents = True
Else
If [I21].Value = "" Then [I21].Value = "Bankleitzahl"
End If
If ActiveSheet.Range("E21") = "Kontonummer" Then
ActiveSheet.Range("E21").Font.ColorIndex = 48
ActiveSheet.Range("E21").Font.Bold = False
Else
ActiveSheet.Range("E21").Font.ColorIndex = 56
ActiveSheet.Range("E21").Font.Bold = True
End If
If ActiveSheet.Range("I21") = "Bankleitzahl" Then
ActiveSheet.Range("I21").Font.ColorIndex = 48
ActiveSheet.Range("I21").Font.Bold = False
Else
ActiveSheet.Range("I21").Font.ColorIndex = 56
ActiveSheet.Range("I21").Font.Bold = True
End If
Call Makro3
End Sub

Vielen Dank schonmal!
Grüße,
Marc Richter

Beliebteste Forumthreads (12 Monate)

Bei Worksheet_SelectionChange richtiger Sheet?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread