Blatt-Makro per Klick auf Symbol anhalten

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'markiert die Zeile in der der Curser steht 'von Bernd Held Static OldCellIndexcolor As Integer Static OldCell As Range If Not OldCell Is Nothing Then OldCell.EntireRow.Interior.ColorIndex = OldCellIndexcolor End If OldCellIndexcolor = Target.EntireRow.Interior.ColorIndex Target.EntireRow.Interior.ColorIndex = 36 Set OldCell = Target End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wissensdurstige,
auf der Basis von Alex's Antwort habe ich einwenig gebastelt....
Bei mir läuft's prima:
Erstmal das alte Makro ändern:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'markiert die Zeile in der der Curser steht
'von Bernd Held
If Sheets("nach_fertigTermin").Range("F1") = "Makro ist an" Then
Static OldCellIndexcolor As Integer
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.EntireRow.Interior.ColorIndex = OldCellIndexcolor
End If
OldCellIndexcolor = Target.EntireRow.Interior.ColorIndex
Target.EntireRow.Interior.ColorIndex = 36
Set OldCell = Target
Else
Exit Sub
End If
End Sub

Dann brauchen wir zwei weitere Makros (zum EIN- und AUS-schalten):
Sub Makro_ANLEUCHTEN_ein()
'
' Dieses Makro setzt die Bedingung für den Betrieb
' des Hintergrund-Farbe-Makro's
' (Einschalten)
'
Sheets("nach_fertigTermin").Select
Range("F1").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
ActiveCell.FormulaR1C1 = "Makro ist an"
Range("F2").Select
End Sub
Sub Makro_ANLEUCHTEN_aus()
'
' Dieses Makro setzt einen falschen Wert der Bedingung
' für den Betrieb des Hintergrund-Farbe-Makro's
' (Ausschalten)
'
Range("F1").ClearContents 'erstmal den Inhalt löschen damit das Makro aus ist
'sonst funzt der Rest nachher nicht...
Range("F1").Select 'dann Abgefragte Zelle selektieren

With Selection.Interior
.ColorIndex = 3 'roter Hintergrund (als Status-Info)
.Pattern = xlSolid
End With
ActiveCell.FormulaR1C1 = "Makro ist aus" 'Bestätigungs-Text

Rows("2:300").Select ' Zeilenweise
Selection.Interior.ColorIndex = xlNone ' die übrig gebliebenen Reste entfernen
Range("F2").Select ' Cursor nach oben (der Ordnung halber)
End Sub
Anschließend zwei benutzerdefinierte Symbole in eine vorhandene Leiste hinzufügen.
Und in der selben Aktion auch die Zuweisung (geht nur solange das Fenster
EXTRAS, ANPASSEN offen ist)
Ich hoffe, das meine Arbeit Euch helfen kann.
Servus,
Anton

Beliebteste Forumthreads (12 Monate)

Blatt-Makro per Klick auf Symbol anhalten

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread