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

Nur Kommentare einer bestimmten Zeile

Forumthread: Nur Kommentare einer bestimmten Zeile

Nur Kommentare einer bestimmten Zeile
27.01.2022 13:58:25
RoMo
Hallo.
ich suche verzweifelt nach einer Lösung für folgende Situation.
Ich habe eine Tabelle1 mir sehr vielen Kommentaren. Dies ist sehr unübersichtlich
Ich habe eine Userform1 mit einem Label1.
Mein Cursor steht in irgendeiner Zelle (z.B. S40)
Jetzt möchte ich beim Klicken auf Label1 nur die Kommentare haben, die in der kompletten Zeile 40 vorhanden sind.
Alle anderen Kommentare sollen ausgeblendet sein.
Vieles habe ich mit Hilfe von Euch bisher geschafft, aber hier scheitere ich mit meinem Versuchen (wieder einmal).
Vielen Dank für jeden Beitrag
Gruss RoMo
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Kommentare einer bestimmten Zeile
27.01.2022 15:27:38
Yal
Hallo RoMo,
alle Kommentar anzeigen, dann Kommentar von Zelle in Zeile x anzeigen.

Sub Test()
Kommentar_verstecken AusnahmeZeile:=7
End Sub
Sub Kommentar_verstecken(AusnahmeZeile As Long)
Dim R As Range
Application.ScreenUpdating = False
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentar verbergen
On Error Resume Next 'weil der Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
Worksheets("Tabelle1").Rows(AusnahmeZeile).SpecialCells(xlCellTypeComments).Cells.Comment.Visible = True
Application.ScreenUpdating = True
End Sub
VG
Yal
Anzeige
AW: Nur Kommentare einer bestimmten Zeile
28.01.2022 09:27:26
RoMo
Hallo Yal,
vielen Dank für Deine Hilfe, Dein Code kann ich gut gebrauchen.
Leider wird nur der erste Kommentar eingeblendet und nicht alle Kommentare in der ausgewählten Zeile.
Aber ich versuche das mal mit einer Schleife hinzubekommen.
Freue mich natürlich, wenn es hier noch einen Lösungsvorschlag dazu gibt.
Gruss RoMo
Anzeige
AW: Nur Kommentare einer bestimmten Zeile
28.01.2022 11:18:48
Yal
Hallo RoMo,
die Schleife bekommst Du mit Sicherheit hin. Problem wird es bei der potentielle Fehlermeldung, falls in der Zeile keine Zellen mit Kommentar gäbe. Da muss man von "On Error Resume Next" zu einem Sprung auf einem gegebenen Ziel nach der Schleife setzen.

Sub Kommentar_verstecken(AusnahmeZeile As Long)
Dim Z As Range
Application.ScreenUpdating = False
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentar verbergen
On Error GoTo Finally 'weil der Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
For Each Z In Worksheets("Tabelle1").Rows(AusnahmeZeile).SpecialCells(xlCellTypeComments).Cells
Z.Comment.Visible = True
Next
Finally:
Application.ScreenUpdating = True
End Sub
Wobei es wäre ja zu prüfen, ob es überhaupt notwendig wäre.
VG
Yal
Anzeige
AW: Nur Kommentare einer bestimmten Zeile
28.01.2022 11:39:56
RoMo
Hallo Yal,
ich habe das mit Hilfe Deines ersten Beitrages so gelöst:

Sub Kommentar_verstecken()
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen
On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
z = ActiveCell.Row
s = 19 'Spalte "S" ist die Spalte, ab der der folgende Code starten soll
Do While s  "" Then
Cells(z, s).Comment.Visible = True
End If
s = s + 1
Loop
End Sub
Das funktioniert hervorragend.
Nochmals vielen Dank.
Gruss RoMo
Anzeige
AW: Nur Kommentare einer bestimmten Zeile
28.01.2022 13:31:39
Yal
Hallo RoMo,
Super!
Mein Senf dazu:
_ wenn Du schon Anfang und Ende der Schleife kennst, kannst Du einen For verwenden. While ist gefährlich, weil der s = s + 1 nicht vergessen werden darf.
_ der Test Cells(z,s).Note "" liefert schon einen Boolean (True/False). Den kannst Du direkt Comment.Visible assignieren. Dann sparst Du einen If

Sub Kommentar_verstecken()
Dim s As Long
Dim z As Long
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen
On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
z = ActiveCell.Row
For s = 19 To 131 'von "S" bis "DZ"
Cells(z, s).Comment.Visible = (Cells(z, s).NoteText  "")
Next
End Sub
Und falls Du üben möchtest, Cell-Objekte zu verwenden anstatt Zeilen- und Spaltennummer

Sub Kommentar_verstecken()
Dim Z As Range
Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'Alle Kommentare verbergen
On Error Resume Next 'weil die Auswahl einer Zeile ohne Kommentar zu eine Fehler führt
For Each Z In Intersect(ActiveCell.EntireRow, Range("S:DZ")).Cells
Z.Comment.Visible = (Z.NoteText  "")
Next
End Sub
VG
Yal
Anzeige
Super Dank für die Lösung :O)))
28.01.2022 14:08:18
RoMo
Hi Yal,
Ich sage nicht Danke, ich sage WOW.
Du hast DIr echt die Zeit genommen, mein Anliegen perfekt umzusetzen.
Ich bin kein VBA'ler sondern habe Ideen, die ich in Excel mithilfe von VBA umsetzen möchte.
Dein "Senf dazu" hilft mir VBA zu lernen, Danke dafür.
Wünsche Dir ein schönes Wochenende
Gruss RoMo
Anzeige

Forumthreads zu verwandten Themen

Nur einen Teilbereich scrollen
lumpilump

