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

Mehrere markierte Zellinhalte in EINEN Kommentar

Forumthread: Mehrere markierte Zellinhalte in EINEN Kommentar

Mehrere markierte Zellinhalte in EINEN Kommentar
17.08.2017 10:56:07
Dieter(Drummer)
Guten Tag VBA Spezialisten,
ich suche einen Code, der den Inhalt von mehreren markierten Zellen, in ein und denselben Kommentar (außerhalb der markierten Zellen), einfügt.
Ist das zu machen und wie wäre der Code?
Bei Recherchen konnte ich nicht fündig werden.
Gruß, Dieter(Drummer)
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere markierte Zellinhalte in EINEN Kommentar
17.08.2017 11:07:43
ChrisL
Hi Dieter
Sub Makro1()
Dim c As Range, s As String
With Range("A1")
.Comment.Delete
.AddComment
.Comment.Visible = True
For Each c In Selection
If c  "" Then s = IIf(s = "", c, s & Chr(10) & c)
Next c
.Comment.Text Text:=s
End With
End Sub

cu
Chris
Anzeige
AW: Mehrere markierte Zellinhalte in EINEN Kommentar
17.08.2017 11:31:10
Dieter(Drummer)
Hallo Chris,
danke für so schnelle, prima Lösung.
Ist es auch möglich, wenn z.B. mehrere Spalten markiert sind, das der Inhalt dann auch in Spalten im Kommentar eingefügt wird.
Bespiel: Markiert ist A1 bis C3. Dann sollen die Inhalte im Kommentar, links Inhalte aus A, dann daneben B und dann daneben C, eingefügt werden. D.h. nach Spalten und Zeilen.
Wäre schön, wenn das auch möglich wäre.
Gruß und nochmal danke für bisherige, gute Lösung,
Dieter(Drummer)
Anzeige
AW: Mehrere markierte Zellinhalte in EINEN Kommentar
17.08.2017 12:59:14
ChrisL
Hi Dieter
Einen Kommentar als Tabelle formatieren geht natürlich nicht, aber probiere mal...
Sub t()
Dim c As Range, s As String, r As Long, x As String, ar As Variant
With Range("A1")
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Visible = True
If Selection.Cells.Count = 1 Then
s = Selection
ElseIf Selection.Columns.Count = 1 Then
s = Join(Application.Transpose(Selection), Chr(10))
Else
For r = Selection.Row To Selection.Row + Selection.Rows.Count - 1
ar = Application.Transpose(Range(Cells(r, Selection.Column), _
Cells(r, Selection.Column + Selection.Columns.Count - 1)).Value)
x = Join(Application.Transpose(ar), ";")
s = IIf(s = "", x, s & Chr(10) & x)
Next r
End If
.Comment.Text Text:=s
End With
End Sub

cu
Chris
Anzeige
AW: Danke Chris, das ist schon prima Lösung ...
17.08.2017 13:14:58
Dieter(Drummer)
... mit der ich gut leben kann.
Herzlichen Dank und
Gruß, Dieter(Drummer)
Das ist für Kommentare nicht vorgesehen ...
17.08.2017 13:01:23
Luc:-?
…(dafür gibt's anderes), Dieter,
müsste also künstlich, zeilen-/spaltenweise Kombi mit Leerzeichen (bzw Tabs?), erzeugt wdn.
Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: Danke für Hinweis Luc :-? ...
17.08.2017 13:10:11
Dieter(Drummer)
... und Gruß, Dieter(Drummer)

Forumthreads zu verwandten Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Anzeige
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
mehrere Befehle in einen Blatt
Werner

Hallo zusammen,
ich habe folgendes Problem. In einen Tabellenblatt habe ich sehr viele Makros, bei Befehlschaltflächen ist das kein Problem, jedeoch habe ich mehrere(über 100) Private Sub Worksheet_Calculate() es kommt eine Fehlermeldung Mehrdeutiger Name. Wie könnte man das Problem Lösen?...
08.01.2009 22:18:00
Thread-ID: 1038059
3 Beiträge
Werte aus 4 zellen in einer zusammenfassen
Frank

Hallo schon wieder!
Ich stehe heute auf dem Schlauch, kann mir einfach nicht selber helfen!
Kann ich die Werte aus den Zellen A6, B6, C6, D6 in eine Zelle zusammenführen und dabei sollte darauf geachtet werden, dass immer ein Leerzeichen zwischen den einzelnen Werten entsteht?
Ich h...
23.01.2009 22:16:00
Thread-ID: 1043191
5 Beiträge
mehrere Zellen in einer einfügen
Claus

Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1...
27.01.2009 18:00:00
Thread-ID: 1044333
2 Beiträge
Mehrere Excel Dateien in einer kombinieren
Diego

Hey an alle,
kann mir vielleicht irgendeiner sagen wie ich mehrere Excel Dateien in einer kombiniere, also ich möchte dass ich eine datei aufmache dann eine Art "LOAD"-Button habe, der dann aus einem festen Ordner die Excel Dateien aufmacht und die ganzen Tabs rauskopiert und in diese eine...
13.02.2009 15:33:00
Thread-ID: 1050560
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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