Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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


 

   

Relevante Artikel

  • Computerpapier - Zeilen abwechselnd grau und weiß einfärben

    107007 Diese Prozedur färbt die Zeilen innerhalb einer Markierung abwechselnd weiß / grau ein.Dadurch ist bei umfangreichen Zahlenreihen eine bessere Lesbarkeit sowohl am Bildschirm als auch beim...

  • Gruppierungen per VBA ein- und ausblenden

    Sie kennen sicherlich den Befehl um Zeilen oder Spalten mit Hilfe der Gruppierungsfunktion aus- und anschließend wieder einzublenden. Wenn Sie eine Gruppierung einfügen, wird bei...

  • Alle Zellen mit gleicher Schriftfarbe addieren

    Dieses Beispiel soll demonstrieren, wie Sie mit speziell formatierte Zellen Rechenoperationen durchführen lassen können.In diesem Beispiel werden alle rot formatierten Zellen addiert: Function...

  • Parameter für den VBA-Befehl "Format"

    107011 Der folgende Befehl gibt den Text der in der Zelle A1 steht in der Zelle A2 in Großbuchstaben umgewandelt aus. Range("A2").Value = format(Range("A1"), ">")In der untenstehenden Tabelle finden sie...

  • Fehler #DIV/0! rot markieren

    107003   #DIV/0! in einer großen Tabelle zu finden kann recht mühselig werden...Mit den folgenden wenigen Zeilen formatierenSie diese Zellen rot und fett:     Sub ZellFehler_formatieren()...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013