Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1964to1968
1964to1968
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt nach Kommentar durchsuchen

Forumthread: Tabellenblatt nach Kommentar durchsuchen

Tabellenblatt nach Kommentar durchsuchen
28.02.2024 14:27:36
DieterG
Hallo Excelspezialisten,

ich bräuchte mal wieder euere Hilfe.

Wie lässt sich mit einem Makro ein Tabellenblatt z.B. Tabelle1 nach Kommentaren durchsuchen und diese löschen?
Falls kein Kommentar gefunden wird, soll eine entsprechende Meldung "Kein Kommentar vorhanden." ausgegeben werden.

Danke schon mal im Voraus!

VG Dieter
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 14:34:01
Alwin Weisangler
Hallo Dieter,

beispielhaft so: 


Sub KommentarRaus()

	Dim cell As Object

    With Tabelle1

        For Each cell In Range("rng_Eintrag").Cells

            If Not cell.Comment Is Nothing Then cell.Comment.Delete

        Next

    End With

end sub

Löscht alle Kommentare aus dem Tabellenblatt mit dem Modulnamen Tabelle1.

Gruß Uwe
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 15:04:37
Piet
Hallo

setze bitte vor deinen Löschcode diese Auswertung für Null Kommentare.

mfg Piet 



Sub test()

On Error Resume Next

Zahl = Cells.SpecialCells(xlCellTypeComments).Count

If Zahl = 0 Then

   MsgBox "Keine Kommentare vorhanden!", vbInformation

   Exit Sub

End If



On Error GoTo o

'hier steht dein Code zum löschen

End Sub
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 16:01:12
daniel
Hi

ist die Meldung, dass keine Kommentare vorhanden sind, wichtig?
wenn nein, kannst du auch einfach so löschen: 
Sheets("Tabelle1").Cells.ClearComments


von Hand über den Menübefehl: Start - Bearbeiten - Löschen - Kommentare

Gruß Daniel
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 16:54:56
DieterG
Hallo Daniel,

danke für deinen Beitrag, aber >> wenn schon VBA dann richtig.

VG
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 13:51:15
daniel
ja, natürlich.
aber was ist deiner Meinung nach an Sheets("Tabelle1").Cells.ClearComments kein "richtiges" VBA ?
nur weil man diesen Befehl auch über das Menü ausführen kann, ist er doch immer noch ein VBA-Befehl.
Sorry, ich verstehe deinen Einwand nicht.
was fehlt noch?
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 14:24:24
DieterG
Alles gut!
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 14:56:22
daniel
Entschuldige bitte.
ich wusste nicht, dass du gerne mal Unsinn schreibst.
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 16:18:54
DieterG
Hast Du eigentlich sonst keine Probleme.
Können wir das jetzt mal gut sein lassen.
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 17:40:45
daniel
ich habe das Problem, dass ich deinen Einwand nicht verstehe.
kannst du mir erklären, was du mit dem " aber >> wenn schon VBA dann richtig. " gemeint hast und warum du das geschrieben hast?
ich hätte ja Einwände wie "ja aber ich möchte gerne die Meldung haben wenn keine Kommentare vorhanden sind" verstanden, aber diesen nicht.
aber ich würde ihn gerne verstehen. Das ist gerade mein Problem.
Sollte es ein Witz sein? Sorry, aber dann verstehe ich die Pointe nicht.
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 17:53:22
Oberschlumpf
Daniel, dein Code reagiert aber nich, wenn im Blatt NULL Kommentare enthalten sind - in dem Fall hätte Dieter gern einen entspr. Hinweis....und vllt ist es ja das, was Dieter meinte - aber ok, auch wenn meine Vermutung vllt richtig ist, hatte Dieter sich diesbzgl sehr ungenau ausgedrückt...nun denn, trotzdem: Dein Code liefert keine MsgBox.
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 18:04:31
daniel
dann hat sich Dieter aber seeeeeeeeeeeeeeeeeeeehr ungenau ausgedrückt.
die Messagebox hat er nicht erwähnt. (auch wenn viele Fragesteller das annehmen, nur weil man ein paar Grundkenntnisse in Excel und VBA hat, kann man immer noch nicht hellsehen)
das mein Code einfach nur löscht und keine Meldung ausgibt, hatte ich ja explizit geschrieben.
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
29.02.2024 19:05:58
DieterG
Nur um die Sache richtig zu stellen.
Ich habe bei Uwe nachdem er seinen Code einbestellt hat, die Frage gestellt:

