Datum

Titel

24.04.2024 09:53:18

Wartungsliste automatisch aktualisieren

24.04.2024 09:36:02

Wenn Wert x in Zelle a, dann Wert y in Zelle b

24.04.2024 09:24:20

Textketten erstellen mit unterschiedlichen Anzahl an Feldern

24.04.2024 09:04:14

Erfahrung Umstieg in Sharpoint

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

992to996

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Kommentar Eintrag löschen und einrücken

Forumthread: Kommentar Eintrag löschen und einrücken
4 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

23.07.2008 08:18:24

Martin

Hallo Gemeinde,
habe ein Kommentarfeld, mit dem Inhalt:
"Hallo" & Chr(10) & "das" & Chr(10) & "ist" & Chr(10) & "ein" & Chr(10) & "Test"
Nun möchte ich das ein bestimmter Textteil, sagen wir "ist" gelöscht wird. Das funktioniert auch:
With Zelle.Comment
.Text Text:=Replace(.Text, "ist", "", , , vbTextCompare)
End With
Doch nun bleibt immer noch der Zeilenvorschub vorhanden. Ich möchte aber das dieser ebenfalls verschwindet, als ob nie ein "ist" eingetragen wurde.
Gibts da ne Lösung ?
mfg Martin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kommentar Eintrag löschen und einrücken

23.07.2008 08:53:00

Erich
AW: Kommentar Eintrag löschen und einrücken

23.07.2008 09:01:40

Tino
AW: Kommentar Eintrag löschen und einrücken

23.07.2008 12:50:00

Martin
AW: Kommentar Eintrag löschen und einrücken

23.07.2008 13:07:00

Erich

AW: Kommentar Eintrag löschen und einrücken

23.07.2008 08:53:00

Erich

Hallo Martin,
probier mal


Sub Komment()
Dim rngZ As Range
Set rngZ = Cells(1, 1)
rngZ.AddComment "Hallo" & Chr(10) & "das" & Chr(10) & "ist" & Chr(10) _
& "ein" & Chr(10) & "Test"
With rngZ.Comment
.Text Text:=Replace(Replace(.Text, "ist" & Chr(10), "", , , vbTextCompare), _
"ist", "", , , vbTextCompare)
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Kommentar Eintrag löschen und einrücken

23.07.2008 09:01:40

Tino

Hallo,
was hältst du hiervon?


Dim MerkG As Single
With Zelle.Comment
.Text Text:=Replace(.Text, "ist" & Chr(10), "")
With .Shape
MerkG = .Width
.TextFrame.AutoSize = True
.TextFrame.AutoSize = False
.Width = MerkG
End With
End With

Gruß Tino

www.VBA-Excel.de

AW: Kommentar Eintrag löschen und einrücken

23.07.2008 12:50:00

Martin

Hey Tino,
genau das was ich gesucht habe.
Funktionier super !!!!
Noch eine kurze Frage.
Gibt es die Möglichkeit die Länge des Kommentars auszugeben?
Irgendwie etwas mit:
With Zelle.Comment
.count
endwith
Ich möchte wissen wie viele Inhalt in dem Kommentar sind. Finde aber nix elegantes
mfg Martin

AW: Kommentar Eintrag löschen und einrücken

23.07.2008 13:07:00

Erich

Hallo Martin,
so kannst du die Länge z. B. vor und nach dem Reolace anzeigen:


With Zelle.Comment
MsgBox "vorher: " & Len(.Text)
.Text Text:=Replace(.Text, "ist" & Chr(10), "")
With .Shape
sngW = .Width
.TextFrame.AutoSize = True
.TextFrame.AutoSize = False
.Width = sngW
End With
MsgBox "nachher: " & Len(.Text)
End With

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort