Office: Zelleninhalt verbundener Zellen per VBA löschen

Hallo.
Ich habe mir ein Userform gemacht, wo ich bestimmte Zellen im Tabellenblatt über Textfelder mit Inhalt fülle. Ich habe zwei Buttons im Formular, Übernehmen und Abbruch. Bei Abbruch sollen die bestimmten Zellen nicht mit Text gefüllt werden. Ich wollte die Zellen wie folgt löschen: Range("B10:C10").ClearContents. Aber da meine Zellen verbunden sind, kommt immer eine Fehlermeldung. Gibt es noch eine andere Möglichkeit das der Text aus den Textfelder bei Abbruch nicht ins Tabellenblatt übernommen wird?

Gruß

Tayler

:)

 

Deine Version?
Unter XP funktioniert es bei mir.
Hmmm...

 

Hallo.
Ich benutze Office XP.
Fehlermeldung:
Laufzeitfehler '1004'
Kann Teile einer verbundenen Zelle nicht ändern.

 

Auch Hallo,

wenn z.B. B10:B11 verbunden sind gibt's bei mir auch einen Fehler.

Nimm sowas wie unten, oder IMHO besser, verzichte einfach auf verbundene Zellen.

cu, Bernd
--
Option Explicit

Sub x()
Dim rngZelle As Range, rngSrc As Range

Set rngSrc = Range("B10:C10")
If Not rngSrc.MergeCells Then
rngSrc.ClearContents
Else
For Each rngZelle In rngSrc
rngZelle.MergeArea.ClearContents
Next
End If
End Sub

 

Also ich versteh' es nicht.
Die beliegende Datei ist unter XP erstellt, B10:B11 sind verbunden und das Löschen geht einwandfrei... !?

 

Hallo,

Ja, wenn alle verbundenen Zellen innerhalb des zu löschenden Bereichs sind geht das auch.

Es geht aber nicht wenn eine der verbundenen Zellen innerhalb und eine außerhalb des Bereichs liegt.

Hier sind B10 und B11 verbunden.

Sowas geht:

Range("B10:B11").ClearContents

Sowas geht auch:

Range("B10:C11").ClearContents

Aber dieses geht nicht, da zwar B10 im Bereich liegt, nicht aber B11:

Range("B10:C10").ClearContents

cu, Bernd

 

Danke für die Hilfe. Funktioniert jetzt einbandfrei.

Gruß

Tayler

 

Hallo!

Hatte dieses Problem auch mal. Gebe einfach die erste obere linke Zelle des verbundenen Bereiches an.
Also bei Dir B10.

So gings bei mir.

Viel Erfolg