Office: Jegliche Eingabe soll automatisch durch "x" ersetz

Hallo nochmal,

ich habe derzeit viele Excel Fragen und erstelle der Übersicht halber stets neue Threads, ich hoffe das ist in Ordnung.

Ich möchte in einer Tabelle in bestimmten Zellen als Ausgabe lediglich ein "x" haben, egal was eingetragen wird.

Ich habe keine Ahnung wie das gehen soll

schöne Grüße aus Hamburg

 

formatier die Zelle entsprechend
"X";"X";"X";"X"

Gruß Hajo

 

Danke Hajo, du antwortest immer sehr schnell :)

Leider habe ich damit keinen Erfolg. Es funktioniert zwar, aber mein Anliegen bleibt bestehen.

Der Grund warum ich so eine Formatierung benötige, ich nutze den Spezialfilter in der Tabelle und filter nach "X". Dem Spezialfilter genügt nicht, das dort ein "X" angezeigt wird, er weiß trotzdem dass dort etwas anderes eingetragen wurde

keine Ahnung ob mein Problem klar genug erklärt ist, ist ein bisschen doof zu beschreiben.

 

das ist der Vorteil, wenn man seine Aufgabe genau beschreibt.
Das geht nur per VBA. Den Code ändere ich nicht. Da mir das auf den Keks geht, wenn in jedem Beitrag die Aufgabe neu formuliert wird.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target = "X"
    Application.EnableEvents = True
End Sub

Gruß Hajo

 

ich nutze excel erst seit einem halben jahr intensiver und leider war mir nicht bewusst, das die situationsbeschreibung so wichtig sein kann.
die aufgabe ist zwar neu formuliefrt, mein problem ist ja das selbe (dachte ich).

ich werds mir merken und nur noch genaue fehler und situationsbeschreibungen machen.

danke für den code, da ich keine ahnung von VBA habe und nur mit dem makrorecorder arbeiten, nützt er mir leider nichts.

ich weiß nicht wo ich ihn einfügen müsste und welche bezeichnungen für meine tabellenparameter stehen und ich dementsprechend ändern müsste etc.

ich bin mir unsicher ob ich mit meinem nächsten problem hier überhaupt frage, scheint ja nicht so gut anzukommen wenn man noch unerfahren ist :-? ich hab jetzt nämlich einen laufzeitfehler 1004 (habe ein makro aufgezeichnet das 2 andere makros startet und das ganze mit einer schaltfläche verknüpft. die einzelnen funktionieren aber)

 

Für VBA muss die Beschreibung schon genau sein.
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, mache ein Doppelklick auf Deine Tabelle und füge den Code ins rechte Fenster ein.

Code:

Option Explicit                             ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 29.04.11                                       *
    '* erstellt von [email]HajoZiplies@web.de[/email]                *
    '* [url]http://Hajo-Excel.de/[/url]                          *
    '**************************************************
    Dim RaBereich As Range                  ' Variable für Bereich
    Dim RaZelle As Range                    ' Variable für Zelle
    Dim Wert
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("C2:C1000")
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    If Not RaBereich Is Nothing Then
        Wert = Target
        Application.EnableEvents = False
        Target = "X"
        Application.EnableEvents = True
    End If
    Set RaBereich = Nothing                 ' Variable leeren
End Sub

Zu dem neuen Problem, neuer Beitrag. Ich vermute da wäre die Datei nicht schlecht. Ein Nachbau sieht meist anders aus als das Original.

Gruß Hajo

 

Danke Hajo,

habe es gleich so umgesetzt wie du geschrieben hast. Habe dann noch den Range Bereich angepasst auf die exakte größe meiner ersten Tabelle (D27:D38), um anahnd dieser zu testen was passiert.

Jetzt habe ich folgendes Problem: egal was im Bereich D27:38 mache, es wird immer ein "X" eingefügt. Leider somit auch, wenn ich die Entfernen Taste drücke. Daraus resultiert, dass ich eine Auswahl nicht widerrufen kann :-(
Wenn ich also einmal etwas in die Zelle eingetragen habe, wird es für immer zu einem "X" welches ich nicht löschen kann.

Ich weiß nicht, ob ich mich nun falsch ausgedrückt habe, aber das kann ich so natürlich nicht gebrauchen. Falls das wieder zurückführend auf meine Situationsbeschreibung ist, tut es mir wahnsinnig leid. Es macht schließlich arbeit sich für mich so zu bemühen, da kann man auch erwarten, das ich mich sogut es geht beteilige.

 

das hatte ich ja schon geschrieben. Die genaue Aufgabenstelung. VBA macht nur das ws man ihm sagt.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 29.04.11                                       *
    '* erstellt von [email]HajoZiplies@web.de[/email]                *
    '* [url]http://Hajo-Excel.de/[/url]                          *
    '**************************************************
    Dim RaBereich As Range                  ' Variable für Bereich
    Dim RaZelle As Range                    ' Variable für Zelle
    Dim Wert
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("C2:C1000")
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    If Not RaBereich Is Nothing Then
        Wert = Target
        Application.EnableEvents = False
        If Target <> "" Then Target = "X"
        Application.EnableEvents = True
    End If
    Set RaBereich = Nothing                 ' Variable leeren
End Sub

Gruß Hajo

 

es funktioniert! :-D ich freue mich riesig!!!!

mein Laufzeitfehler konnte ich selbst beheben. Ich habe die Datei zwischenzeitig unter neuem Namen gespeichert und ein Makro hat den alten Dateinamen noch drin gehabt.

Das ist super, jetzt ist die Arbeitsmappe schon zu 50% fertig und ich kann einen Großteil der Formeln einfahc kopieren und weiter verwenden.

Falls ich weitere Probleme habe, melde ich mich natürlich wieder, aber bisherige weitere arbeitsblätter machten keine Sorgen :-)

DANKESCHÖN!