Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Felder einfärben und Spalten ausblenden

Felder einfärben und Spalten ausblenden
30.01.2017 23:06:23
Markus
Hallo zusammen
Ich hab da mal eine Aufgabe bei der ich Hilfe gebrauchen könnte.
https://www.herber.de/bbs/user/111019.xlsm
In A11 bis A16 (nur ein Ausschnitt) seht ihr Farbcodes, welche für die jeweilige Zeile gültig sind.
Wenn ich nun einen Bereich (mehrer Zellen) irgendwo zwischen D11 und P16 markiere und auf den Button "Felder einfärben" clicke, hätte ich gerne, dass alle Felder mit einer Zahl, die entsprechende Hintergrundfarbe wie in Spalte A erhalten.Bei Feldern ohne Inhalt, soll die Hintergrundfarbe entfernt werden.
Und mit einem click auf "Spalten mit 1 ausblenden" würde ich gerne alle Spalten ausblenden, welche in der Zeile 8 eine 1 haben. Oder eben wieder alle Spalten sichtbar machen.
Vielen herzlichen Dank für eure Hilfe schon mal im Voraus.
Gruß Markus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Felder einfärben und Spalten ausblenden
31.01.2017 04:04:20
Matthias
Hallo
Option Explicit
Sub OhneFarbe()
With Range("D11:P16").Interior
.Pattern = xlNone
End With
End Sub
Sub Faerben()
Dim RnG As Range
For Each RnG In Range("D11:P16")
If IsNumeric(RnG) And RnG  "" Then RnG.Interior.Color = Cells(RnG.Row, 1).Interior.Color
Next
End Sub
Sub einblenden()
Application.ScreenUpdating = False
Columns("D:P").EntireColumn.Hidden = False
End Sub
Sub ausblenden_1_in_Zeile_8()
Dim x&
Application.ScreenUpdating = False
For x = 4 To 16
If Cells(8, x) = 1 Then
Columns(x).Hidden = True
End If
Next
End Sub

Den Code nun den entsprechenden Button zuweisen.
Gruß Matthias
Anzeige
AW: Felder einfärben und Spalten ausblenden
31.01.2017 08:16:58
markus
Hallo Matthias,
vielen Dank für deine Hilfe - funktioniert super.
Allerdings ist meine Tabelle riesen groß und ich überlege, ob ich den Range-Bereich auch durch eine händische Auswahl jedes mal neu zuweisen kann?
Gruß Markus
das musst Du selbst wissen ;-)
31.01.2017 09:42:15
Matthias
Hallo
Den Bereich kannst Du natürlich auch händisch setzen,
oder für den Bereich auch einen Namen definieren.
Gruß Matthias
AW: das musst Du selbst wissen ;-)
31.01.2017 12:22:22
markus
Hallo Matthias,
da habe ich einfach ein paar Hirnwindungen zu wenig. Ich stelle mir vor, dass ich mit der Maus den entsprechenden Bereich in der Tabelle markiere und dann das Makro starte. Es wird dann auch nur in dem Bereich ausgeführt. Wenn das nicht geht, ist es halt so.
Den Bereich über einen Namen zu definieren und dort abgreifen ist gut - da sich der Bereich aber wirklich ständig ändert ist das für mich eher uninteressant.
Danke trotzdem.
Markus
Anzeige
dann benutze nur Selection statt Range(...)
31.01.2017 14:57:15
Matthias
Hallo
Dann musst Du im Code statt Range(DeineMatrix) eben Selection benutzen
Option Explicit
Sub OhneFarbe()
With Selection.Interior
.Pattern = xlNone
End With
End Sub
Sub Faerben()
Dim RnG As Range
For Each RnG In Selection
If IsNumeric(RnG) And RnG  "" Then RnG.Interior.Color = Cells(RnG.Row, 1).Interior.Color
Next
End Sub
Gruß Matthias
AW: dann benutze nur Selection statt Range(...)
02.02.2017 12:27:29
markus
Vielen Dank Matthias,
genau das habe ich gesucht.
Gruß Markus

310 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

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
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8