Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Eingabe in Zelle Einblenden der nächsten Zeil

Bei Eingabe in Zelle Einblenden der nächsten Zeil
04.02.2004 16:06:18
Detlef
Hallo XL-Perten,
bei Eingabe eines Textes (Bsp. "SI" oder "US") in eine Zelle soll die bis dahin ausgeblendete nächste Zeile eingeblendet werden. Geht das nur per Makro oder gibts dafür eine Formel?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Eingabe in Zelle Einblenden der nächsten Zeil
04.02.2004 16:10:51
Andreas Walter
Hierfür gibt es keine Formel.
Du brauchst Makro siehe z.B.
https://www.herber.de/forum/messages/376472.html
Das ist ein Beispiel, wie man etwas "überwacht", ob etwas in einer Zelle verändert wird
Der Begriff ist Worksheet_Change
Mit dem Makro Recorder, kannst Du den befehl finden zum einblenden einer Zeile
AW: Bei Eingabe in Zelle Einblenden der nächsten Zeil
04.02.2004 16:18:20
Bernd Kiehl
Hallo Detlef
ich nutze folgendes Beispiel bei mir:
-Zeile A1 bis E1 enthällt Überschriften.
-Zeile A2 bis E2 werden die ersten werte eingegeben, bei verlassen der Zelle E2 nach Werteingabe setzt nachfolgendes Makro ein, d.h. es wird dann die nächste Zeile inklusive aller Formeln und Formatierungen übernommen, allerdings ohne Werte.
...........

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("E:E")) Is Nothing And Target.Cells.Count = 1 Then
If Target.Offset(1, -4) = "" And Target <> "" Then
Application.EnableEvents = False
Range(Target.Offset(0, -4), Target.Offset(1, 0)).FillDown
Range(Target.Offset(1, -4), Target.Offset(1, 0)).ClearContents
Application.EnableEvents = True
End If
End If
End Sub

.................
.. eventuell deinen Bedürfnissen anpassen.
Userbild
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige