Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.06.2025 08:39:33
19.06.2025 20:41:29
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bestimmten Zellenwert ausblenden VBA

Bestimmten Zellenwert ausblenden VBA
20.11.2008 07:19:09
Alex
Guten Morgen Liebe Excelisten,
ich bräuchte mal Eure hilfe, unzwar bräuchte ich ein Formel/VBA die mir auf dem Tabellenblatt z.B. Urlaub die Kürzungen F,S und AS ausblendet, sie sollten nicht gelöscht werden sondern nur nicht mehr angezeigt werden. zum beispiel in einer anderen schriftfarbe wie weiß. Oder habt ihr eine andere idee?!?
Da ich alle Bedingten Formatierung schon verwende bräuchte ich einen neuen Lösungsweg über VBA.
Hoffe ihr könnt mir weiter helfen
LG Alex
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Zellenwert ausblenden VBA
20.11.2008 07:50:37
robert
hallo,
meinst du so?
den range bereich ev.anpassen, 3 = rot, auch anpassen( 2= weiss)
ausprobieren
gruß
rofu
in ein modul

Sub Farbe()
Dim bereich As Range
Set bereich = Range("A2:G100")
Dim z
For Each z In bereich
Select Case z
Case "f", "s", "af"
z.Font.ColorIndex = 3
End Select
Next
End Sub


Anzeige
AW: Bestimmten Zellenwert ausblenden VBA
20.11.2008 08:41:38
Alex
Vielen Dank für Eure hilfe,
beide Sachen funktionieren einwandfrei.
Danke
AW: Bestimmten Zellenwert ausblenden VBA
20.11.2008 07:57:39
Tino
Hallo,
hier mal ein Beispiel.
Kommt als Code in die entsprechende Tabelle.
Den Wirkungsbereich musst Du im Code noch anpassen, im Beispiel ist er in Spalte A bis C
Die Suchbegriffe musst Du noch anpassen und diese immer durch ein Komma trennen.
Microsoft Excel Objekt Tabelle1
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim ZellBereich As Range 
Dim Begriffe As String, meArea() As String 
Dim i As Integer 
 
'Anpassen*************************************** 
Begriffe = "F,U,AS" 'Bedingungen 
Set ZellBereich = Range("A:C") 'Wirkungsbereich 
'*********************************************** 
 
meArea = Split(Begriffe, ",") 
With Application 
 .ScreenUpdating = False 
 .EnableEvents = False 
 'Schriftfarbe auf Standart 
 ZellBereich.Font.ColorIndex = 0 
 'Suche Zellen mit Begriffe 
    For i = Lbound(meArea) To Ubound(meArea) 
            Application.ReplaceFormat.Font.ColorIndex = 2 
            ZellBereich.Replace What:=meArea(i), Replacement:=meArea(i), LookAt:=xlWhole, _
                SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
                ReplaceFormat:=True 
    Next i 
 .EnableEvents = True 
 .ScreenUpdating = True 
End With 
End Sub 
 
 


Gruß Tino

www.VBA-Excel.de


Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige