5
Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten
ich möchte mit Hilfe einem Makro Zellen die einen bestimmten Inhalt ("G" und "A") haben ausblenden. Versuchte mit dem Befehl
NumberFormat = ";;;"
haben bisher nicht zum Erfolg geführt
Würde mich sehr über Unterstützung freuen. Ich bedanke mich im voraus.
NumberFormat = ";;;"
haben bisher nicht zum Erfolg geführt
Würde mich sehr über Unterstützung freuen. Ich bedanke mich im voraus.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 320261
Url: https://administrator.de/contentid/320261
Printed on: April 26, 2024 at 08:04 o'clock
5 Comments
Latest comment
mit diesem Makro habe ich es probiert aber es funktioniert nicht
was mache ich falsch?
Sub Schaltfläche7270_Klicken()
Dim zelle As Range
Dim y
For Each zelle In ActiveSheet.Range("D6:BP45")
If zelle.Value = "G" Then
y = zelle.Column
Range(Cells(6, y), Cells(45, y)).NumberFormat = ";;;"
End If
Next
End Sub
was mache ich falsch?
Sub Schaltfläche7270_Klicken()
Dim zelle As Range
Dim y
For Each zelle In ActiveSheet.Range("D6:BP45")
If zelle.Value = "G" Then
y = zelle.Column
Range(Cells(6, y), Cells(45, y)).NumberFormat = ";;;"
End If
Next
End Sub
Dafür braucht es kein Makro. Einfach Zellen markieren und eine bedingte Formatierung auf Basis einer Formel anlegen die so aussieht:
Dann die Formatierung auf weiße Schrift festlegen, fertig.
Nicht von D6 irritieren lassen, der Zellbezug wird für jede Zelle automatisch von Excel angepasst!
Gruß
=ODER(D6="G";D6="A")Dann die Formatierung auf weiße Schrift festlegen, fertig.
Nicht von D6 irritieren lassen, der Zellbezug wird für jede Zelle automatisch von Excel angepasst!
Gruß
An eine bedingte Formatierung habe ich auch schon gedacht nur es sind bis zu 60 Zellen die ausgeblendet werden soll. Dies soll mit einem "klick" geschehen. Genauso sollen sie mit einem "klick" wieder eingeblendet werden.
Brauchst du nur in die Formel eine zusätzliche IF Bedingung einbauen die du mit einem Button oder sonst was steuerst.
Wenn du es unbedingt mit Makro machen willst
Wenn du es unbedingt mit Makro machen willst
Sub Ausblenden()
For each cell in ActiveSheet.Range("D6:DP45")
If cell.Value = "G" or cell.Value = "A" then
cell.Font.Color = vbWhite
End if
Next
End Sub
perfekt. Vielen Dank für die Hilfe.