Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Kommentare im Druckbereich zählen

VBA Kommentare im Druckbereich zählen
06.04.2023 13:33:05
Joschi Witchcraft

Hallo Forum,

mit "ActiveSheet.Comments.Count" kann ich prüfen, ob auf dem Tabellenblatt Kommentare vorhanden sind.

WIe kann ich prüfen, ob innerhalb des Druckbereichs Kommentare vorhanden sind?

Meine Versuche:

Debug.Print Range(ActiveSheet.PageSetup.PrintArea).Comments.Count
Debug.Print ActiveSheet.PageSetup.PrintArea.Comments.Count

Gruß Joschi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Kommentare im Druckbereich zählen
06.04.2023 14:06:34
GerdL
Moin Joschi!

Sub Unit()

    Dim X As Range, Y As Range, a As Long
    
    With ActiveSheet
        If .PageSetup.PrintArea > "" Then
            Set X = .Cells.SpecialCells(xlCellTypeComments)
            Set Y = .Range(.PageSetup.PrintArea)
            If Not X Is Nothing And Not Y Is Nothing Then
            If Not Intersect(X, Y) Is Nothing Then
                a = Intersect(X, Y).Count
            End If
            End If
        End If
    End With

    MsgBox a

End Sub
Vielleicht gehts einfacher.
Gruß Gerd

Anzeige

41 Forumthreads zu ähnlichen Themen

Kommentar im Code farbig drucken
siegfried

Hallo zusammen,
ich habe zwei Fragen.
1. Wenn ich in einem Code mit vorangestelltem Hochkomma einen Kommentar schreibe, ist dieser hellgrün unterlegt. Wenn ich den Code ausdrucke, wird dieser aber in schwarz gedruckt.
Wie kann ich erreichen, dass auch der Kommentar hellgrün ausgedr...
09.05.2012 01:03:22
Thread-ID: 1262843
5 Beiträge
Anzeige
einzelne Kommentare im VBA-Code optisch hervorheb.
Susann

Hallo Leute,
da mein VBA-Code sehr lang ist, möchte ich bestimmte Kommentare optisch hervorheben, quasi wie kleine Zwischenüberschriften gestalten.
Am liebsten hätte ich das über eine Farbänderung von standard-grün auf rot (bei ausgewählten Kommentaren) gemacht, aber wie euch bekannt is...
04.04.2014 09:38:57
Thread-ID: 1356098
2 Beiträge
Zellen per VBA farbig markieren - Hilfe beim code
toteitote
Hi, ich habe die Grundlage von dem code von 'stackoverflow' kopiert und möchte ihn nun praktisch utilisieren. Leider komme ich nicht weiter und hoffe mir kann geholfen werden...
http://www.pic-upload.de/view-24541374/Excel-VBA-Anwendung.jpg.html
http://www.pic-upload.de/view-24541459/VBA-C...
08.09.2014 20:28:08
Thread-ID: 1380518
8 Beiträge
Anzeige
Bild im Kommentar per VBA Problem
Jürgen

Hallo Leute
Ich hab seit 3 Jahren einen Coder mit dem ich Automatisch ein Bild in ein Kommentarfeld einfüge und an einen fixen Ort abspeichern lasse.
Seit ich Office 365 habe geht das aber nicht mehr er macht mir ein Kommentar Speichert das auch aber das Bild wird nicht eingefügt sonder...
11.01.2017 14:12:24
Thread-ID: 1534425
6 Beiträge
Code im Tabellenmodul erzeugen über VBA
Ron Andres

Hi,möchte im Klassenmoduls eines Tabellenblattes über eine Prozedur Code erzeugen! funktioniert aber nicht richtig.
Ich starte diese Prozedur aus einer anderen!Hier der Code:Public Sub Code_erzeugen()
'On Error Resume Next
Dim wks As Worksheet, wkb As Workbook
Application.Di...
11.11.2002 16:54:42
Thread-ID: 179883
2 Beiträge
Schriftfarbe über VBA-fehler im Code
Andi_H

hi zusammen,
ich habe ein Problem mit folgendem Code:Sub faerben1()
Dim i As Integer, x As Integer
Dim zz As Variant
zz = Sheets("zz").Cells(3, 1).Value
Sheets(1).Select
'spalten
For i = 4 To 13 Step 3
' zeilen
For x = 12 To 41
If IsNumeric(Cells(x, i)) Then
Wit...
23.05.2003 10:46:54
Thread-ID: 260671
7 Beiträge
Kommentare im Source-Code automatisch entfernen
Richard M.

Hallo,
hat jemand schon mal irgendwo ein Tool gesehen, welches aus dem VBA-Quellcode alle Kommentare automatisch entfernt?

Danke für jegliche Hinweise

Richard
09.07.2003 12:46:41
Thread-ID: 278836
2 Beiträge
Löschen von Leerzeilen u. Kommentaren im Code
Leerzeilen

Hallo zusammen,
nachdem ich mir jetzt den Wolf gesucht hab und nix gefunden hab´, möchte ich jetzt euch mal fragen:
Ich hab mal ein Tool gefunden (und leider wieder gelöscht!!!) das den VBA Code bereinigt. D.h. Leerzeilen, Kommentare usw. rausschmeißt. Auf Freeware.de hab ich auch was N...
12.01.2005 23:29:42
Thread-ID: 546303
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
1
7
19
5
1
6
1
5
6
3
3
10
1
4
3
2
1
7
19
5
2
7
4