Thema Datum  Von Nutzer Rating
Antwort
12.02.2011 20:30:41 Patrick
NotSolved
12.02.2011 20:54:13 Severus
NotSolved
12.02.2011 21:01:45 Gast41590
NotSolved
12.02.2011 23:08:35 Severus
NotSolved
14.02.2011 09:49:21 Gast42828
NotSolved
Blau Wenn Zeilen leer dann färben
 14.02.2011 10:55:01 Severus
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
14.02.2011 10:55:01		 Views:
1056		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Zeilen leer dann färben

Leute! Warum könnt ihr nicht von Anfang an klar sagen, was ihr wollt? Muß man immer wieder nachbessern, weil Ihr Eure Aufgabenstellung nicht durchdenkt oder nicht richtig beschreibt? Das frustriert ungemein, weil man sich vera...t vorkommt, wenn immer wieder "und dann noch, und könnte man nicht noch usw. usw. " nachkommen!

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
   
Private Sub Workbook_Open()
Dim lngSpaltenZahl As Long
With ThisWorkbook.Sheets("Tabelle1") 'Hier ggf. den Namen des Tabellenblattes ändern
    For lngSpaltenZahl = 2 To 84
        If Application.WorksheetFunction.Count(.Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl))) = 0 Then
            .Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl)).Interior.ColorIndex = 3
        Else
            .Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl)).Interior.ColorIndex = xlNone
        End If
        If Application.WorksheetFunction.Count(.Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl))) = 0 Then
            .Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl)).Interior.ColorIndex = 3
        Else
            .Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl)).Interior.ColorIndex = xlNone
        End If
    Next lngSpaltenZahl
End With
End Sub
   
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngSpaltenZahl As Long
If Sh.Name <> "Tabelle1" Then Exit Sub 'Hier ggf. den Namen des Tabellenblattes ändern
With Sh
    If Target.Row < 13 Or (Target.Row > 17 And Target.Row < 32) Or Target.Row > 37 Or Target.Column < 2 Or Target.Column > 84 Then Exit Sub
    For lngSpaltenZahl = 2 To 84
        If Application.WorksheetFunction.Count(.Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl))) = 0 Then
            .Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl)).Interior.ColorIndex = 3
        Else
            .Range(.Cells(13, lngSpaltenZahl), .Cells(17, lngSpaltenZahl)).Interior.ColorIndex = xlNone
        End If
        If Application.WorksheetFunction.Count(.Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl))) = 0 Then
            .Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl)).Interior.ColorIndex = 3
        Else
            .Range(.Cells(32, lngSpaltenZahl), .Cells(37, lngSpaltenZahl)).Interior.ColorIndex = xlNone
        End If
    Next lngSpaltenZahl
End With
End Sub

 

Es handelt sich nicht um zwei Lösungsmöglichkeiten! Die eine Prozedur wird beim Öffnen der Datei ausgeführt, damit die Anzeigen korrekt sind. Die andere wird ausgeführt, wenn das Blatt geändert wird. Beide Prozeduren müssen in das Modul "DieseArbeitsmappe" kopiert werden.

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.02.2011 20:30:41 Patrick
NotSolved
12.02.2011 20:54:13 Severus
NotSolved
12.02.2011 21:01:45 Gast41590
NotSolved
12.02.2011 23:08:35 Severus
NotSolved
14.02.2011 09:49:21 Gast42828
NotSolved
Blau Wenn Zeilen leer dann färben
 14.02.2011 10:55:01 Severus
Solved