Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Kommentar Eintrag löschen und einrücken
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
Anzeige
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


Anzeige
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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige