Office: Liste mit Zelladressen auf Änderung überwachen.

Hallo,
ich brauche mal dringend eure Hilfe ...
Habe ein Tabellenblatt "Zellenliste" in dieser stehen in Spalte A Zelladressen
A3
A4
A5
B2
...
..
In einem Anderen Blatt ("Formeln") stehen in den Kommentaren dieser Zellen Formeln.
Ich muß die Formeln überschreiben können und wenn ich den Inhalt lösche, soll die Formel aus dem jeweiligen Kommentar in die Zelle kopiert werden. (Die Sache mit den Farben ist unwichtig).
Soweit funktioniert der Code auch.
ABER, die Zeile: Code:

ist doof, weil sie den überwachten Bereich statisch angiebt.
Kann man das irgendwie von der "Zellenliste" abhängig machen?
Hier ist der entsprechende Code:
Code:

Für Hilfe wäre ich sehr dankbar
Gruß Jörg

:)

 

LoZeile=ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Not Application.Intersect(Target, Range("A2:B" & LoZeile)) Is Nothing Then

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Jörg,

wie viele Zeilen hat die Liste in "Zellenliste"? Ab welcher Zeile beginnt die Liste?

 

Wow, seit ihr schnell, vielen Dank!!
@Hajo Mit der Lösung überwache ich aber das gesamte Blatt und das kann groß werden. Wird die Sache dadurch nicht extrem träge?

@Nepumuk die Liste beginnt bei A2 und endet flexibel

 

ja wenn die Zeile 10485765 belegt ist.
Du solltest nach der Letzten zeile dier Zeile markieren, Strg, Umschalt und Pfeil untenm, Löschen und speichern.

 

Hallo,

meinst du so?

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long

If Target.Column < 3 Then
loLetzte = Cells(Rows.Count, "A").End(xlUp).Row
If Not Application.Intersect(Target, Range("A2:B" & loLetzte)) Is Nothing Then
Application.EnableEvents = False
For Each Z In Target
If Not Z.Comment Is Nothing Then
If Z.Value = "" Then
Z.Formula = Z.Comment.Text
Range(Target.Address).Offset(0, 2).Interior.ColorIndex = xlNone
Else
Range(Target.Address).Offset(0, 2).Interior.Color = RGB(255, 175, 33)
End If
End If
Next Z
Application.EnableEvents = True
End If
End If
End Sub


 

Hallo Jörg,

teste mal:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strTemp As String
Dim objRange As Range, objCell As Range
With Worksheets("Zellenliste")
strTemp = Join(Application.Transpose(.Range(.Cells(2, 1), _
.Cells(.Rows.Count, 1).End(xlUp)).Value), ",")
End With
Set objRange = Application.Intersect(Target, Range(strTemp))
If Not objRange Is Nothing Then
Application.EnableEvents = False
For Each objCell In objRange
If Not objCell.Comment Is Nothing Then
If IsEmpty(objCell.Value) Then
objCell.Formula = objCell.Comment.Text
objCell.Offset(0, 2).Interior.Pattern = xlPatternNone
Else
objCell.Offset(0, 2).Interior.Color = RGB(255, 175, 33)
End If
End If
Next objCell
Set objRange = Nothing
Application.EnableEvents = True
End If
End Sub

 

\@Werner

Ne, nicht ganz. In der Zellenliste stehen die einzelnen Zellen, z.B.:
A3
A4
A5
B2
A7
C3
B1

dann muß der Bereich A1:C7 überwacht werden.

@Hajo Das Problem ist, das da einige "nicht Profis" mit arbeiten und da weiß ich nicht, ob die mir den Bereich dann nicht doch auf riesengroß verstellen

 

Hallo Jörg,

stehen dann alle Zelle im Bereich in der Liste? Also so:

Arbeitsblatt mit dem Namen 'Tabelle1'
*	A
1	Liste
2	A1
3	A2
4	A3
5	A4
6	A5
7	A6
8	A7
9	B1
10	B2
11	B3
12	B4
13	B5
14	B6
15	B7
16	C1
17	C2
18	C3
19	C4
20	C5
21	C6
22	C7

 

exakt, genau so, allerdings nicht unbedingt sortiert.
Kann also sein, das in Deiner Liste an dritter Stelle ein Z200 steht.

Was hier bedeutet, das A1:Z200 überwacht werden muß
Dein Code klappt nicht, funktioniert nur in Spalte "A"

 

Hallo Jörg,

wenn es nicht zu viel Zeilen sind sollte mein Makro das machen.

 

hm, laut debugger steht die Liste in strTemp, aber beim Löschen des Inhalt's in B10 springt er von:
Code:

gleich zum end if.

 

Hallo Nepumuk,

ist das Limit von max 256 für den Range-Paramater erweitert worden?

Edit: ne, das besteht immer noch.

 

Die Zellenliste hat aktuell nur 10 Einträge und die letzte eingetragene Zelle ist B19.
Das Formelblatt ist auch nicht größer. Bin ja noch in der Testtabelle.
Irgendwas am Range Parameter habe ich nicht geändert. Weiß gar nicht was das ist

 

Hallo Jörg,

lade mal die Zeilenliste hoch.

@xlph 2.0

nicht dass ich wüsste. Darum auch die Frage nach der Anzahl der Zeilen in der Liste auf die ich keine Antwort bekomme.