Laufzeitfehler 1004
30.01.2022 20:08:37
A.Kremer
ich hatte folgende Idee:
In dem ersten Tabellenblatt befindet sich die Ausgangstabelle.
In den anderen Tabellenblättern befindet sich die gleiche Tabelle mit verschiedenen Änderungen.
Über die bedingte Formatierung und das folgende Makro sollen die Änderungen hervorgehoben werden und ein Kommentar an dem veränderten Feld mit dem Wert der Zelle der Ausgangstabelle erscheinen. Also bspw. Feld A1 in der Ausgangstabelle hat den Wert "P1", nun hat Feld A1 in einem anderen Tabellenblatt den Wert "P2". Die bedingte Formatierung färbt nun das Feld A1 in dem anderen Tabellenblatt rot ein. Das Makro erstellt an dem Feld einen Kommentar mit dem Inhalt "P1". Das Makro bezieht somit den Text für den Kommentar aus dem Feld der Ausgangstabelle.
Ich würde nun gerne ganze Tabellen vergleichen. Mein Problem tritt nach den ersten paar Markierungen auf, dann erscheint der Laufzeitfehler 1004 Anwendungs- und Objektdefinierter Fehler.
Sub Laeufer()
Dim intZeile As Integer
Dim intSpalte As Integer
ActiveSheet.Cells(1, 1).Select
For intSpalte = 1 To 12
For intZeile = 1 To 30
If Cells(intZeile, intSpalte).DisplayFormat.Interior.Color = RGB(255, 179, 179) Then
With Cells(intZeile, intSpalte)
.AddComment
.Comment.Text Text:=ThisWorkbook.Worksheets("base table").Cells(intZeile, intSpalte).Value
.Comment.Visible = False
End With
End If
Next intZeile
Next intSpalte
End Sub
Vielen Dank und viele Grüße,
A. Kremer