mit VBA Kommentare eintragen

Die · 2022-04-15T15:23:29+00:00

Hallo, mit Hilfe dieses Forums (DANKE) habe ich ein Makro erstellt, dass Kommentare aus einer Tabelle ausliest und in eine Sicherungsdatei schreibt. Hintergrund ist, dass öfters Texte 'verschwunden' sind; beim Neustart waren die Kommentare nicht mehr vorhanden. Ein Problem, das auch von anderen Usern berichtet wird. Das Makro läuft, soweit ich das beurteilen kann, einwandfrei. In dem gesicherten Bereich habe ich derzeit ca. 8.400 Kommentare stehen. Nun meine Bitte: gibt es eine Möglichkeit, diese gespeicherten Daten auch wieder in diese oder eine neue Tabelle reinzuschreiben? Quasi eine Rücksicherung der gespeicherten Kommentare? Bei der Sicherung wird ja die Adresse (in der Form 'A1') in eine Spalte und der unformatierte Kommentartext in eine andere Spalte geschrieben. Die Adresse könnte man ja auseinander reißen, um Spalte und Zelle als getrennte Information zu erhalten. Dann müsste mit einer Schleife Zeile für Zeile in die Tabelle eingesetzt werden. Meine Versuche sind leider alle gescheitert. Die Schleife und die Zuordnung funktionierten einfach nicht. Danke für Hinweise Viele Grüße schickt Die Johanna P.S. Eigentlich wollte ich den Code hier reinschreiben. Beim hochladen steht dann aber immer "html" (ohne Auf- u. Abstrich) auf der sonst leeren Seite, abgeschickt wird es nicht. Hat jemand eine Idee, warum das nicht klappt?

Hallo, was soll denn ein Upload bringen? Ich habe eine Excelliste, in denen auf einem Tabellenblatt 'K' ca. 8400 Zeilen wie folgt aussehen:
Spalte A: Name
Spalte B: Vorname
Spalte C: Kundennr.
Spalte D (ab hier wird es interessant): Adresse im Format 'A1'
Spalte E: Inhalt des Kommentars
Beispiel (Spalte A, B, C ist unerheblich):
Spalte D: OH115
Spalte E: Die Johanna: Kunde ruft an und meldet sich krank. AU angefordert.
Es macht nun m.E. wenig Sinn, mir 8.400 neue, datenschutzkonforme Texte auszudenken.
Mein Wunsch wäre, dass ein Makro in einem anderen Tabellenblatt 'TN-Dat' in Zelle OH115 ein Kommentar anlegt, in dem 'Die Johanna: Kunde ruft an und meldet sich krank. AU angefordert." reingeschrieben wird. Dann springt das Makro auf die nächste Zeile, in der eine andere Adresse mit einem anderen Text angelegt wird.
Ist es so verständlich? In der Liste steht sonst nichts, man kann da keine einzige Formel nachvollziehen, weil ja nur die Daten eines anderen Prozesses dort abgelegt.
Danke für Hilfe
Die Johanna
Hier das Makro, was die Kommentare speichert:


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

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

Forumthread: mit VBA Kommentare eintragen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

mit VBA Kommentare eintragen

Forumthread: mit VBA Kommentare eintragen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread