Option Explicit
Dim letzte As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
letzte = True
MsgBox "Makro1"
ElseIf letzte = True Then
letzte = False
MsgBox "Makro2"
End If
End Sub
Öffne die Excel-Datei, in der Du das Makro implementieren möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle das entsprechende Blatt im Projekt-Explorer aus, in dem Du das Makro einfügen möchtest.
Füge den folgenden Code ein:
Option Explicit
Dim letzte As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$14" Then
letzte = True
MsgBox "Makro1"
' Hier kannst Du den Blattnamen ändern
Me.Name = "Tabelle 1"
ElseIf letzte = True Then
letzte = False
' Hier wird der Blattname basierend auf dem Datum geändert
Me.Name = Format(Me.Cells(2, 4).Value, "MMMM YYYY")
MsgBox "Makro2"
End If
End SubSpeichere die Datei und schließe den VBA-Editor.
Teste die Funktion, indem Du die Zelle B14 auswählst und dann einen anderen Bereich verlässt.
Worksheet_SelectionChange auch ein Timer-Event nutzen, um regelmäßig den Fokus zu prüfen und entsprechende Makros auszuführen.Beispiel 1: Wenn in Zelle C10 der Fokus gesetzt wird, soll ein Makro ausgeführt werden, das eine Berechnung durchführt. Ändere die Adresse im Code entsprechend.
If Target.Address = "$C$10" Then
' Führe Berechnung durch
End IfBeispiel 2: Du kannst auch mehrere Zellen überwachen, indem Du eine Liste von Adressen in einem Array speicherst und die Bedingung entsprechend anpasst.
1. Warum funktioniert mein Makro nicht, wenn ich den Fokus verlasse? Es kann an einer falschen Adressüberprüfung liegen oder daran, dass der Fokus nicht richtig erkannt wird. Stelle sicher, dass die Adresse korrekt ist.
2. Wie kann ich einen Excel-Namenskonflikt vermeiden? Verwende eindeutige Namen, die nicht mit integrierten Namen in Excel übereinstimmen, um Namenskonflikte zu vermeiden.
3. Was passiert, wenn ich den Blattnamen auf einen bereits existierenden Namen setze? Excel wird einen Fehler ausgeben, weil der Name bereits verwendet wird. Du solltest sicherstellen, dass der Name eindeutig ist.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen