mit VBA Kommentare eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kommentare() Dim i As Long, n As Long Dim rngC As Range Dim varCom As Variant Dim dname As String Dim dateiname As String Dim aktpfad As String Dim pfad As String Dim v n = Sheets("TN-Dat").Comments.Count i = 1 ReDim varCom(1 To n, 1 To 5) For Each rngC In Sheets("TN-Dat").Range("GS11:AGQ500").SpecialCells(xlCellTypeComments) varCom(i, 1) = Sheets("TN-Dat").Range("B" & rngC.Row).Value varCom(i, 2) = Sheets("TN-Dat").Range("C" & rngC.Row).Value varCom(i, 3) = Sheets("TN-Dat").Range("I" & rngC.Row).Value varCom(i, 4) = rngC.Address(0, 0) varCom(i, 5) = rngC.Comment.Text i = i + 1 Next Worksheets("K").Visible = True With Sheets("K") .Range("A2:G12000").ClearContents .Range("A2").Resize(n, 5) = varCom End With dateiname = "Kommentare_" dname = Format(Date, "YYYY_MM_DD") aktpfad = ThisWorkbook.Path pfad = aktpfad & "\Archiv\Kommentare\" Worksheets("K").Copy ActiveWorkbook.SaveAs pfad & dateiname & dname ActiveWorkbook.Close Worksheets("K").Visible = False End Sub

Hi Johanna
zuerst möchte ich mich bei dir entschuldigen für mein "Behnehmen" - DAS muss SO nicht sein!
(wenn du magst, kannst du dir auch diese Antwort von mir an einen anderen user durchlesen; im Kern hätt ich all das auch dir schreiben können:
https://www.herber.de/forum/messages/1879793.html ; wird das, was ich meine, nicht sofort gezeigt, dann schau dir meine Antwort von heute, um 17:14:21 Uhr an)
Also...ich hab noch immer n paar Fragen + Infos
Erst mal danke für nun doch eine Bsp-Datei.
Aber dabei scheint es sich nur um deine Zieldatei zu handeln. Und in diese willst du ja, wenn ich richtig verstanden habe,die Spalten A bis C und die zugehörigen Kommentare inklusive Zell-Adresse jeden Kommentars sichern, oder?
Ich kann deinen gezeigten Code, der übrigens sehr sauber und effizient aussieht, leider noch nicht testen/anpassen wenn erforderlich, weil uns noch ein Beispiel deiner "Quelltabelle" mit dem Namen "TN-Dat" fehlt.
Würde ich ein Blatt in deiner oder neuen Datei in "TN-Dat" umbenennen, und deinen Code starten, wäre ja das Ergebnis in Tabelle "K" = LEER, weil es ja in "TN-Dat" keine Bsp-Daten gibt.
Zum Testen würde es übrigens reichen, wenn deine zusätzliche Bsp-Datei oder Tabelle in der gleichen Datei wie "K" nur so 10 bis 20 Datenzeilen enthält.
Es ist ja egal, ob 20 oder 1000 Datenzeilen ausgelesen/übertragen werden. Dein Code wäre bei 20 Zeilen nur schneller fertig als bei 1000 :-), aber der Code macht ja immer das Gleiche.
Eine Frage noch (nur interessehalber, hat nix mit einer vielleicht-Lösung für dich zu tun)
Dein Code liest in "TN-DAT" den Zellbereich "GS11:AGQ500" aus.
WAS BITTE IST DAS DENN für eine riesige Datei? AGQ ist die 875. Spalte!!!
Hammer!
Ciao
Thorsten
...also: von vorne und auf Gutes Gelingen! :-)

Hallo Oberschlumpf,
danke für deine Antwort und für die Entschuldigung. Ich kann auch seehhr ungeduldig sein, insofern bin ich dir keineswegs böse. Deine Reaktion finde ich sehr mutig; das ist echt toll.
Jetzt zu der Datei. Scheinbar ist mein Anliegen nicht klar geworden, dadurch kam es zu dem Missverständnis. Betrachte zwei völlig unabhängige Vorgänge:
1.) aus einem bestehenden Blatt 'TN-Dat' werden alle Kommentare ausgelesen und in ein Blatt 'K' geschrieben. Dieses Blatt wird unter dem Erstell-Datum abgespeichert. Hiermit ist der erste Teil beendet. Das läuft wirklich gut, ich sichere i.d.R. wöchentlich diese Kommentare. Die komplette Datei wird morgens beim ersten Öffnen automatisch gesichert. Den Code wollte ich nur veröffentlichen, weil ich nicht immer nur Fragen stellen möchte, sondern auch mal ein Ergebnis zeigen. Vielleicht brauchts ein anderer auch mal.
2.) nun wäre es klasse, wenn ich die Daten aus K in ein neues Sheet 'TN-Dat' oder in eine komplett neue Datei mit dem Tabellenblatt 'TN-Dat' neu schreiben könnte. Die anderen Daten kann ich ebenfalls übertragen, das bekomme ich hin. Nur die Kommentare fehlen noch. Ich kann damit einen Klon der ersten Datei erstellen. Dieser Klon ist stabiler als eine Kopie. Habe ich zig-mal getestet, ist so. Excel säubert nicht korrekt den Code. Wenn du lange in der selben großen Datei arbeitest, wird die immer größer und größer. Dem wirke ich entgegen, wenn ich den Inhalt möglichst sauber in eine neue Datei einfüge. Die ist dann gut halb, max. 2/3 so groß, schneller und stabiler. Ein anderer Einsatzweck wäre die Rücksicherung. Also ich lösche alle bestehenden Kommentare in der derzeit aktiven Datei und spiele sozusagen die letzte Sicherung wieder ein.
Das hat aber alles mit dem Code und mit dem ersten Teil nichts zu tun. Die Daten könnten auch frei erfunden in dieser Liste stehen.
Ist es jetzt klarer? Benötigst du die Daten? Dann würde ich eine neue Datei mit den Fake-Namen aufbauen und ein paar Kommentare reinschreiben. Die letzte genutzte Spalte ist übrigens die CND (2396). Damit nicht genug, sie ist für derzeit 26 Kollegen freigegeben, von denen so 12-15 an normalen Tagen darin arbeiten. Die meisten Teile der Datei sind seit ca. 10 Jahren im Einsatz. Dieses Teil-Projekt, was in der Datei bearbeitet wird, läuft seit 2016, die letzte Komplett-Überarbeitung stammt vom März 2021. Und ja, dafür ist Excel eigentlich nicht gedacht, eine Datenbank wäre schneller, stabiler und überhaupt. Aber diese Entscheidung treffe nicht ich, mir obliegt nur die Pflege. Außerdem gibt es inkl. mir etliche Excel-Liebhaber, wir wollen uns gar nicht davon trennen. ;-)
Viele Grüße
Die Johanna

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit VBA Kommentare eintragen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread