just4fun1990

Excel 2013 bei bestimmten TEXT text ausblenden

Hallo Administrator.de User,

ich möchte in Excel 2013 Zellen so formatieren, dass diese dann bei einem bestimmten Text den eingegebenen Text ausblendet.
Leider habe ich das nur mit Werten gefunden. Aber das klappt hier nicht.

Besipiel:

Wenn ich z.B. in die Zelle "Test" eingebe, soll diese Zelle den Text "Test" ausblenden. wenn ich jetzt "Test2" eingebe, soll der Text allerdings sichtbar bleiben

Gruß Justin
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 255062

Url: https://administrator.de/forum/excel-2013-bei-bestimmten-text-text-ausblenden-255062.html

Ausgedruckt am: 04.06.2025 um 18:06 Uhr

Xaero1982
Xaero1982 17.11.2014 aktualisiert um 23:22:05 Uhr
Goto Top
Nabend,

das geht nur mitm Makro...wie und ob du das allerdings nonstop ausführen lassen kannst kA...

Sub Test()
If (Range("ZELLE").Value = "Test") Then  
 Range("ZELLE").ClearContents  
End If
End Sub

Grüße

edit:

Private Sub Worksheet_Change(ByVal Target As Range)
 'Target wird auf den sich überschneidenden Bereich gesetzt, um bei  
 'Mehrfachmarkierungen die ausserhalb des eingeschränkten Bereiches  
 'liegenden Zellen nicht ebenfalls zu verändern  

 'Hier den Bereich anpassen  
     Set Target = Application.Intersect(Target, Range("ZELLE"))  

     'Wenn nicht innerhalb des Bereiches wird die Prozedur verlassen  
     If Target Is Nothing Then Exit Sub

     'Errorhandling aktivieren, um im Falle eines Fehlers die Ereignisse  
     'am Ende wieder zu aktivieren  
     On Error GoTo ErrorHandler

     'Ereignisse ausschalten, um das Change-Ereignis nicht erneut auszulösen  
     Application.EnableEvents = False

     'Eine Range-Variable deklarieren  
     Dim rngZelle As Range

     'jede Zelle innerhalb des Target-Bereiches durchlaufen  
     For Each rngZelle In Target

     
     'Dein Code zur Bearbeitung der Zelle  
     If (Range("ZELLE").Value = "Test") Then  
        Range("ZELLE").ClearContents  
     End If
     

     Next rngZelle
ErrorHandler:
     Application.EnableEvents = True   'Ereignisse wieder einschalten  
 End Sub

Damit prüft er dauerhaft.

Die Zellen musst du anpassen.
Xaero1982
Xaero1982 19.11.2014 um 08:41:10 Uhr
Goto Top
Wieder so ein Fall von Fragen und nie wieder reagieren...
Just4fun1990
Just4fun1990 19.11.2014 aktualisiert um 22:21:40 Uhr
Goto Top
Hallo Xaero 1982

Vielen Danke für die Antwort, tut mir leid ich war mit der Schule ganz beschäftigt und habs dann einfach verpeilt :D

Nochmals Sorry face-sad

edit:

Leider müssen dürfen die Texte aus den Zellen nicht gelöscht werden, am besten wärs, wenn man den Text irgendwie weis färbt.

Danke im Vorraus. :D
Xaero1982
Lösung Xaero1982 19.11.2014, aktualisiert am 23.11.2014 um 21:58:22 Uhr
Goto Top
Ungetestet:

Range("ZELLE").Interior.Color = RGB(255,255,255)  

ersetzt du die
Range("ZELLE").ClearContents   
Just4fun1990
Just4fun1990 23.11.2014 um 21:58:45 Uhr
Goto Top
Jo danke das passt

face-smile