Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife in gefilterten Tabelle

Schleife in gefilterten Tabelle
06.03.2017 12:25:29
Peter
Hallo Zusammen,
in einer gefilterten Tabelle sollen die Werte der Saplte 13 per VBA aufsummiert werden.
Zeile----Spalte
1327 cells(1327,13)
2453 cells(2453,13)
6217 cells(6217,13) 

For Each rngZ In Range("B:B").SpecialCells(xlCellTypeVisible)
Next rngZ

Wie werden die einzelnen Zeilen angesprochen. Die Schleife (Aufsummierung) soll nur über diese drei Zeilen durchgeführt werden.
Hat jemand einen Bsp.-Code?
Für Eure Hilfe bedanke ich mich voraus,
Gruß, Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife in gefilterten Tabelle
06.03.2017 12:47:37
Matthias
Hallo
Dim rngZ As Range, Summe As Double
For Each rngZ In Range("B:B").SpecialCells(xlCellTypeVisible)
Summe = Summe + rngZ
Next rngZ
MsgBox Summe
Gruß Matthias
Formel Teilergebnis
06.03.2017 12:52:20
Zwenn
Hallo Peter,
nur sichtbare gefilterte Werte kann man mit Teilergebnis direkt berechnen lassen. Wie die Formel auf englisch heißt, um sie in VBA zu verwenden musst Du glaube ich den englischen Funktionsnamen SUBTOTAL() verwenden.
Hier findest Du eine Beschreibung, was Du mit der Formel anstellen kannst:
https://support.office.com/de-de/article/TEILERGEBNIS-Funktion-7b027003-f060-4ade-9040-e478765b9939
Viele Grüße,
Zwenn
Anzeige
AW: Schleife in gefilterten Tabelle
06.03.2017 12:56:12
Werner
Hallo Peter,
war gerade am Code hier rein kopieren, da habe ich den Hinweis von Zwenn auf SUBTOTAL gesehen. Da ist auch mein Vorschlag.
Der Code schreibt das "Teilergebnis" in eine Variable und gibt das in einer MessageBox aus. Du kannst das Ergebnis natürlich auch in eine Zelle schreiben.
Public Sub Teilergebnis()
Dim Ergebnis As Double
With Sheets("Tabelle1")
Ergebnis = WorksheetFunction.Subtotal(9, .Columns(2))
MsgBox Ergebnis
End With
End Sub
Vorteil von Subtotal wäre, dass du keine Schleife über was weiß ich wieviele Zellen laufen zu lassen.
Gruß Werner
Anzeige

307 Forumthreads zu ähnlichen Themen

Autofilter Kopieren und Einfügen
erich

Hallo Excelprofis,
erstmal danke für die vielen hilfen die ich hier bekommen habe.
nun zu meinen Problem:
ich habe eine Tabelle in der Taktzeiten erfast werden (Spalte A Beschreibung Spalte C Zeitdaten und in der Spalte F in die Taktbezeichnung hinterlegt z.B. Takt1, Takt2 usw.
...
07.10.2008 19:34:43
Thread-ID: 1014801
3 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
3 Beiträge
Anzeige
Filtern, kopieren und absteigend sortieren
Dani

Hi @ all!
Leider muss ich mich schon wieder an euch wenden. Und zwar hab ich immer noch folgenden Code, der aus dem aktiven Tabellenblatt Daten filtert und dann kopiert.
Sub FilternKopierenTGA()
Dim rngAct As Range
With Worksheets("TGA")
.Cells.Clear
Range("N1").AutoFilt...
14.07.2009 22:40:17
Thread-ID: 1088668
3 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
userform in tabellenblatt einfügen
Fredy

Hallo alle
Ich versuche schon seit langem eine Datenbank zu erstellen was bis hier auch gut Klappt
Nun komme in nicht mehr weiter weil ich null Ahnung von VBA Habe
In der Vorlage TM2Rapport Datenbank habe ich ein UserForm Erstellt das ich über ein Makro auf rufen kann
Nun kom...
30.10.2009 09:40:59
Thread-ID: 1113242
9 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Anzeige

Links zu Excel-Dialogen

MessageBox

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
2
5
2
2
2
2
1
8
8
2
1
14
4
11
10
6
1
31
1
8
9
11
1
2
2