Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 16:16:08
In einer Zelle die Anzahl der Zahlen zählen die durch ; getr
06.11.2025 16:14:37
Danke an Uduuh
06.11.2025 15:49:58
bedingter Formatierung
06.11.2025 14:26:08
Nur Werte Kopieren und Einfügen
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in gefilterter Liste hochzählen

Forumthread: Werte in gefilterter Liste hochzählen

Werte in gefilterter Liste hochzählen
17.01.2014 00:07:52
Inge
Hallo EXCEL-Fans,
bitte, kann mir jemand helfen? Ich such' mir 'nen Wolf ...
Meine Datei hat Werte (Zahlen) in der Spalte M. Diese stellen eine Rangfolge der Zeilen(einträge) dar und werden als Wert in die Zelle eingetragen (ist auch okay so). Die Anzahl der Zeilen mit Rang (also mit Eintrag in M) variiert. Die Spalte M hat auch leere Zellen.
Wenn ich eine Zeile lösche, in der in der Spalte M ein 'Rang' eingetragen war (z.B. Rang 20), habe ich in der Rangfolge eine Lücke (Rang 1 - 19 und 21 bis nn). Diese behebe ich bisher manuell (in freie Zelle eine 1 eintragen, Zelle kopieren, in Spalte M benutzerdefinierter Filter 'größer oder gleich' 20, Gehe zu .., Inhalte, nur sichtbare Zellen, Inhalte einfügen, addieren, Filter in M wieder raus, die anfangs eingetragene 1 wieder löschen).
Ich bastele an einem Makro (mit InputBox für den Autofilter), krieg's aber nicht hin. Wahrscheinlich denke ich zu kompliziert. Über Hilfe würde ich mich riesig freuen.
Gruß Inge

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Werte in gefilterter Liste hochzählen
17.01.2014 08:00:28
fcs
Hallo Inge,
die entsprechende Korrektur funktioniert auch ohne setzen des Filters, Die Wertprüfung kann man im Makro einbauen.
Gruß
Franz 
Sub RangKorrigieren()
Dim wks As Worksheet
Dim lngZeile As Long
Dim lngRang As Variant
Dim lngSpalte As Long
lngSpalte = 13 'Spalte M = zu korrigierende Spalte
lngRang = Application.InputBox("Ab welcher Zahl soll Rang korrigiert werden?", _
Title:="Rang korrigieren", Type:=1)
If lngRang = False Then Exit Sub
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For lngZeile = 2 To .Cells(.Rows.Count, lngSpalte).End(xlUp)
With .Cells(lngZeile, lngSpalte)
If IsNumeric(.Text) And .Value >= lngRang Then
.Value = .Value - 1
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Werte in gefilterter Liste hochzählen
17.01.2014 15:50:09
Inge
Hallo Franz,
vielen Dank für die schnelle Antwort.
Das Makro erzeugt in der Zeile
For lngZeile = 2 To .Cells(.Rows.Count, lngSpalte).End(xlUp)
bei mir einen "Laufzeitfehler 13 - Typen unverträglich".
Habe ich vielleicht das falsche Format in den Werten oder Zellen? Werte sind Zahlen (mit ISTZAHL geprüft), Zellenformat = Standard.
Gruß Inge

Anzeige
AW: Werte in gefilterter Liste hochzählen
17.01.2014 17:18:03
Inge
.

AW: Werte in gefilterter Liste hochzählen
18.01.2014 01:01:33
fcs
Hallo Inge,
da hab ich noch eine Kleinigkeit übersehen, die mir beim Testen nicht aufgefallen ist.
Gruß
Franz
Sub RangKorrigieren()
Dim wks As Worksheet
Dim lngZeile As Long
Dim lngRang As Variant
Dim lngSpalte As Long
lngSpalte = 13 'Spalte M = zu korrigierende Spalte
lngRang = Application.InputBox("Ab welcher Zahl soll Rang korrigiert werden?", _
Title:="Rang korrigieren", Type:=1)
If lngRang = False Then Exit Sub
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
For lngZeile = 2 To .Cells(.Rows.Count, lngSpalte).End(xlUp).Row   'Korrektur
With .Cells(lngZeile, lngSpalte)
If IsNumeric(.Text) And .Value >= lngRang Then
.Value = .Value - 1
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Werte in gefilterter Liste hochzählen
19.01.2014 16:52:01
Inge
Hallo Franz,
fantastisch!! Vielen lieben Dank, das Makro ist mir eine echte Hilfe!
Gruß Inge
;

Forumthreads zu verwandten Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Dateien suchen im Laufwerk zwischen 2 Datums
chris

Hallo VB experten ich komme ich weiter und bitte euch um Hilfe.
ich habe in einem Laufwerk Dateien mit folgenden Namen in der art von diesen hier.
"ScanHistory_test_4226_2008_04.Log" jetzt möchte ich in einer userForm(habe sie bereits erstelt mit zwei feldern für Datum (Datum_von - D...
14.11.2008 10:21:22
Thread-ID: 1024451
4 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
@ Tino wg. 100 Excellisten durchsuchen
Jessi

Hallo Tino,
Du hast nachträglich auf mein vorheriges Posting folgenden Code gepostet:
Option Explicit
Sub Test() Dim Fso, Ordner, varDatei Dim DateiName As String Dim i As Long 'ab welcher Zeile einfügen i = 2 Set Fso = CreateObject("Scripting.FileSystemObject") 'hier Pfad angeben...
20.11.2008 08:20:00
Thread-ID: 1026299
16 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