Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1620to1624
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
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen ausblenden wenn Bedingung erfüllt

Zellen ausblenden wenn Bedingung erfüllt
07.05.2018 15:02:15
Chris
Hallo zusammen,
ich würde es gerne per VBA hinbekommen, dass, wenn zum Beispiel in eine Zelle (D11) ein Wert von 1-10 eingetragen wird, die darunter vorher ausgeblendeteten Zeilen wieder eingeblendet werden.
So sollen zum Beispiel vier Zeilen eingeblendet werden, wenn in Zelle D11 eine 4 eingetragen wird.
Bei Fragen immer gerne.
Ich hoffe Ihr könnt mir helfen!
LG
Chris

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen ausblenden wenn Bedingung erfüllt
07.05.2018 15:11:34
Werner
Hallo Chris,
z.B. so: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Not Target Is Nothing Then
If Target.Count = 1 Then
If Target.Value >= 1 And Target.Value
Event-Makro, gehört ins Codemodul des Tabellenblattes auf dem es sich auswirken soll.
-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Code startet automatisch bei "händischer" Eingabe einer Zahl von 1 bis 10 in Spalte D
Gruß Werner
AW: Zellen ausblenden wenn Bedingung erfüllt
07.05.2018 15:22:32
Chris
Hallo Werner,
danke für die schnelle Antwort!
Besteht die Möglichkeit, dass die Zellen auch wieder ausgeblendet werden, sobald in (z.B. D11) eine Null schreibt bzw. den Wert zwischen 1 und 10 rauslöscht?
Gruß
Chris
Anzeige
AW: Zellen aus-/einbleden, wenn Bedingung erfüllt
07.05.2018 18:01:46
Dieter(Drummer)
Hallo Chris,
habe den Code von Werner angepasst und so werden bei Eingabe "0" alle vorher ausgeblendeten Zeilen wieder eingeblendet, egal wieviele Zeilen du vorher ausgeblendet hattest.
Ich hoffe, Werner ist damit einverstanden, dass ich seinen Code mit Änderungen (Fett) angepasst habe.
Evtl. gibt es ja auch noch eine einfachere Lösung, aber ich bin nicht der Spezialist.
Gruß, Dieter(Drummer) 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Not Target Is Nothing Then
If Target.Count = 1 Then
If Target.Value >= 1 And Target.Value True
End If
End If
End If
End If

If Target.Value = 0 Then
Range("D12:D21").EntireRow.Hidden = False
End If
End Sub

Anzeige
AW: Zellen aus-/einbleden, wenn Bedingung erfüllt
07.05.2018 19:06:18
Werner
Hallo Dieter,
da hast du wohl falsch gelesen, gerade anders rum wollte der TE das haben. Bei Eingaben der Ziffern 1-10 die bereits ausgeblendeten folgenden Zeilen einblenden und bei Löschen des Zellinhaltes bzw. Eingabe von 0 die entsprechenden Zeilen wieder ausblenden.
Gruß Werner
AW: Zellen aus-/einbleden, wenn Bedingung erfüllt
07.05.2018 19:25:41
Dieter(Drummer)
Hallo Werner,
danke für Info und da habe es wohl falsch gesehen.
Gruß, Dieter(Drummer)
Nachfrage
07.05.2018 19:07:44
Werner
Hallo Chris,
...geht es nur um die Zelle D11 oder soll das auch in weiteren Zellen der Spalte D so ablaufen?
Gruß Werner
AW: Zellen blenden wenn Bedingung erfüllt
08.05.2018 06:16:39
Gerd
Moin 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 4 Then
If .CountLarge = 1 Then
If .Value >= 1 And .Value

Gruß Gerd
Anzeige

384 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 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
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9