.
.
.
.
.
.

Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

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

Liniertes Computerpapier erzeugen

Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten Bereich farbig zu hinterlegen. Es wird eine Art liniertes Computerpapier erzeugt werden, wie es in den Anfängen des Computers üblich war. Die Lesbarkeit von Zahlenkolonnen wird dadruch erheblich verbessert.

Sub ZeilenFärben()
'Variablen dimensionieren
Dim Zeile As Range, ZeilenNr As Integer

'Schleife für die gesamte Selektion
For Each Zeile In Selection.Rows

'Zeilen zählen
ZeilenNr = ZeilenNr + 1

'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 15
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If

'Rahmen festelegen
Zeile.Borders.Weight = xlThin

Next
End Sub


Selbstverständlich kann das Makro an ihre Bedürfnisse angepasst werden.
Möchten Sie bspw. nur jede 4. Zeile farbig hinterlegen mit der Farbe rot hinterlegen, dann passen Sie das Makro wie folgt an:

Sub ZeilenFärben()
'Variablen dimensionieren
Dim Zeile As Range, ZeilenNr As Integer

'Schleife für die gesamte Selektion
For Each Zeile In Selection.Rows

'Zeilen zählen
ZeilenNr = ZeilenNr + 1

'Für jede 4. Zeile Farbe festlegen
If ZeilenNr Mod 4 = 0 Then     <-- Anzahl der Zeilen, die markiert werden sollen
Zeile.Interior.ColorIndex = 3    <-- Hintergrundfarbe
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If

'Rahmen festelegen
Zeile.Borders.Weight = xlThin

Next
End Sub

Drucken E-Mail

Relevante Artikel

  • Array-Bereich direkt in Zell-Bereich schreiben

    Sie kennen sicherlich den gewohnten Umgang (schreiben und lesen) mit Array-Variablen. Normalerweise wird jeder Eintrag der Array-Variable einzeln...

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach dem durchlauf des...

  • Kommentare aus Zellinhalten generieren

    Das Makro fügt innerhalb der Selektion in jede Zelle einen Kommentar ein. Inhalt des Kommentars ist das aktuelle Datum sowie der entsprechende...

  • Autofilter: Gefilterte Datensätze auslesen

    In diesem Artikel erläutern wir, wie sich der über einen Autofilter gefilterte Inhalt aus einer Liste auslesen lässt. Als Ausgangsbasis dient wieder...

  • Spaltenbeschriftung auslesen

    In diesem Beispiel zeigen wir Ihnen, wie sich die Spaltenbeschriftung, also die Buchstaben der Spalten z. B. A, B, C, etc. über eine...

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.