Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kommentar fortlaufend nur 10 zeilen

kommentar fortlaufend nur 10 zeilen
29.04.2008 11:34:00
chris
Hallo guten morgen,
ich für per Makro kommentare in zellen ein.
ich möchte das es mir immer nur 10 zeilen in den Kommentar einfügt und dann wieder die älteste Zeile löscht ud durch eine neue ersetzt.
Aber ich weiß nicht wie ich es auslesen kann wie viele zeilen mein Kommentar aktuell hat.
Würde mich sehr über Hilfe freuen.
Vielen dank
Hier ist mein Code mit dem ich die Kommentare einfüge.
Vielen dank an alle !!!
If was = "" Then
Alt_Kommentar = ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text
Neu_Kommentar = Alt_Kommentar & Chr(10) & "Eintrag gelöscht von " & Environ("Username") & " am " & Date & " " & Time
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text Text:=Neu_Kommentar
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Shape.TextFrame.AutoSize = True
Else
Alt_Kommentar = ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text
Neu_Kommentar = Alt_Kommentar & Chr(10) & "Eintrag angelegt von " & Environ("Username") & " am " & Date & " " & Time
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text Text:=Neu_Kommentar
ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Shape.TextFrame.AutoSize = True
End If

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kommentar fortlaufend nur 10 zeilen
29.04.2008 11:59:00
chris
erledigt.
Habe es so gelöst.
Danke
'Prüfen wie viele zeilen der aktuelle kommentar hat
test = ThisWorkbook.ActiveSheet.Cells(zeile, Spalte - 1).Comment.Text
ok = False
Start = 1
y = 0
Do While ok = False
wo = InStr(Start, test, Chr(10))
If InStr(Start, test, Chr(10)) >= 1 Then
y = y + 1
Start = wo + 1
Else
ok = True
End If
Loop
")
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige