Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range Cells

Range Cells
23.03.2016 10:29:37
Erik
Hallo zusammen,
Habe dieses Macro geschrieben allerdings damt 2 Probleme:
Es soll nicht die ganze Zeile gelb markiert werden sondern nur Celle 1-12
und es kommt ein Fehler in Zeile Range(Cells(Target.Row, 14)).ClearContents
Warum dies ?
Vielen Dank
Gruß
Erik
With Target
If .Column = 9 And .Value > 0 Then
Rows(.Row).Interior.ColorIndex = 6
Range(Cells(Target.Row, 14)).ClearContents
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range Cells
23.03.2016 10:36:17
selli
hallo erik,
wo steht denn dieser teil des makros.
in einem normalen modul wäre target falsch angewendet.
gruß
selli

Cells(Target.Row, 14).ClearContents
23.03.2016 10:37:34
selli

AW: Range Cells
23.03.2016 10:37:46
UweD
Hallo
Allgemein:
Range(,) verlangt 2 Zellen (also von, bis)
Range(Cells(Target.Row, 14)) ist nur eine Angabe.
Der Zweite Teil fehlt.
Range(Cells(Target.Row, 14), Cells(R,C))
Wenn du nur eine Zelle ansprechen willst, kannst du das Range() weglassen und nur mit Cells() arbeiten
Gruß UweD

AW: Range Cells
23.03.2016 10:39:20
ChrisL
Hi Erik
So...
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 9 And .Value > 0 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 6
On Error Resume Next
Application.EnableEvents = False
Cells(Target.Row, 14).ClearContents
Application.EnableEvents = True
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With
End Sub

Oder so...
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 9 Then
If .Value > 0 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 6
On Error Resume Next
Application.EnableEvents = False
Cells(Target.Row, 14).ClearContents
Application.EnableEvents = True
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End If
End With
End Sub

cu
Chris

Anzeige
AW: Range Cells
23.03.2016 10:48:22
ChrisL
Korrektur: Bei der zweiten Variante brauchst du EnableEvents nicht
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 9 Then
If .Value > 0 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 6
Cells(Target.Row, 14).ClearContents
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End If
End With
End Sub

cu
Chris

AW: Range Cells
23.03.2016 10:41:18
Werner
Hallo Erik
With Target
Cells(Target.Row, 14).ClearContents '## hier ohne Range vor Cells ##
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 6 '## Bereich A - L ##
End With
Gruß Werner

Anzeige
AW: Range Cells
23.03.2016 11:09:01
Erik
Hallo an alle !
Vielen Dank
Hat geklappt
Gruß
Erik

AW: Danke für die Rückmeldung. o.w.T.
23.03.2016 13:20:37
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige