Zuerst möchte ich mich bei allen, die mir bisher geholfen haben, aufrichtig bedanken. Da ich zum umsetzten der Vorschläge eurerseits aber länger brauche sind die Beiträge von mir meist schon im Archiv verschwunden.
Nun zu meinem Problem:
habe hier einen Fehler auf den ich nicht komme. Es handelt sich um Textfelder die
gelöscht werden sollen. Zu erst wird das Textfeld mittels darunterliegenden Zellen
markiert und dann mit dem folgenden Makro mittels einem Button vom Tabellenblatt aus
gelöscht.
Sub Textfelder_in_Markierung_löschen()
Dim objTextfeld As Shape
Dim rngBereich As Range
Set rngBereich = Selection
For Each objTextfeld In ActiveSheet.Shapes
If Not Intersect(objTextfeld.TopLeftCell, rngBereich) Is Nothing Then _
objTextfeld.Delete
Next
Set rngBereich = Nothing
End Sub
Dies funktioniert mit verschiedenen "Makierungslängen" beim direkten aufrufen der
Sub auch ohne Fehler. Nun wird in einer anderen
Sub das Tabellenblatt geleert. Ich
bekomme aber beim Aufruf mit dem folgenden Code einen nichtssagenden Laufzeitfehler
(1004) in der aufgerufenen Sub.
Range("l10:m102").Select
Call Textfelder_in_Markierung_löschen
Der fett markierte Bereich in der
Sub Textfelder_in_Markierung_löschen() ist dann
gelb hinterlegt. Wenn ich bei der Call-Anweisung zum Schluss die Klammern () setze
werden die vom Editor gleich wieder weg genommen.
Warum wird mein Text zerissen?