Re: Löschen von Absatzmarken usw. mittels Replace-Function

Hallo Dietmar,

bisher habe ich mich noch nicht durch den ganzen Code
durchgekämpft, vielleicht ist das auch gar nicht erforderlich.
Auf Anhieb sehe ich nur sowas:

cl.Select
' Das ist eine Zelle: ok

With Selection
strCell = Replace(cl.Range.Text, Chr(13) + Chr(7), "")
End With
' An String Inhalt der Zelle ohne Endemarke zuweisen: ok

If strCell = "" Then
cl.Delete
End If
' hmm Eine Zelle kann man gar nicht löschen.
' Nur den Inhalt eine Zelle.
' Aber wenn sie ohnehin schon leer ist ?

--
Gruss
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

.

Relevant Pages

  • Re: Filter
    ... ist das Modul im richtigen Projekt? ... 'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle ... With Bereich.Parent.AutoFilter ... End With ...
    (microsoft.public.de.excel)
  • Re: Adresse aufaddieren?
    ... Ich habe einer Variablen die Adresse einer Zelle zugewiesen. ... End With ... Dim rngZelle As Range ...
    (microsoft.public.de.excel)
  • Re: Filter
    ... > Dann markierst Du deine Zellen in denen der Autofilter steht (ich nehme ... > 'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle ... > With Bereich.Parent.AutoFilter ... > End With ...
    (microsoft.public.de.excel)
  • VBA-Code mit unterschiedlichen Werten ansprechen
    ... Jeder Nutzer klickt auf seinen Namen und dann bekommt der eingetragene Wert eine bestimmte Farbe zugewiesen. ... Der obere schöne Teil ist aus der NG hier, der untere hässliche mit "Selction" von mir;-) Es wird ein Eintrag nach rechts verschoben, sofern etwas in der Zelle ist. ... Früher hatten die Zellen in Spalte L entweder keinen Inhalt oder einen Datumswert. ... With Selection.FormatConditions.Interior ...
    (microsoft.public.de.excel)
  • Re: Excel2003: Selektions-Kniffelei
    ... Abbruch mit Fehlermeldung wenn die ausgewählte Zelle leer ist. ... Dim rngNew As Range ... End With ...
    (microsoft.public.de.excel)