Die Tabelle hat links zusammengefaßte Daten und rechts sind die näheren Details .
Kann ich ein bestimmtes Feld seperat in Excel integrieren so das ich nur dieses Feld scrolle , damit die Daten die ich rechts sehe nicht mitgescrollt werden und ich somit rechts die einzelnen Details durchscro...
27.01.2009 13:43:00
Thread-ID: 1044217
6 Beiträge
Anzeige
emails in nur eine spalte mit vielen zeilen einfüg
sebi

hallöchen leudde,
habe hier für die fortgeschrittenen wohl ein eher (hoffentlich) kleines problem.
aus einer email heraus, werden viele emailadressen in die zwischenablage kopiert. füge ich diese nun in eine excel-zelle ein, werden diese alle mit komma getrennt in einer zelle und einer...
15.06.2011 19:15:42
Thread-ID: 1218515
4 Beiträge
Anzeige
Nur bestimmten Bereich in einer UserForm scrollen
ManAtVBA

Hallo Leute,
nach vielen vielen Volltreffern hier im Forum bin ich leider doch an ein Problem gestoßen für das ich ihr im Forum keine Lösung finden konnte.
Vorweg: Ich beschäftige mich erst seit c.a 3 Wochen mit VBA, somit sind meine Kenntnisse in diesem Gebiet nicht gerade die Besten.<...
06.05.2015 15:18:58
Thread-ID: 1425009
5 Beiträge
Warum funkioniert mein Makro nur in einer Zeile
Jenny

Hallo an alle,
ich wäre euch sehr verbunden, wenn ihr mal einen Blick auf unten stehendes Makro werft.
Solange ich nur etwas in eine Zelle einfüge (Spalte E oder G) wird alles so gemacht, wie ich es mir wünsche.
Aber ist es denn auch möglich, etwas in mehrere Zellen gleichzeitig ein...
05.09.2016 15:59:08
Thread-ID: 1513035
9 Beiträge
VBA Userform vbmodless scrollen nicht möglich
Jendrik

Hi,
im Zuge meiner Arbeit habe ich aktuell ein Problem, dessen gängige Lösungsvorschläge irgendwie nicht zu helfen scheinen.
Beim Klick auf einen Button wird zunächst eine UserForm mit dem namen "frmStatus" aufgerufen. _
Diese wird als modal=False aufgerufen. Private Sub cmdCalc_C...
19.12.2016 15:21:05
Thread-ID: 1530903
3 Beiträge
Anzeige
Nur bestimmte Zellen einer Zeile löschen
Seph

Hallo Zusammen,
ich stehe seit Tagen vor einem Problem und komme nicht weiter...
Ich will in einer Datei (reduziertes Beispiel siehe Anhang) per Makro in einer Tabelle nach einer Kundennummer suchen. Wenn die Kundennummer in der vorgegebenen Spalte D irgendwo gefunden wird, sollen besti...
04.06.2018 13:10:56
Thread-ID: 1627222
5 Beiträge
Summewenn nur eine Zeile/Spalte?
hunecool

Hallo,
bin über ein (für mich) neues Problem gestolpert, und zwar bei der Verwendung der SUMMEWENN-Funktion.
Offenbar kann man anders als bei der Funktion SUMME nicht über mehrere Spalten UND Zeilen aufsummieren, sondern immer nur ein 1*x bzw. x*1 als "Summe Bereich" eingeben.
Der l...
29.03.2019 13:55:45
Thread-ID: 1684084
4 Beiträge
Anzeige
Nur Zahlen trotz Wörter in einer Zeile addieren
Holger

Hallo Zusammen,
möchte gerne bestimmte Mengen addieren, z. B. 10 Äpfel, 8 Birnen, 50 Orangen!
Die Tabelle beginnt in B4 und ist erweitert bis B100. Leider müssen die Zahlen + Wörter in einer Zeile stehen, deshalb komme ich alleine nicht weiter und bitte um Eure Hilfe.
Hoffe das ist...
11.06.2019 17:33:24
Thread-ID: 1697163
8 Beiträge
nur in einem Bereich Leerzeilen löschen
Gitte

Hallo zusammen,
ich möchte nur im Bereich Spalte B bis V alle Leerzeilen löschen. Hab schon in der Recherche probiert, aber nichts entsprechendes gefunden. Kann mir bitte jemand helfen?
Danke
Gitte
20.01.2005 15:41:45
Thread-ID: 551383
3 Beiträge
Frage zu weit nach unten gerutscht
harald

https://www.herber.de/forum/messages/646249.html
bitte nochmal die Formeln die farblich hinterlegt sind anschauen
Danke vielmals
Grüßle
Harald
05.08.2005 07:20:49
Thread-ID: 648063
5 Beiträge
Pivot - Addiert nur Wert in einer Zeile
Dobbi

Hallo Excel-Spezialisten,
muss euch mal wieder um Hilfe bitten.
Habe folgendes Problem:
Habe eine Pivot-Tabelle als Datenbasis, die über 5 Spalten reicht.
In A stehen die Kundennummern, in D die Produkte, in E die Margen.
Einige Kunden sind in A mit einer Kd.nr. gelistet, in...
23.10.2006 10:29:25
Thread-ID: 813123
3 Beiträge
per VBA zu einer bestimmten Zeile scrollen
sonja
Hallo,
ich habe eine Arbeitsmappe in der ist Spalte/Zeile D10 fixiert ist.
In C3 steht die Jahrezahl.
Per VBA soll nun zur Zeile, Tageszahl + 10, gescollt werden.
Am aktuellen Datum also:
05.01.2007: Tageszahl 5 + 10 = scrollen zu Zeile 15
28.02.2007: Tageszahl 59 + 10 = sc...
22.01.2007 19:46:04
Thread-ID: 839842
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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