Bereich bei Eingabe der Farbnummer färben

107004



Mit diesem Programm wird, der Bereich B1 bis B5 in der Farbe eingefärbt, deren Farbzahl in der Zelle A1 eingegeben wird. Der Code wird bei jeder Änderung der Farbzahl automatisch ausgeführt. Dafür sorgt das Worcksheet_Change Ereignis. Damit das Ereignis ausgelöst werden kann, muss der VBA-Code in das Codemodul der entsprechenden Tabelle eingefügt werden.

Private Sub Worksheet_Change(ByVal Target As Range) 

On Error Resume Next
If Not Application.Intersect(Target, Range("A1:A1")) Is Nothing Then
    farbnummer = Range("A1")
    Range("B2:B5").Select
    With Selection.Interior
    .ColorIndex = farbnummer
    .Pattern = xlSolid
    End With
    Range("A1").Select
End If
End Sub


 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800