Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shape mit bestimmten Text löschen

Forumthread: Shape mit bestimmten Text löschen

Shape mit bestimmten Text löschen
24.08.2015 12:22:41
Peter
HAllo Zusammen,
ich bitte wieder um Eure Hilfe.
Wie kann ich ein Shape mit einem Text löschen, wenn im Text ein Umbruch ist.
So geht es leider nicht. Das Shape wird nicht erkannt.
On Error Resume Next
ActiveSheet.Shapes("Eingabe" & Chr(13) & "Test-Adresse").Delete
On Error GoTo 0
Ich bedanke mich für eure Antworten im voraus,
Peter

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape mit bestimmten Text löschen
24.08.2015 12:44:00
Michael
Hallo Peter!
Probier mal:
Sub ShapesMitAbsatzWeg()
Dim Zeichnung As Shape
For Each Zeichnung In ActiveSheet.Shapes
If InStr(1, Zeichnung.TextFrame2.TextRange.Characters.Text, Chr(10), vbTextCompare)  _
Then
Zeichnung.Delete
End If
Next
End Sub
LG
Michael

Anzeige
AW: Shape mit bestimmten Text löschen
24.08.2015 13:10:23
Peter
Hallo Michael,
danke für deine Antwort.
Wo und wie gebe ich meinen Text mit dem Zeilenumbruch ein damit das Shape erkannt wird?
Und, wenn das Shape bereits gelöscht wird, dann soll das Makro ohne Fehlermeldung durchlaufen.
LG,
Peter

AW: Bin gerade etwas verwirrt...
24.08.2015 14:05:37
Michael
Hallo Peter!
Ich habe Deine Frage so verstanden: Du hast verschiedene Formen in einem Tabellenblatt, davon haben manche/alle einen Text - d.h. die jeweilige Form wurde markiert und dann direkt über die Tastatur mit Text befüllt (ohne ein Kontextmenü). Du willst jetzt jene Formen löschen, die einen Umbruch (hab ich als Absatz sprich "Wagenrücklauf-Zeichen" interpretiert) enthalten.
Mein Code durchläuft alle Formen im aktiven Blatt und sieht nach ob in dem jeweiligen Text ein "Wagenrücklauf-Zeichen" vorkommt; wenn ja, wird die Form gelöscht. Fehlermeldungen sind da sowieso nicht eingeplant :-)...
D.h. Form mit der Maus markieren (LiMaus Klick), direkt auf der Tastatur zu schreiben beginnen, dieser Text wird in der Form angezeigt (=gehört zu dieser Form). Wenn Du beim Schreiben die Wagenrücklauf ("große Enter-Taste") betätigst erhältst Du einen Zeilensprung und das wird dann eben auch als Löschkriterium für meinen Code hergenommen.
Falls ich Dich jetzt völlig falsch verstanden habe, gib Bescheid!
Michael

Anzeige
AW: Bin gerade etwas verwirrt...
24.08.2015 17:12:40
Peter
Hallo Michael,
ich habe eine Startmaske mit verschiedenen Shapes denen Links zugeordnet sind. Da der Textinhalt ein wenig länger ist, haben alle Shapes eine zweite Zeile als Text.
Nun soll nur ein Shape mit bestimmten Text wie z.B. Eingabe (erste Zeile) Mitgliederverteichnis (zweite Zeile) beim Speichern gelöscht werden.
Wie müsste des Code dazu aussehen?
LG,
Peter

Anzeige
AW: Bin gerade etwas verwirrt...
24.08.2015 22:09:28
Peter
Hallo Michael,
hast du dazu noch eine Idee?
LG,
Peter

AW: Sorry, hatte heute keine Zeit mehr,melde...
24.08.2015 23:36:13
Michael
...mich morgen wieder,
LG
Michael

AW: Mir ist jetzt unklar, wovon wir sprechen...
25.08.2015 08:51:51
wir
Hallo Peter!
Du hast in Deiner Antwort geschrieben
ich habe eine Startmaske mit verschiedenen Shapes
...heißt das, Du hast eine UserForm, und darauf Formen? Oder liegen die Formen, wie bisher von mir angenommen, auf einem Tabellenblatt?
Zusätzlich möchtest Du dass
ein Shape mit bestimmten Text beim Speichern gelöscht wird
Also soll diese Prüfung der Formen wirklich immer beim Speichern der Arbeitsmappe erfolgen?
Und zu Deiner Frage bzgl. "bestimmtem Text": Heißt das es ist möglich, dass es Formen gibt die das Wort "Eingabe" enthalten, aber in der zweiten Zeile eben etwas Anderes, und nur wenn bspw. "Eingabe" UND "Mitgliederverzeichnis" im Text vorkommen, dann soll gelöscht werden?
Nur zur Klärung für mich: sind die Fragen zusätzlich zu Deiner ursprünglichen Frage zu verstehen, oder habe ich Dich falsch verstanden, und Deine ursprüngliche Frage konnte ich mit meinem Code gar nicht beantworten?
LG
Michael

Anzeige
AW: Mir ist jetzt unklar, wovon wir sprechen...
28.08.2015 16:31:21
wir
Hallo Michael,
war dienstlich unterwegs.
Anbei eine kleine BSP-Datei.
https://www.herber.de/bbs/user/99882.xlsx
Es soll das Shape mit dem Text "Sprung zu Test 2" gelöscht werden. Ich speichere der Datei mittels eines Makros. Dabei wird eine neue Datei (mit einem neuen Namen Z.B. XXX) erstellt. In der neuen Datei XXX soll das Shape gelöscht sein.
Die Datei XXX kann aktualisiert werden. Beim erneuten Abspeichern mittels des Makros soll geprüft werden, ob der Shape "Sprung zu Test 2" vorhanden ist.
Wenn nicht vorhanden, dann soll das Löschen des Shapes übersprungen werden du die Datei XXX normal abgespeichert werden.
Ich hoffe, dass es jetzt ein wenig verständlicher wird.
Danke für deine Hilfe,
Peter

Anzeige
AW: Ok, melde mich am Mo wieder, schönes WE! owT
28.08.2015 19:14:56
Michael
;

Forumthreads zu verwandten Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Zellinhalte Zahlen und Text extrahieren
Marky

Hallo Excel Spezialisten !
Ich würde gerne aus zwei nebeneinander stehenden Spalten die Zellinhalte extrahieren.
Die Zellinhalte bestehen aus Zahlen und Text. Die aus den Zellen zu extrahierenden Zahlen und Texte
stehen immer in den Spalten K10 und N10.
Die Zielzellen sind immer...
29.09.2008 12:55:00
Thread-ID: 1013076
6 Beiträge
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Text und Zahlen teilen
Bernie

Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zünd...
05.03.2009 14:39:23
Thread-ID: 1056861
7 Beiträge
Text durchsuchen und Teile herauskopieren
Andy

Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
17.03.2009 20:40:05
Thread-ID: 1061211
3 Beiträge
Text durchsuchen und Ergebnisse herauskopieren
Andy

Schönen guten Tag!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Fel...
18.03.2009 11:09:52
Thread-ID: 1061327
2 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Anzeige
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige