Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zusammenfassen

Zeilen zusammenfassen
06.02.2017 11:12:39
Hauke
Guten Morgen, oder schon fast Mahlzeit. ;)
ich habe mal garkeine Idee, wie man soetwas bewerkstelligen könnte:

Die Datei https://www.herber.de/bbs/user/111235.xls wurde aus Datenschutzgründen gelöscht


In dieser Datei brauche ich die Gründe 450, 451, 452, ... und direkt daneben die Gesamtanzahl jeweils von "Vorgang gesamt" extrahiert. Vielleicht kann man das ja irgendwie mit VBA lösen.
Viele Grüße,
Hauke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zusammenfassen
06.02.2017 12:26:25
Dieter
Hallo Hauke,
wenn ich deine Anforderung richtig verstehe, dann kannst du das mit dem folgenden Programm machen 

Sub Zusammenfassung()
Dim letzteZeileS As Long
Dim wb As Workbook
Dim wsS As Worksheet
Dim wsZ As Worksheet
Dim zeileS As Long
Dim zeileZ As Long
Set wb = ThisWorkbook
Set wsS = wb.Worksheets("Sheet1")
Set wsZ = wb.Worksheets("Ziel")
wsZ.UsedRange.ClearContents
letzteZeileS = wsS.Cells(wsS.Rows.Count, "A").End(xlUp).Row
zeileS = 1
zeileZ = 1
Do Until IsEmpty(wsS.Cells(zeileS, "A"))
If IsNumeric(wsS.Cells(zeileS, "A")) And _
Not IsDate(wsS.Cells(zeileS, "A")) Then
wsZ.Cells(zeileZ, "A") = wsS.Cells(zeileS, "A")
Do Until wsS.Cells(zeileS, "A") = "Vorgang gesamt:" Or _
zeileS > letzteZeileS
zeileS = zeileS + 1
Loop
wsZ.Cells(zeileZ, "B") = wsS.Cells(zeileS, "B")
zeileZ = zeileZ + 1
End If
zeileS = zeileS + 1
Loop
wsZ.Activate
End Sub
Ich habe in deine Arbeitsmappe in zusätzliches Blatt namens "Ziel" eingefügt. Die Mappe findest du hier:
https://www.herber.de/bbs/user/111240.xls
Viele Grüße
Dieter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige