Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
18.04.2024 15:00:48
Datum als Datum sehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare zusammenfügen

Kommentare zusammenfügen
05.02.2019 15:37:52
Bend
Hallo zusammen,
ich habe da mal ein kleines Problem. Meist konnte ich durch die guten Beiträge schon Lösungsmöglichkeiten finde, heute komme ich aber nicht so weiter.
Folgendes Problem:
Ich habe drei identisch aufgebaute Tabellenblätter.
Werk1, Werk2, Gesamt
Werk1 und Werk2 werden von mir mit Daten bearbeitet inkl. Kommentare und Gesamt ist die Summe daraus.
Jetzt ist es so das in Werk1 und Werk2 jeweils unterschiedliche Kommentare stehen, mal in beiden, mal nur in einer oder auch keine Kommentare, die ich am Ende dann aufwendig in das Blatt Gesamt wieder zusammenfügen muss.
Das kann man doch bestimmt auch via Marko lösen, oder?
Durchsuche Bereich D10:100 in Werk1 und Werk2 und wenn
Werk1 mit Kommentar, Werk2 ohne = schreibe Kommentar aus dem Blatt Werk1 in die gleiche Zelle vom Blatt Gesamt
Werk1 ohne, Werk 2 mit = schreibe Kommentar Werk2 in die gleiche Zelle vom Blatt Gesamt
Werk1 mit, Werk2 mit = füge beide zu einem Kommentar zusammen in die gleiche Zelle vom Blatt Gesamt
wenn in beiden kein Kommentar dann einfach weiter zum nächsten.
Könnt ihr mir weiterhelfen...
Grüße
Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare zusammenfügen
05.02.2019 16:11:37
Bernd
Servus Namensvetter,
sind es wirklich "Kommentare" oder nur "Zellen mit Kommentierung"?
Lade bitte eine Beispieldatei mit Fakedaten und deinem Wunschergebnis hoch, damit man sieht wo die Kommentare stehen und wie sie zusammengefügt werden sollen.
Grüße, Bernd
AW: Kommentare zusammenfügen
05.02.2019 16:13:26
Beverly
Hi Bernd,
unter der Voraussicht, dass in Tabelle "Gesamt" keine Kommentare vorhanden sind: 

Sub Kommentare()
Dim lngZeile As Long
Dim strZusammen As String
For lngZeile = 10 To 100
If Not Worksheets("Werk1").Cells(lngZeile, 4).Comment Is Nothing Then _
strZusammen = Worksheets("Werk1").Cells(lngZeile, 4).Comment.Text
If Not Worksheets("Werk2").Cells(lngZeile, 4).Comment Is Nothing Then
If strZusammen = "" Then
strZusammen = Worksheets("Werk2").Cells(lngZeile, 4).Comment.Text
Else
strZusammen = strZusammen & vbLf & _
Worksheets("Werk2").Cells(lngZeile, 4).Comment.Text
End If
End If
If strZusammen  "" Then Worksheets("Gesamt").Cells(lngZeile, 4).AddComment _
Text:=strZusammen
strZusammen = ""
Next lngZeile
End Sub

Andernfalls musst du das noch in einer If-Anweisung prüfen.

Anzeige
AW: Kommentare zusammenfügen
08.02.2019 14:09:23
Bernd
Hallo Beverly,
sorry für die späte Rückmeldung.
Genauso hatte ich mir das gedacht. Hat super geklappt.
Ich habe mir nur noch zusätzlich eine kleine Schleife eingebaut, damit nicht nur Spalte D (4) durchsucht wird, sondern bis Spalte Z alle durchlaufen werden.
Besten Dank für die schnelle Hilfe.
Gruß
Bernd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige