Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Like "*" & [*]

    Betrifft: Like "*" & [*] von: Christoph
    Geschrieben am: 02.09.2003 10:48:33

    Hallo Forum,
    ich stolpere mal wieder über eine Kleinigkeit:
    Ich möchte in einer Tabelle alle Einträge die nicht mit Stern enden behandeln:
    Bei der Formulierung:
    If Cells(i, j).Value Like "*" & [*] = False Then ...
    bekomme ich allerdings die Fehlermeldung: Typen unverträglich.

    Zur Info:
    If Cells(i, j).Value Like "*" & [1] = False Then ...
    läuft fehlerfrei.
    Das Problem ist also eindeutig die Formulierung von [*].
    Weiß jemand, wie das geht?
    vielen Dank für eure Hilfe
    Gruß
    Christoph

      


    Betrifft: AW: Like "*" & [*] von: Michael Scheffler
    Geschrieben am: 02.09.2003 11:25:11

    Hi,

    das ist doppelt falsch, weil "*" beim Like die Ersetzung für mehrere Zeichen darstellt und ich glaube auch nicht, dass "... & [1] = False Then ..." fehlerfrei läuft, weil die Syntax falsch ist.

    Besser ist ein Konstrukt mit InStr:

    If InStr(Right(Cells(1, 1), 1), "*") Then MsgBox "* ist"

    Gruß

    Micha


      


    Betrifft: Danke....(aber) von: Christoph
    Geschrieben am: 02.09.2003 11:44:56

    Hi Micha,
    Danke für die Hilfe!
    mein Eintrag "VBA gut" ist auch etwas übertrieben, aber "VBA nein" wäre noch weiter von der Wahrheit entfernt.
    Mit "InStr" hab ich allerdings noch keine Erfahrung.
    Wie Formuliere ich diese Formel, wenn ich alle Zelleneinträge, die NICHT mit Stern enden, behandeln will?

    kannst du mir noch mal helfen?
    Merci
    Gruß
    Christoph


      


    Betrifft: AW: Danke....(aber) von: Galenzo
    Geschrieben am: 02.09.2003 11:50:38

    Meiner Meinung nach brauchst da kein InStr es reicht aus:
    If Right(Cells(1,1),1)="*"

    (InStr liefert die Stelle des ersten Vorkommens eines Zeichen in einem String. Da du aber eh nur EIN Zeichen prüfst, nämlich das letzte, reicht die Formel mit RIGHT aus)


      


    Betrifft: Richtig - Right reicht. von: Michael Scheffler
    Geschrieben am: 02.09.2003 12:29:53




      


    Betrifft: AW: Danke....(aber) von: Nayus
    Geschrieben am: 02.09.2003 11:52:45

    Na mit...
    If NOT InStr(Right(Cells(i, j), 1), "*") Then
    ...was auch immer passieren soll
    ...


      


    Betrifft: vielen Dank von: Christoph
    Geschrieben am: 02.09.2003 12:04:20

    hallo Leute,
    schönen Dank für eure Hilfe...und schon wieder bin ich dank des Forums etwas schlauer geworden...(If Cells(i, j).Value Like "*" & [1] = False Then ...)werd ich wohl begraben.
    (es läuft aber wirklich fehlerfrei, vielleicht ja wegen doppelt falsch, wie Micha es formulierte)
    ok, dieses Konstrukt ist schon vergessen

    macht weiter so
    Gruß
    Christoph