Matroids Matheplanet Forum Index
Moderiert von Bilbo matph
Matroids Matheplanet Forum Index » Informatik » VBA Color
Autor
Schule VBA Color
Bekell
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 05.09.2008
Mitteilungen: 2605
  Themenstart: 2021-10-17

Hallo, \sourceon VBA \numberson Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static lngCol As Long With Application If Not Intersect(Target, Range("A4:AZ5")) Is Nothing Then .EnableEvents = False Target.Resize(Range("A1"), Range("A2")).Select If Target.Column < lngCol Then Target.Offset(2, 0).Resize(2, 100).ClearContents End If Target.Offset(2, 0) = WorksheetFunction.Sum(Selection) .EnableEvents = True End If End With lngCol = Target.Column End Sub ich möchte, dass die Ausgabe farbig hervorgehoben wird. ich habe an Zeile 10 dies angeheftet, aber es geht nicht ".Interior.ColorIndex = 6 " was mach ich falsch? Interior.ColorIndex = 6 \sourceoff


   Profil
zippy
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 24.10.2018
Mitteilungen: 2913
  Beitrag No.1, eingetragen 2021-10-17

\quoteon(2021-10-17 19:22 - Bekell im Themenstart) ich habe an Zeile 10 dies angeheftet, aber es geht nicht ".Interior.ColorIndex = 6 " \quoteoff Was bedeutet denn "angeheftet"? Das funktioniert beispielweise: \sourceon VBA Target.Offset(2, 0) = WorksheetFunction.Sum(Selection) Target.Offset(2, 0).Interior.ColorIndex = 6 \sourceoff --zippy


   Profil
Bekell hat die Antworten auf ihre/seine Frage gesehen.
Bekell wird per Mail über neue Antworten informiert.

Wechsel in ein anderes Forum:
 Suchen    
 
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2021 by Matroids Matheplanet
This web site was originally made with PHP-Nuke, a former web portal system written in PHP that seems no longer to be maintained nor supported. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen.
Lesen Sie die Nutzungsbedingungen, die Distanzierung, die Datenschutzerklärung und das Impressum.
[Seitenanfang]