Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt verstecken

Zelleninhalt verstecken
26.01.2016 08:47:41
Michael
Hallo,
ich würde gerne Zellen ausblenden in dem ich die Schriftfarbe so setze wie die Farbe in der Zelle.
Desweiterem würde ich das auch gerne wieder umstellen können auf die Ausgangsverhältnisse. Sprich schwarze Schriftfarbe.
Das Problem dabei ist, das Makro soll nur für die Spalten A und B gelten und hier auch nur innerhalb bestimmten Grenzen die durch zwei Zellen vorgegeben werden. (Über Namensvergabe: Anfang + Ende.
Kann wer helfen?
Sub Verstecken()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Font.Color = Zelle.Interior.Color
Next Zelle
End 


Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt verstecken
26.01.2016 09:02:54
UweD
Hallo
so z.B.

Sub Verstecken()
Const Anfang& = 2, Ende& = 20 'anpassen
Dim Zelle As Range
With ActiveSheet
For Each Zelle In .Range(.Cells(Anfang, 1), .Cells(Ende, 2)).SpecialCells( _
xlCellTypeConstants, 3)
Zelle.Font.Color = Zelle.Interior.Color
Next Zelle
End With
End Sub
Gruß UweD

AW: Teil2
26.01.2016 09:07:09
UweD
fehlte ja noch...

Sub DaBinIchWieder()
Const Anfang& = 2, Ende& = 20 'anpassen
Dim Zelle As Range
With ActiveSheet
For Each Zelle In .Range(.Cells(Anfang, 1), .Cells(Ende, 2)).SpecialCells( _
xlCellTypeConstants, 3)
If Zelle.Font.Color = Zelle.Interior.Color Then
Zelle.Font.ColorIndex = xlAutomatic
End If
Next Zelle
End With
End Sub
Gruß UweD

Anzeige
AW: Teil2
26.01.2016 09:10:21
Michael
Wie definierst du die Grenzen?
Weil es kann durchaus sein, dass zwischen den Grenzen noch Zellen einfügt werden, dann verschiebt sich die untere Grenze nach unten.

AW: Teil2
26.01.2016 09:20:23
Werner
Hallo Michael,
dafür hat dir Uwe doch die Start und Endzeile als Constante eingebaut.
Anfang = 2 Ende = 20
Die brauchst du nur anzupassen.
Gruß Werner

AW: Teil2
26.01.2016 09:22:02
Michael
Die zeile 20 kann sich aber ggf. nach unten verschieben, dann müsste der Bereich um eine Zeile vergößert werden.

AW: Teil2
26.01.2016 09:25:05
Werner
Hallo Michael,
und genau das habe ich dir doch geschrieben, dann kannst du es ja anpassen - mach hält einfach aus dann aus der 20 eine 21
Werner

Anzeige
AW: Teil2
26.01.2016 09:34:05
Michael
dann müsste ich ja immer den Code öffnen und die Zahl erweitern.
kann man das nicht Automatisieren?

AW: Teil2
26.01.2016 09:24:40
UweD
Hi
Zeilen:
    const Anfang& = 2, Ende& = 20

Spalten:
Die waren ja per Definition auf A und B begrenzt (also Spalte 1 und 2)
    .Cells(Anfang, 1), .Cells(Ende, 2)

Wenn du die Zeilen aus Zellen des Blattes auslesen möchtest, dann so...

Sub DaBinIchWieder()
Dim Anfang&, Ende&
Dim Zelle As Range
With ActiveSheet
Anfang = .Range("C1")
Ende = .Range("D1")
For Each Zelle In .Range(.Cells(Anfang, 1), .Cells(Ende, 2)).SpecialCells( _
xlCellTypeConstants, 3)
If Zelle.Font.Color = Zelle.Interior.Color Then
Zelle.Font.ColorIndex = xlAutomatic
End If
Next Zelle
End With
End Sub

Anzeige
AW: Zelleninhalt verstecken
26.01.2016 09:45:40
MarinaD.
Hallo,
wenn du Namen vergibst: 
Sub verstecken()
With Range([anfang], [ende])
.Font.Color = .Interior.Color
End With
End Sub
Anstatt der Farbe kannst du auch das Format ";;;" zuweisen.
Grüße
MD

AW: Zelleninhalt verstecken
26.01.2016 09:59:36
Michael
Danke für die Hilfe.
Es funktioniert zwar in einer Beispieldatei.
Abe wenn ich den Code einfüge in meine eigentlich Datei kommt der Fehler 400
https://www.herber.de/bbs/user/103034.xlsm
Es sollen die Zelleninhalte in Spalte 31 und 32 unsichtbare gemacht werden, über die Schaltfläche 6
Weis jemand warum?

Anzeige
AW: Zelleninhalt verstecken
26.01.2016 10:10:58
MarinaD.
Hallo,
kurz und knackig: 
Sub DaBinIchWieder()
Range([ja], [nein]).NumberFormat = "0.00"
End Sub
Sub verstecken()
Range([ja], [nein]).NumberFormat = ";;;"
End Sub
Grüße
MD

AW: Zelleninhalt verstecken
26.01.2016 10:16:12
Michael
Super danke.

55 Forumthreads zu ähnlichen Themen

Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Text vor Zahl finden
BuStue

Hallo,
Wie kann ich in einer Tabelle einen unterschiedlich langen Text vor einer Artikel-Nr herausfiltern.
Bsp. Kartoffel mit Soße und Einlage, # 2569874
Ich möchte in der Spalte dann nur Kartoffel mit Soße und Einlage haben.
MfG
Burhard
17.06.2009 13:14:28
Thread-ID: 1082224
4 Beiträge
kl. grüne Dreiecke am Zellenrand
Caro

Hallo!
Ich erstelle gerade Tabellen in Excel und will diese später in Word weiterverwenden.
Nun erscheinen in Excel in einzelnen Zellen "kleine grüne Dreiecke" an der linken oberen Ecke.
(Die sehen genauso aus wie die Dreicke, die auf einen eingefügten Kommentar hinweisen)
Wie...
26.06.2009 13:02:38
Thread-ID: 1084577
2 Beiträge
Anzeige
Abfrage, ob Zahlen vorhanden, die wie Text auss.
Peter

Gutetn Tag
Mit nachstehendem Code wandle ich die Einträge im Range "psBetrag" um, falls diese nur wie Zahlen aussehen, es sich jedoch um Texte handelt.
Diesen Code rufe ich auf, wenn ich eine bestimmte Tabelle verlasse (Worksheet_Deactivate). Nun wäre es elegant, wenn ich zuerst abfrage...
03.11.2010 11:10:03
Thread-ID: 1184967
5 Beiträge
Leerzeichen vor Text Zählen
Jens

Guten Tag (mal wieder),
ich würde gern für eine Zelle berechnen wieviele Leerzeichen vor dem Text in der nebenzelle stehen. Ich habe eine Funktion gefunden, die das für Einzüge berechnet:
Option Explicit
Public Function einzug(r As Range) einzug = r.IndentLevel End Function geht da...
14.07.2011 10:55:03
Thread-ID: 1222090
2 Beiträge
ausgewählte Zelle in die linke obere Ecke stellen
Peter

Hallo liebe Freunde,
wie kann ich mittels VBA eine ausgewählte Zelle auf einfache Weise in die linke obere Ecke des Bildschirms positionieren? Wenn ich eine Zelle aus der Spalte A markiere, dann wählt Excel die Position in der Mitte des Bildschirms. Durch Scrollen kann ich dann für meinen p...
22.11.2011 09:17:19
Thread-ID: 1238846
5 Beiträge
Zahl mit "-" als Vorzeichen als 0 werten
Ralph Bühler

Hallo, ist es bei Excel möglich eine Zahl mir einem "-" als Vorzeichen als 0 zu werten?
Also ich meine, sobald die Zahl ins minus fällt, wird sie als 0 gewertet. Falls es was hilft, meine Formel
sieht zZ so aus: =20+SUMMEWENN(D41:D45;"x";O51:O55)-D13Danke schon mal im VorrausMfG Euer Ralp...
05.06.2002 00:05:55
Thread-ID: 125927
3 Beiträge
Gleichheitszeichen vor eine vorhandene Zahl
Mike

Hallo,
ich hoffe, Ihr könnt mir wieder mal helfen. Folgendes möchte ich erreichen:
Ich habe in Spalte A Zahlen stehen. Diese stehen fest als Wert drin, z.B. 750 (ohne = davor).
Ich würde gerne mit einem Abwasch alle Zahlen mit einen = davor versehen.
Der Grund hierfür ist folge...
10.02.2014 15:26:17
Thread-ID: 1348919
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
3
3
1
7
4
1
4
2
5
14
3
3
12
5
3
2
9
3
8
12
5
7
1
2