Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden, wenn eine Bedingung erfüllt ist

Zeilen ausblenden, wenn eine Bedingung erfüllt ist
09.04.2015 15:28:12
Alexander
Hallo zusammen,
Ich habe folgendes Problem:
Im Zelle R13 habe ich ein Dropdownmenü erstellt. Nun möchte ich, wenn ich dort 1 auswähle, also in R13 "1" steht, die Zeilen 24-26 ausblenden, bei "2" die Zeilen 25-26 und bei "3" die Zeile 26.
Leider bin ich ein blutiger VBA-Anfänger und Beispiele aus dem Internet helfen mir auch nicht weiter.
Hat jemand eine Idee wie ich das Problem lösen kann?
Recht herzlichen Dank,
MfG Alexander

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Event-Macro in Codemodul des Tabellenblattes
09.04.2015 15:54:28
NoNet
Hallo Alexander,
per "Bedingung" (also z.B. als Formel/Funktion) kann man das nicht wirklich realisieren, allerdings ist es möglich, ein Ereignis-Makro (engl.: Event-Macro) im Codemodul des Tabellenblattes zu erstellen :
- Klicke das Tabellenblatt im Blattregister unten per rechte Maustaste an und wähle "Code anzeigen" aus => es öffnet sich das entsprechende Codemodul
- Kopiere folgenden VBA-Code in das Modul : 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [R13]) Is Nothing Then
Rows("24:26").Hidden = False 'Zuerst alle 3 Zeilen einblenden
Select Case [R13].Value
Case 1: Rows("24:26").Hidden = True
Case 2: Rows("25:26").Hidden = True
Case 3: Rows("26").Hidden = True
End Select
End If
End Sub

- Schließe den VBA-Editor (=> zurück zur Excelmappe)
- Teste das Verhalten nun durch Wertänderung in Zelle R13
Hier nochmal als Screenshot :
Userbild
Hinweis : Die Mappe muss nun als XLSM (oder im alten XLS-Format) gespeichert werden, damit der VBA-Code mit gespeichert wird !
Salut, NoNet

Anzeige
AW: Event-Macro in Codemodul des Tabellenblattes
09.04.2015 16:22:42
Alexander
Vielen Dank! Es funktioniert super wenn ich die Zahlen händisch eingebe, jedoch nicht wenn Sie mittels Index() über das Dropdownmenü automatisch eingefügt werden. Hättest du da auch noch eine Idee?
Grüße, Alex

Per Dropdown automatisch ? Was meinst Du ?
09.04.2015 16:29:54
NoNet
Hallo Alexander,
was meinst Du mit 
mittels Index() über das Dropdownmenü automatisch eingefügt werden

Ich ging davon aus, dass es sich bei Deinem "DropDown" über eine Gültigkeitsliste handelt, dann funktioniert der Code ?
Wenn Du die Funktion INDEX() verwendest, findet wohl irgendeine Berechnung zur Wertänderung statt !?!? - Dann könnte stattdessen folgender Code im Codemodul des Tabellenblattes besser passen :
Private Sub Worksheet_Calculate()
Rows("24:26").Hidden = False 'Zuerst alle 3 Zeilen einblenden
Select Case [R13].Value
Case 1: Rows("24:26").Hidden = True
Case 2: Rows("25:26").Hidden = True
Case 3: Rows("26").Hidden = True
End Select
End Sub
Teste das bitte und gib kurz Rückmeldung,
Danke - NoNet
Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum
Exceltreffen 15.-17.05.2015 in Dresden
http://www.exceltreffen.de/index.php?page=248
Anmeldungen sind noch bis 17.04.2015 möglich ! - Schau doch mal rein !

Anzeige
AW: Per Dropdown automatisch ? Was meinst Du ?
10.04.2015 08:57:48
Alexander
Guten Morgen,
also die Auswahl der Eingabe für R13 erfolgt über ein Kombinationsfeld(Formularsteuerelement). Hier sind die Zahlen 1-4 anwählbar.
Mit deinem neuen Code hängt sich das Programm nach Auswahl einer andere Zahl auf.
Grüße, Alex

408 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