Worksheet_SelectionChange
28.05.2020 11:39:15
Stefanie
ich habe folgendes Problem, ich möchte wenn was in der Tabelle geändert wird automatisch _ folgenden VBA auslösen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Workbook(1).Zellenfarbe
Call Workbook(1).KommentareDokumentieren
End Sub
(Im Workbook (Diese Arbeitsmappe) sind dies folgende Befehle:
Public Sub Zellenfarbe()
Dim Zelle As Range
With ActiveSheet
For Each Zelle In .UsedRange.SpecialCells(xlCellTypeComments)
Zelle.Interior.ColorIndex = 38
Next
End With
End Sub
Public Sub KommentareDokumentieren()
Dim Tabkom As Worksheet
Dim Blatt As Worksheet
Dim Notiz As Comment
Dim zeile As Long
zeile = 1
For Each Blatt In ActiveWorkbook.Worksheets
For Each Notiz In Blatt.Comments
Worksheets("Kommentare").Cells(zeile, 1).Value = Notiz.Parent
Worksheets("Kommentare").Cells(zeile, 2).Value = Notiz.Text
zeile = zeile + 1
Next Notiz
Next Blatt
Columns("A:BH").AutoFit
End Sub
Nun bekomme ich aber immer wieder:
Fehler beim Kompilieren:
Sub oder Function nicht definiert
Und er markiert mir die obere Zeile gelb
Ich habe es auch schon hiermit versucht, leider ohne Erfolg
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A:BH")) Is Nothing Then Exit Sub
Call Workbook(1).Zellenfarbe
Call Workbook(1).KommentareDokumentieren
End Sub
Ich bin langsam echt am Verzweifeln, ich hoffe ihr könnt mir weiterhelfen.
Danke und liebe Grüße
Steffi
Anzeige