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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
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
5 Kommentare
Neuester Kommentar
Nabend,
das geht nur mitm Makro...wie und ob du das allerdings nonstop ausführen lassen kannst kA...
Grüße
edit:
Damit prüft er dauerhaft.
Die Zellen musst du anpassen.
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.