Office: VBA Shapes Type ändern/zuweisen

Helfe beim Thema VBA Shapes Type ändern/zuweisen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo ForumsFreunde, ich habe einen Code teils selbst/teils gefunden zusammengebastellt zur TextSuche in Shapes (Textfeldern) und es läuft bis auf... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Bello, 26. März 2021.

  1. Bello Neuer User

    VBA Shapes Type ändern/zuweisen


    Hallo ForumsFreunde,

    ich habe einen Code teils selbst/teils gefunden zusammengebastellt zur TextSuche in Shapes (Textfeldern) und es läuft bis auf einige Male gut, danach wenn ich ein neues Shape (Textfeld) einfüge, gibt Excel eine Fehlermeldung "Laufzeitfehler 438 Objekt unterstützt diese eigenschaft oder Methode nicht"

    DebugPrint zeigt mir, dass der Shape type zuerst bei 17 läuft und alles ist gut, dann auf 28 springt und da kommt der Fehler.

    Hat jemand da ein Rat für mich, ob es Möglichkeit gibt dem zu sagen den gleichen Type zu verwenden oder den Shape type anzuweisen?

    Ich wäre sehr dankbar, da das Programm bis zu diesem Punkt perfekt funktioniert...
    Freundliche Grüße
    Belli


    unten der Code

    Sub Suche_in_Forms()
    Dim objShp As Shape, objWS As Worksheet
    Dim strSearch As String
    strSearch = Range("A3").Value

    If strSearch <> "" Then
    For Each objWS In ThisWorkbook.Worksheets
    For Each objShp In objWS.Shapes
    With objShp

    Debug.Print .Type

    If .Type <> msoFormControl Then
    If InStr(1, .TextFrame.Characters.Text, strSearch, vbTextCompare) Then
    Application.Goto .TopLeftCell, True
    If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub
    End If
    End If
    End With
    Next
    Next
    End If

    End Sub
     
  2. Beverly
    Beverly Erfahrener User
    Hi,

    prüfe ob es eine TextBox ist:

    Code:
    If .Type = msoTextBox Then


    VBA Shapes Type ändern/zuweisen GrußformelVBA Shapes Type ändern/zuweisen Beverly's Excel - Inn
     
    Beverly, 26. März 2021
    #2
    1 Person gefällt das.
  3. Bello Neuer User
    Wauuu,

    Vielen lieben Dank Beverly!!!!!

    genau das, was mir gefehlt hat! Funkt Super!

    schönes Wochenende!!!

    FG
    Belli
     
Thema:

VBA Shapes Type ändern/zuweisen

Die Seite wird geladen...
  1. VBA Shapes Type ändern/zuweisen - Similar Threads - VBA Shapes Type

  2. VBA Hyperklink senden

    in Microsoft Excel Hilfe
    VBA Hyperklink senden: Hallo zusammen, ich würde gerne ein Makro erstellen mit folgender Aufgabe: Die Datei Speichern (Dateiname aus Zellinhalt, mit Leerzeichen) Diese gespeicherte Datei soll dann in Outlook per...
  3. VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

    in Microsoft Excel Hilfe
    VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change): Hallo, ich komm leider nicht weiter. Habe 2 Makros die einzeln super Funktionieren, aber leider nicht zusammen. Vielleicht kann jemand helfen. Danke. Option Explicit Sub Datum() Private Sub...
  4. Excel VBA blattschutz Problem

    in Microsoft Excel Hilfe
    Excel VBA blattschutz Problem: Hallo. Ich habe seit ein paar tagen folgendes Problem. Ich habe eine excel tabelle mit mehreren Tabellenblättern. Die Tabellenblätter sind mit einem Blattschutz versehen. Der Blattschutz wurde...
  5. Listenfeld wird nicht immer gefüllt

    in Microsoft Access Hilfe
    Listenfeld wird nicht immer gefüllt: Hallo alle Kenner, in einer Datenbank sind die Werke verschiedener Komponisten mit ihren Werken erfasst. Über ein Kombinationsfeld werden z.B. die Kategorien ausgewählt und die entsprechen Werke...
  6. Shapes per VBA ansprechen

    in Microsoft Excel Hilfe
    Shapes per VBA ansprechen: Hey, ich möchte mir ein Button machen, wo alle angeklickten Shapes (Quatrate oder so) formatiert werden. Hab ein Makro aufgezeichnet, bei dem ich bei einem Viereck die Größe verändert hab. Nur...
  7. Aktive Shape ermitteln

    in Microsoft PowerPoint Hilfe
    Aktive Shape ermitteln: Hallo zusammen, ich find einfach nicht raus, wie ich per VBA das aktive Shape einer Folie ermitteln kann. Kann mir bitte jemand weiterhelfen - Danke. Sonnige Grüße Oliver
  8. Shape (Linie) per VBA in Polar-Koordinaten positionieren

    in Microsoft Excel Hilfe
    Shape (Linie) per VBA in Polar-Koordinaten positionieren: Moinsens, allerseits! Ich bräuchte mal einen Schubser, weil ich hier irgendwie nicht weiterkomme. Es geht um Folgendes: Auf einem Worksheet ist ein Shape (eine Linie) platziert. Gegeben...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden