Office: ListObject. Spalte als Bereich zuweisen?

lekcin · 5. Februar 2017

Guten Morgen,

ich möchte in einer Tabelle die Spalte 4 auf Veränderungen überwachen, bekomme allerdings immer eine Fehlermeldung.

Würde mich sehr freuen, wenn mir jemand weiterhelfen könnte. Vielen Dank.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Set tCheckRange = Sheets("TOP").ListObjects("TOP").ListColumns(4)

If Intersect(Target, Range(tCheckRange)) Is Nothing Then Exit Sub

If ActiveSheet.Name = "TOP" Then
If Cells(ActiveCell.Row, 1).Value "" And ActiveCell.Row = 1 And Cells(ActiveCell.Row, 4).Value

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 6. Februar 2017

Hallo,

bekomme allerdings immer eine Fehlermeldung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

welche denn? Hat die eine Nummer und eine Beschreibung? In welcher Zeile tritt der Fehler auf?

Wenn Du im Change-Ereignis auf die geänderten Bereiche zugreifen willst, verwende immer Target (dafür ist es da) - niemals "ActiveCell". ActiveCell kann, je nach Einstellung und Art der Bearbeitung, eine ganz andere Zelle sein!

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tCheckRange As Range, c As Range

On Error GoTo errHandler

Set tCheckRange = Worksheets("TOP").ListObjects("TOP").ListColumns(4).Range

If Not Intersect(Target, tCheckRange) Is Nothing Then
For Each c In Intersect(Target, tCheckRange)
If Me.Cells(c.Row, 1) "" And c.Value >= 1 And c.Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lekcin · 6. Februar 2017

Hallo,

Fehlermeldung: 1004

Dein Code funktioniert perfekt, vielen Dank!!!

Beste Grüße!

EarlFred · 6. Februar 2017

Hallo Beste Grüße!,

Code:

Fehlermeldung: 1004
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

immerhin 1 von 3 Rückfragen beantwortet. Forentätigkeit lehrt Demut und Genügsamkeit.

Grüße
EarlFred

lekcin · 8. Februar 2017

Hallo EarlFred,

Beschreibung: "Die Methode Range für das Objekt Workshet ist fehlgeschlagen"

Zeile: If Intersect(Target, Range(tCheckRange)) Is Nothing Then Exit Sub

Nochmals ausdrücklich vielen Dank und beste Grüße.

PS: Ich darf deinen Beitrag nicht bewerten, muss erst andere bewerten.

EarlFred · 8. Februar 2017

Hallo,

der Wille zählt - danke.

Dann kann der Fehler ja noch aufgeklärt werden:
tCheckRange ist ein Rangeobjekt. Als solches wird es direkt verwendet und nicht über Range(...) (siehe Code)

Grüße
EarlFred

Office: ListObject. Spalte als Bereich zuweisen?

ListObject. Spalte als Bereich zuweisen?

ListObject. Spalte als Bereich zuweisen?

ListObject. Spalte als Bereich zuweisen?

ListObject. Spalte als Bereich zuweisen? - Similar Threads - ListObject Spalte Bereich

ListObjects Sortiren Tabellenname Variabel

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

Sortieren eines Listobject

Array in Tabelle (Listobject) kopieren, Tabelle wird entfernt

[VBA] ListObjects in Spalte suchen und zeilennummer ausgeben

VBA ListObjects Bereich beschreiben

ListObject - Varinate A funktioniert, aber Variante B nicht?