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
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reihe für nur sichtbare Zellen bilden

Reihe für nur sichtbare Zellen bilden
22.11.2007 16:24:00
Hans
Hallo,
ich versuche, Zeilen mit ausgeblendeten Zwischenzeilen durchzunumerieren. Dies funktioniert, wenn die Zeilen manuell ausgeblendet sind über "Zellen markieren - gehe zu nur sichtbare Zellen - Bearbeiten Reihe".
Ich muss aber die gewünschten Zeilen erst herausfiltern, indem ich in mehreren Spalten die Filterbedingungen setze. Wenn ich dann den gleichen Weg versuche, ist die Funktion Reihe nicht benutzbar.
Gibt es eine andere Lösung?
Mit freundlichen Grüßen
Hans

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

Betreff
Datum
Anwender
Anzeige
AW: Reihe für nur sichtbare Zellen bilden
22.11.2007 17:26:55
Peter
Hallo Hans
in ein Standard-Modul

Public Sub Nummerieren()
Dim lZeile  As Long
Dim iLfdNr  As Integer
With Worksheets("Tabelle1") ' Blattnamen ggf. anpassen !!!
For lZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Not Rows(lZeile).EntireRow.Hidden Then
iLfdNr = iLfdNr + 1
Range("B" & lZeile).Value = iLfdNr
End If
Next lZeile
End With
End Sub


Gruß Peter

AW: Reihe für nur sichtbare Zellen bilden
23.11.2007 10:59:17
Hans
Hallo Peter,
vielen Dank für den Tip, aber leider bringt dieses Makro nicht das gewünschte Ergebnis.
Ich habe Deinen Makrotext in Modul 1 kopiert und den Blattnamen angegeben, in dem es laufen soll (prima wäre es, wenn das makro auch in der ganzen mappe ohne diese Angabe laufen würde).
Dann habe ich in der zu bearbeitenden Tabelle mir Spalte D auf "Leere" gefiltert, dann Spalte E auf "Leere" gefiltert. In dieser Spalte D habe ich dann den Anfangswert 1100 in einer Zelle eingetragen, diese Zelle mit ca 100 leeren Zellen darunter markiert und dann das Makro laufen lassen. Daraufhin wird die ganze Spalte B, die gar nichts damit zu tun hat von ser ersten Zeile an bis zum Schluss bei 1 angefangen durchnumeriert.
So sollte es aber nicht sein. Das makro sollte jetzt nur den markierten Bereich hochzählen, angefangen mit dem Wert, der in der ersten markierten Zelle steht.
Mit freundlichen Grüßen
Hans

Anzeige
AW: Reihe für nur sichtbare Zellen bilden
23.11.2007 17:12:48
Renee
Hi Hans,
Vielleicht geht's so ?

Sub Nummerieren()
Dim rC As Range
If Not (Val(Selection.Cells(1, 1).Value) = Selection.Cells(1, 1).Value _
And Selection.Cells.Count > 1) Then
MsgBox "Erste Zelle enthält keine Zahl!" & vbCrLf & _
"...und/oder es ist nur ein Zelle markiert!", _
vbOKOnly + vbExclamation, "Auto nummerieren"
Exit Sub
End If
Application.EnableEvents = False
Application.ScreenUpdating = False
lCount = Selection.Cells(1, 1).Value
For Each rC In Selection
If rC.EntireRow.Hidden = False Then
rC.Value = lCount
lCount = lCount + 1
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


GreetZ Renee

Anzeige
AW: Reihe für nur sichtbare Zellen bilden
23.11.2007 17:42:14
Hans
Hallo Renee,
super! Es funktioniert genau wie gewünscht. Recht herzlichen Dank
Hans

311 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 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
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15