> Lässt sich vielleicht noch ein Hinweis (MsgBox) einbauen, falls kein Kommentar vorhanden ist.

Bis bald.
AW: Tabellenblatt nach Kommentar durchsuchen
01.03.2024 07:04:48
Oberschlumpf
unabhängig oder nicht, ob seeehr ungenau beschrieben - du hast ähnlich ungenau gelesen...nur mal so zu deiner Info ;-)
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 15:19:37
DieterG
Hallo Piet,

ich musste in deinem Code in der Zeile >> On Error GoTo o das o durch eine 0 ersetzen. - Jetzt funktionierts.

Danke für die Hilfe
VG Dieter

AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 14:38:13
Alwin Weisangler
Natürlich werden die Kommentare nur im vorher definierten Bereich "rng_Eintrag" gelöscht.
Man kann natürlich den Range als Spalten und Zeilenbereich festlegen: Range("A2:D100").

Gruß Uwe
Anzeige
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 14:49:23
DieterG
Hallo Uwe,

lässt sich vielleicht noch ein Hinweis (MsgBox) einbauen, falls kein Kommentar vorhanden ist.

VG
AW: Tabellenblatt nach Kommentar durchsuchen
28.02.2024 15:07:08
Alwin Weisangler
oder so: 


Sub KommentarRaus()

	Dim cell As Object, keinKommentar as Boolean

    With Tabelle1

        For Each cell In Range("A2:A100").Cells

            If Not cell.Comment Is Nothing Then 

				cell.Comment.Delete

				keinKommentar = True

			end if

        Next

    End With

	If keinKommentar = False Then MsgBox "Es wurde kein Kommantar gefunden"

end sub


Gruß Uwe
Anzeige
;

Forumthreads zu verwandten Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Zahlenfolge suchen und in neue Tabelle kopieren
Günter

Hallo,
ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
04.12.2008 00:39:00
Thread-ID: 1030003
4 Beiträge
Anzeige
Begriffe in Datenbank suchen / Userform und dropdw
Lötschy

Guten Abend zusammen
In einer mittlerweilen recht grossen Excel - Arbeitsmappe hab ich unzählige Tabellenblätter
Auf diesen Tabellenblätter werden verschiedenste Begriffe / Abkürzungen / Namen etc. gespeichert und zusammengefasst.
Beispiel:
In der Arbeitsmappe gibts ein Tabellen...
21.01.2009 18:08:00
Thread-ID: 1042343
16 Beiträge
Datensätze suchen und löschen / Kopieren
Holger

Hi,
ich möchte gerne folgendes per Makro erledigen:
Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder bess...
31.01.2009 10:51:00
Thread-ID: 1045602
6 Beiträge
Anzeige
Doppelte Inhalte suchen und kopieren
Joachim

HI,
ich habe eine Tabelle mit verschiedenen Einträgen in Spalte B. Diese habe ich seither farblich markiert (Spalte B) :
Dim lngRow As Long
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
Dim I As Integer, xx As Integer
Dim szCompare As String
For I = 5 To lngRow
szCom...
08.02.2009 13:07:42
Thread-ID: 1048280
8 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Text durchsuchen und Teile herauskopieren
Andy

Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
17.03.2009 20:40:05
Thread-ID: 1061211
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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