Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verbinden

Zeilen verbinden
30.12.2014 20:15:45
hopperdietzel

Ich suche eine einfache Möglichkeit, in Excel Zeilen zusammenzufassen, wenn jeweils der Wert in der ersten Zelle der Zeile gleich ist.
Ich habe mal eine Beispieldatei auf dem Server abgelegt:

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

Über eine einfache Lösung würde ich mich freuen, von VBA habe ich leider (noch) keine Ahnung.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verbinden
31.12.2014 12:45:59
Dieter Klemke
Hallo Hopperdietzel,
du kannst das mit dem folgenden VBA-Programm machen: 
Sub Zusammenfassen()
Dim letzteZeile As Long
Dim spalte As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets("Arbeitsblatt1")
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If letzteZeile < 2 Then Exit Sub
For zeile = letzteZeile To 3 Step -1
If IsEmpty(ws.Cells(zeile, "A")) Then
' Eine Zeile wird gelöscht, wenn in Spalte A kein Wert steht
ws.Rows(zeile).Delete
Else
If ws.Cells(zeile, "A") = ws.Cells(zeile - 1, "A") Then
' Werte in der Zeile zeile-1 zusammenfassen
For spalte = 2 To 10
If Not IsEmpty(ws.Cells(zeile, spalte)) Then
ws.Cells(zeile - 1, spalte) = ws.Cells(zeile, spalte)
End If
Next spalte
' Zeile zeile wird gelöscht
ws.Rows(zeile).Delete
End If
End If
Next zeile
End Sub
Voraussetzung - wie in deiner Datei erfüllt - es gibt zu einem Identmerkmal immer nur höchstens 2 Sätze und die stehen direkt hintereinander.
Du startest das Programm durch Klick auf die Schaltfläche "Start".
Hier ist die Arbeitsmappe mit dem Programm:
https://www.herber.de/bbs/user/94674.xls
Viele Grüße und einen guten Rutsch
Dieter

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige