Thema Datum  Von Nutzer Rating
Antwort
01.06.2016 17:28:04 Rich
NotSolved
01.06.2016 20:43:59 Gast1953
NotSolved
Rot Zellenmakierung
 01.06.2016 20:44:00 Gast38156
NotSolved

Ansicht des Beitrags:
Von:
Gast38156		 Datum:
01.06.2016 20:44:00		 Views:
748		 Rating:
     
Antwort:
  Ja
Thema:
Zellenmakierung

Hallo! Was willst du in der 4.ten Reihe habn? Das selbe auch bei der selben Selektion oder willst du nur starten, wenn du in Zeile 4 bist. Zudem passt was von der Zuordnung nicht. Du schreibst A4:ba100 aber im Code ist nur bis A100 (dein Code unten). Und Reihe ist bei dir die Spalte. Ich vermute mal, du willst Spalte A und D mit deinem Code verändern. Habe da mal einen Code untern deinen gepostet (sowie ich es vermute). SChau es dir mal an und ggf. nochmal die Frag konkretisieren. VG

 

?
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
40
41
42
43
44
45
46
47
48
'dein Code
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("a1:a100")
For Each i In bereich
    If i.Interior.ColorIndex <> 15 Then
        i.Interior.ColorIndex = xlColorIndexNone
    End If
Next i
If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
    Cells(Selection.Row, 1).Interior.ColorIndex = 17
End If
 
End Sub
 
'meine Vermutung
Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim i As Range
Dim bereich As Range
If Target.Column = 1 Then
    Set bereich = Range("a1:a100")
    For Each i In bereich
        If i.Interior.ColorIndex <> 15 Then
            i.Interior.ColorIndex = xlColorIndexNone
     End If
    Next i
    If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
        Cells(Selection.Row, 1).Interior.ColorIndex = 17
    End If
 
End If
 
If Target.Column = 4 Then
    Set bereich = Range("d1:d100")
    For Each i In bereich
        If i.Interior.ColorIndex <> 15 Then
            i.Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
    If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then
        Cells(Selection.Row, 1).Interior.ColorIndex = 17
    End If
 
End If
 
End Sub

 

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
01.06.2016 17:28:04 Rich
NotSolved
01.06.2016 20:43:59 Gast1953
NotSolved
Rot Zellenmakierung
 01.06.2016 20:44:00 Gast38156
NotSolved