Kommentare Spalte für Spalte auslesen lassen
28.06.2016 21:31:11
René
ich habe in einem Sheet folgende Prozedur, welche mir alle Kommentare von Zellen ausliest und als Liste unter einem Dienstplan ausgibt. Dabei geht Excel so vor, das er Zeile für Zeile prüft und den Kommentar ausgibt.
Kann man dies ändern, so dass immer Spalte für Spalte geprüft wird, so dass eine spätere Sortierung entfallen kann?
Das der Code nicht zu lang wird, habe ich nur das erste Quartal stehen lassen.
Sub KommentareAuslesen()
Dim note As Comment
Dim tbl As Worksheet
Dim intZ As Integer
Dim letzteZeile As Integer
Application.EnableEvents = False
'suche den Eintrag "Mitarbeiteranzahl" und gehe zwei Zeilen nach oben;
intZ = Range("B:F").Find("Mitarbeiteranzahl").Row + 3
Range(Cells(intZ, 2), Cells(300, 379)).ClearContents
Set tbl = ActiveSheet
For Each note In tbl.Comments
Select Case Cells(4, 2).Value
Case Is = "Januar"
If note.Parent.Column >= 8 And note.Parent.Column = 39 And note.Parent.Column = 70 And note.Parent.Column