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
Please also mark the comments that contributed to the solution of the article
Content-Key: 255062
Url: https://administrator.de/contentid/255062
Printed on: April 26, 2024 at 22:04 o'clock
5 Comments
Latest comment
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.