Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verlinkte Zeilen automatisieren

Forumthread: Verlinkte Zeilen automatisieren

Verlinkte Zeilen automatisieren
Dave
Hallo zusammen,
ich habe ein Aktualisierungsereignis. Mein Tabellenblatt ist in zwei mal 24 Zeilen (81-104) und (114-137)aufgeteilt, wobei nur die Spalte C beschreibbar ist. Ich würde generell die Zeilen 114-137 ausblenden, und diese mit jedem neuen Eintrag der Zeilen 81-104 Zeilenweise einblenden. Dabei sollte der Wert in 81 auch in 114 wieder auftauchen, der Wert in 82 wieder in 115 usw. ?
Für Anregungen freue ich mich!
Schönen Abend, Dave
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verlinkte Zeilen automatisieren
31.01.2010 11:19:38
fcs
Hallo Dave,
hier mein Vorschlag.
Im VBA-Editor muss du die Prozedur unter dem Tabellenblatt einfügen, in dem die Aktionen ausgeführt werden sollen.
Gruß
Franz 
Private Sub Worksheet_Change(ByVal Target As Range)
'Überwachung von Zellewertänderungen
Dim Zelle As Range, Bereich As Range
'Prüfen, ob geänderte Zellen mit dem Zellbereich überlappen
Set Bereich = Me.Range("C81:C104") 'zu prüfender Zellbereich
If Not Intersect(Target, Bereich) Is Nothing Then
With Application
.ScreenUpdating = False
.EnableEvents = False
Me.Unprotect 'nur einbauen, wenn Blattschutz verwendet wird
' geänderte Zellem abarbeiten'
For Each Zelle In Target
If Zelle.Row >= Bereich.Row _
And Zelle.Row = Bereich.Column _
And Zelle.Column

Anzeige
AW: Verlinkte Zeilen automatisieren
01.02.2010 13:37:51
Dave
Hallo Franz,
vielen Dank! Wow. Ich habe noch ein Problem: ich schalte mit dem Befehl Application.Goto auf das entsprechende Tabellenblatt. Jetzt läuft aber der Code irgendwie endlos und beim debuggen, bleibt er in deinem Code bei "End With" hängen. Ich muss dazusagen, dass ich beim Umschalten auf das Tabellenblatt die Zeilen 81-104 mittels einer for schleife und Sheets("Tabelle1").Cells(Spalte1, 3).Value ="" lösche! Hat das vlt. damit zu tun, dass sich die Zeilen 114-137 dann endlos aktualisieren?
Schöne Grüße, Dave
Anzeige
AW: Verlinkte Zeilen automatisieren
01.02.2010 16:13:46
fcs
Hallo Dave,
es sollte eigentlich nicht zu einer Endlosschleife kommen. Deine For-Next-Schleife zum Löschen löst aber in jedem Durchlauf dieses Ereignismakro aus.
Deaktiviere in deinem Makro am Anfang die Ereignismakros mit
Application.EnableEvents = False
und aktiviere sie am Ende wieder mit
Application.EnableEvents = True
Zum Löschen der Inhalte in einem Zellbereich sollte man aber keine Schleifen benutzen, sondern direkt den gesamten Bereich ansprechen. 
With Sheets("Tabelle1")
.Range(.Cells(81, 3), .Cells(104,3)).ClearContents
'oder - wenn denn Leerstrings drinstehen sollen
.Range(.Cells(81, 3), .Cells(104,3)).Value = ""
End With

Das geht deutlich schneller.
Gruß
Franz
Anzeige
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Zeilen nach Abfrage einfärben
Dirk

Hallo, ich möchte gerne in einer Tabelle folgendes abfragen:
Wenn in Spalte P der Wert kleiner 0 ist, dann färbe mir die
Entsprechenden Zeilen in Spalte A,B,C, ein.
Mit der bedingten Formatierung haut so etwas nicht hin.
Wer hat eine einfache Idee ?
Gruß Dirk
04.09.2008 07:51:44
Thread-ID: 1007267
5 Beiträge
Anzeige
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
2 Zeilen einfügen + Schleifenweiterlauf
Herbert

Hallo zusammen,
ich bin neu hier und sehr begeistert von diesem Forum/dieser Website - wirklich toll, dass es so etwas gibt:-)
Allerdings habe ich ein kleines VBA-Problem.....
Dim reihe As Integer
Const spalte As Integer = 5 ' Spalte Teilebezeichnung
reihe = 3 ' Tabelle...
16.09.2008 20:06:00
Thread-ID: 1010193
5 Beiträge
Zeilen löschen verhindern
steffen

Hallo Excelgemeinde,
ich scheiere gerade an dem Versuch, mein Tabellenblatt so zu sichern, dass auch nach dem "Blattschutz aufheben" ein Löschen von Zeilen nicht möglich ist. Das einfachste wäre natürlich ein Blattschutz mit Kennwort. Das will ich aber nicht.
Ich dachte da an sowas, wie...
22.09.2008 10:46:33
Thread-ID: 1011401
2 Beiträge
Makro zur Zeilen löschen verfeinern
Matthias

Hallo Zusammen,
ich habe ein Makro, das alle Zeilen löscht in denen kein Inhalt steht.
Allerdings würde ich das Makro gerne so anpassen, dass er eine Zeile komplett löscht, wenn in einer bestimmten Spalte die Zelle leer ist.
Das Makro soll also nicht die gesamte Zeile nach Inhalten...
22.09.2008 13:23:19
Thread-ID: 1011460
4 Beiträge
optimale Zeilenhöhe einer Zeile
Jakob

Hallo,
ich habe ein kleines Problem mit der optimalen Höhe einer Zeile und vielleicht habt Ihr eine Lösung für mein Problem.
Man kann ja unter Zellen formatieren/Textsteuerung den Haken bei Zeilenumbruch anklicken und Excel paßt die Zeilenhöhe automatisch an. Soweit so gut. Wenn ich abe...
24.09.2008 15:24:00
Thread-ID: 1012091
7 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Anzeige
Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige