Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
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
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle hinzufügen bei Auswahl DropdownMenü

Zelle hinzufügen bei Auswahl DropdownMenü
14.04.2016 16:11:45
Jones
Mal wieder schönen Guten Tag zusammen,
Ich habe mal wieder eine Frage.
Ist es möglich, bei einer bestimmen Auswahl eines DropdownMenüs eine Zelle darunter hinzuzufügen?
So sieht es bis jetzt aus:
https://www.herber.de/bbs/user/104967.jpg
Sprich wenn einer der zwei Werte mit "(Begründung)" ausgewählt wird, soll eine Zelle darunter hinzugefügt werden, was danach so aussehen soll.
https://www.herber.de/bbs/user/104968.jpg
Ich danke schon mal vorab für eure Hilfe.
MfG

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle hinzufügen bei Auswahl DropdownMenü
14.04.2016 17:47:39
Michael
Hallo!
Ist es möglich, bei einer bestimmen Auswahl eines DropdownMenüs eine Zelle darunter hinzuzufügen?
Ohne VBA ist es nicht möglich, zusätzliche Zeilen einzufügen bzw. aus-/einzublenden.
Was Du aber machen kannst, ist die Bedingte Formatierung dafür einzusetzen; das erfordert ggf. nur etwas Umstrukturierung Deines Tabellenblatt-Layouts (=Formular), als Bsp: https://www.herber.de/bbs/user/104971.xlsx
LG
Michael

AW: Zelle hinzufügen bei Auswahl DropdownMenü
14.04.2016 18:32:59
Werner
Hallo,
ich habe mal den Makrorekorder angeworfen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 17 And Target.Column = 8 Then
If Target.Offset(2, -1) = "" Then Exit Sub
If Target.Value Like "*Begründung*" Then
Rows("1:1").Copy
Rows("19:19").Insert shift:=xlDown
'*** Die Zeilenhöhe an deine Bedürfnisse anpassen ***
Rows("19:19").RowHeight = 40
With Range("H19")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Range("H19").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
Application.CutCopyMode = False
End Sub
Der Code gehört ins Code-Modul des Tabellenblattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts in das Codefenster kopieren. Der Code wird ausgeführt, sobald eine Auswahl im Drop-Down erfolgt.
Gruß Werner

Anzeige
AW: Zelle hinzufügen bei Auswahl DropdownMenü
14.04.2016 19:19:50
Werner
Hallo,
kleine Änderung, ich hatte die Zwischenzellen (Zwischenräume) nicht beachtet.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 17 And Target.Column = 8 Then
If Target.Offset(2, -2) = "" Then Exit Sub
If Target.Value Like "*Begründung*" Then
Rows("1:1").Copy
Rows("19:19").Insert shift:=xlDown
Rows("19:19").Insert shift:=xlDown
'*** Die Zeilenhöhe an deine Bedürfnisse anpassen ***
Rows("20:20").RowHeight = 6
'*** Die Zeilenhöhe an deine Bedürfnisse anpassen ***
Rows("19:19").RowHeight = 40
With Range("H19")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Range("H19").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Range("H19").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
Application.CutCopyMode = False
End Sub
Gruß Werner

Anzeige
AW: Zelle hinzufügen bei Auswahl DropdownMenü
15.04.2016 07:21:40
Jones
Guten morgen,
Sehr geil Werner. Klappt ohne Probleme! Was würde ich nur ohne das Forum machen.
Schönen Tag,
MfG

Für mich gibt's wohl leider keine Rückmeldung, owT
15.04.2016 08:28:15
Michael

328 Forumthreads zu ähnlichen Themen

Dropdown Menue zum Sheets wechseln
Peter

Hallo,
ich habe ein kleines Vorhaben: Ein DropDown Menue innerhalb der Sheets zur Sheetnavigation, dh.
A) Ich brauche in den Feldern A1, B1 auf jedem Tabellensheet ein Dropdown Menü.
B) Dieses Menü soll - wenn man es öffnet - alle vorhandenen Tabellensheets anzeigen.
C) Wenn man...
28.10.2008 14:57:47
Thread-ID: 1019959
4 Beiträge
Anzeige
Bilder über Dropdownmenü laden
Hardy

Hallo Zusammen,
ich würde gerne über ein Dropdownmenü unterschiedliche Bilder in einem Excelarbeitsblatt anzeigen lassen. Es gibt 4 unterschiedliche Bilder die angezeigt werden sollen.
Nun meine Fragen:
Wie kann ich über ein Dropdownmenü ein Makro starten.
Und wenn das Makro dan...
21.07.2009 15:15:34
Thread-ID: 1090284
2 Beiträge
Drop Down Menü formatieren
Guido

Hallo,
hab eine Frage zur Formatierung eines Drop Down Menü:
habe ein Drop-Down-Menü erstellt (mit „Daten - Gültigkeit“ usw.) und ein davon abhängiges 2. Menu (über indirekten Bezug auf den Namen). Funktioniert soweit problemlos.
Nun hätte ich gerne noch, dass wenn der Eintrag im 1...
28.07.2009 20:01:27
Thread-ID: 1092006
5 Beiträge
Anzeige
Zelle unter DropDown-Menü / ComboBox
Markus

Hallo zusammen,
ich möchte das eine Gültigkeitsliste über eine ComboBox angezeigt und per DropDown ausgewählt werden kann (wegen Anzeige einer größeren Auswahlliste). Soweit so gut. Jetzt ist es aber so, dass die ComboBox logischerweise über einer Zelle liegt die per Pfeiltaste angesteuert...
03.09.2009 20:04:55
Thread-ID: 1100305
4 Beiträge
Dynamisches Diagramm mit Dropdown-Menü
lorenz1980

Hey,
nachdem Beverly mein erstes großes Problem grandios gelöst hat, ein weiteres :-/
Situation: Ich habe eine Tabelle mit vielen Spalten, wie z.b.:
Höhe - Länge - Breite - Masse - Tempo - Wert
Nun hätte ich gerne ein neues Datenblatt, in dem es zb. zwei Dropdown-Menüs gibt: das...
24.09.2009 23:38:34
Thread-ID: 1105388
6 Beiträge
Zellenformat per Dropdownmenü
Jan

Hello Excelianer,
ich möchte in einer Spalte Geldbeträge in verschiedenen Währungen auflisten.
Um die Bedienfreundlichkeit zu gewährleisten, würde ich gern das Währungsszeichen als Drop-Down Menü zur Verfügung stellen.
Das ganze sähe dann idealerweise so aus:
Der Nutzer trägt ei...
03.12.2009 17:42:25
Thread-ID: 1121636
2 Beiträge
Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Judith

Hallo,
ich muss eine ellenlange Liste mit Datensätzen erstellen in die viele Gültigkeitslisten eingebaut sind.
Dazu habe ich einen Code gefunden bei dem die Gültikeitsliste einer Zelle beim Aktivieren sofort aufklappt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On...
10.03.2010 11:55:02
Thread-ID: 1144720
6 Beiträge
variables Drop-down-Menü
Dirk

Hallo Forum,
gibt es eine Möglichkeit eine Dropd-down-Liste (über die Gültigkeitsfunktion angelegt) variabel zu gestalten. Sprich: Wenn in Spalte A bspw. eine "1" steht, dann nutze die Liste "Inhalte Block 1" und wenn eine "2" dort steht, dann nutze die Liste "Inhalte Block 2"
Generell...
08.06.2010 11:08:31
Thread-ID: 1160787
6 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
3
1
1
4
3
3
5
1
5
5
2
4
11
4
9
3
7
6
5
1
2
4
8
4
2