Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung nach unten - bis erste Zeile nicht ausg

Markierung nach unten - bis erste Zeile nicht ausg
12.07.2018 10:08:17
Peter
Guten Tag
Mit diesem Code kann ich die bestehende Selection jeweils eine Zeile nach unten verschieben.
Nun möchte ich, dass die diese Aktion wiederholt wird, wenn nach dem Verschieben die erste Zeile vollständig (ENTIREROW) ausgeblendet ist. Ich dachte, ich könne das mit einem Loop machen
Do While ActiveCell.Offset(1, 0).EntireRow.Hidden = True
Loop
doch irgendwie bleibt die Markierung immer and der gleichen Stelle.
Gruss, Peter
Sub OffsetToDown()
'' Tastenkombination: Strg+Umschalt+D
Dim AktiveZelle As Range
Set AktiveZelle = ActiveCell
If Selection.Row

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

Betreff
Datum
Anwender
Anzeige
AW: Markierung nach unten - bis erste Zeile nicht ausg
12.07.2018 18:02:45
Barbaraa
Hi Peter,
vielleicht verwechselst Du Select mit Activate.
Folgender Code zeigt den Unterschied: 
Sub Rechteck()
Dim AktiveZelle As Range
Set AktiveZelle = Range("B2:E9")
AktiveZelle.Select
AktiveZelle.Offset(3, 0).Activate
End Sub
Ausgeblendete Zeilen oder Spalten sollten den Ablauf nicht beeinflussen.
LGB
AW: Markierung nach unten - bis erste Zeile nicht ausg
13.07.2018 09:26:07
Peter
Hallo Barbara
In der Zwischenzeit habe ich eine Lösung gefunden: 
Sub OffsetToDownVisible()
Dim Zeile As Long, Zähler As Long, AktiveZelle As Range
Set AktiveZelle = ActiveCell
Zeile = ActiveCell.Row
Zähler = ActiveCell.Row
With ActiveSheet
Do
Zähler = Zähler + 1
Loop Until Rows(Zähler).Hidden = False
Selection.Offset(Zähler - Selection.Row, 0).Select
AktiveZelle.Offset(Zähler - Zeile, 0).Activate
End With
End Sub
Die Differenzierung von Select und Activate hat im vorliegenden Fall folgende Bewandtnis:
Beispiel / Ausgangslage
Im aktiven Excel-Worksheet sind die Zeilen 6-19 ausgeblendet.
Markiert ist B5:D5, wobei Zelle D5 aktiv ist.
Wenn ich nun meinen Code ablaufen lasse, ist anschliessend B20:D20 markiert, wobei die Zelle D20 aktiv ist.
Wenn ich im Code die Zelle "AktiveZelle.Offset ......." auskommentiere, und die gleiche Aktion durchführe, ist am Schluss auch B20:D20 markiert - allerdings ist dann Zelle B20 (und nicht wie gewünscht D20) aktiv.
Gruss, Peter
Anzeige
Danke für die schöne Aufgabe.
13.07.2018 15:25:28
Barbara
Hallo Peter,
na, da bin ich ja gar nicht so schlecht gelegen mit Deinen Angaben, die ich bis dahin hatte.
Freut mich, dass Du selbst eine geeignete Lösung gefunden hast. Mit den letzten Angaben ist das Problem auch einleuchtend. Du hast nun zum Beispiel erklärt, dass Du mit "Erste Zeile" die nächste Zeile meinst.
Danke für die schöne Aufgabe. Ich freue mich immer wieder über solche Herausforderungen.
LGB

305 Forumthreads zu ähnlichen Themen

Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Anzeige
Nur bestimmte Zeilen kopieren
Swetlana

Hi liebe Excel-Profies,
kann mir bitte jemand helfen...
Mein folgender Code kopiert mir die kompletten Arbeitsmappen...
Ich würde es aber gerne so haben, dass er mir nur die Zeilen die "P64" enthalten kopiert und in die andere Datei überträgt.....
Was muss ich ändern?
Su...
01.06.2011 06:44:38
Thread-ID: 1216949
3 Beiträge
Erste Leere Zeile wird nicht erkannt
Matthias

Hallo,
ich bin schon wieder überfordert und brauche Rat.
in der ersten Zeile stehen die Spalten-Überschriften (mit oder ohne Autofilter versucht)
Dann soll mir das unten stehen Makro die darunter liegende leere Zeile finden und den Übertrag aus der Userform übertragen.
Und nu:<...
26.06.2011 12:39:42
Thread-ID: 1219738
5 Beiträge
Anzeige
Nur bestimmte Zeilen Kopieren in eine neue Tabelle
Frank

Hallo zusammen.
Ich würde gerne wissen inwiefern man das folgende evtl. lösen kann.
In Tabelle 1 stehen folgende Daten:
Name Wert1 Wert2
Thomas 150 2
Tina 250...
26.06.2013 12:47:02
Thread-ID: 1319825
5 Beiträge
Ausgabe einer Zahl nur in ganz bestimmten Zeilen
Christian

Hallo alle zusammen,
hoffe es hat jemand eine Lösung für mein Problem.
hänge eine Tabelle an, suche eine Formel, die in Spalte G eine 1 in die letzte Zeile schreibt, in der in Spalte D oder E eine 1 steht, eine 2 in die letzte Zeile, in der eine 2 steht, eine 3 in der letzten Zeile, in...
09.09.2013 14:38:55
Thread-ID: 1330027
4 Beiträge
In Listbox nur bestimmte Zeilen einlesen
Andreas

Hallo zusammen,
ich stehe mit dem gesamten Bereich der Listboxen extrem auf Kriegsfuss und bräuchte daher mal Eure Unterstützung.
Mit folgendem Code lese ich den Inhalt des Tabellenblattes "Artikel" in die ListBox1 ein :
Private Sub UserForm_Initialize() With Sheets("Artikel") ListB...
08.02.2014 22:28:51
Thread-ID: 1348719
19 Beiträge
Erste Zeile nicht mitkopieren
janesch

Hallo Excel-Freunde,
habe mir hier folgendes sehr nützliches VBA Code gefunden.
Private Sub Zusammenführen() Dim wksT As Worksheet Dim wksS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets....
19.02.2014 11:34:27
Thread-ID: 1350337
3 Beiträge
Nur bestimmte Zeilen einer Matrix in ein neues Tab
Axel

Hallo zusammen,
Basis ist eine Matrix, Spalten A:AA, die sich monatlich in der Zeilenanzahl verändert, wobei die Spaltenanzahl und -überschriften gleich bleiben.
In Spalte V stehen Euro-Beträge. Ich muss bestimmte Spalten in ein Buchungsformular übertragen, aber nur von den Datensätzen,...
08.05.2014 15:30:23
Thread-ID: 1360537
5 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
29
2
2
4
2
4
3
18
2
4
2
12
1
7
6
2
2
3
2
11
6
4
3
3
3