Werte aus Zellen einer Spalte auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...könnte doch etwas im Archiv zu finden sein, Konni!
Ist bloß so 'ne Sache mit der Recherche... Bei Clever hatte ich neulich ein ähnliches Problem gelöst.
Wenn in A alles so regelmäßig steht wie in deinem Bsp, sollte die Lösung nicht allzu schwer sein...
Zuerst musst du dich entscheiden, in welchen Zeilen von D die zusamengefassten C-Werte ausgegeben wdn sollen - in allen, nur der jeweils ersten bzw jeweils letzten. Davon hängt schon mal die Formel ab. Schließlich muss die Fml die Zellen des Wertwechsels in A erkennen (WENN) und so dynamisch den jeweils zusammenzufassenden Zeilenbereich von C bestimmen. Das könnte bei deinem Aufbau fortlfd geschehen, wenn das Ergebnis kumulativ sein soll, d.h., solange der Wert in A nicht wechselt wird zum Wert der Vorgängerzeile von C der Wert der Zeile hinzugefügt (mit Operator &), wenn der Wert der C-Zeile ≠ Wert der C-Vorgängerzeile ist. In der letzten Zeile vor Wechsel in A stehen dann alle Werte (&"," jeweils voranstellen). Die anderen, unvollständigen Zeilenwerte können dann über die bedingte Formatierung "unsichtbar" formatiert wdn. Mit etwas mehr Aufwand ist auch noch Eleganteres möglich, aber dazu habe ich gerade keine Zeit. Probier mal!
Gruß Luc :-?

Sub Doppelte_Einträge_in_Spalte_löschen() 'Doppelte Werte in Spalte AP werden gelöscht ' Dim iRow As Integer For iRow = Range("AP19").CurrentRegion.Rows.Count To 2 Step -1 If Cells(iRow, 42) = Cells(iRow - 1, 42) Then Cells(iRow, 42).ClearContents End If Next iRow End Sub


Sub Doppeleinträge_aus_Spalten_löschen()
ScreenUpdating = False
Dim r, c As Variant
With Range("AP19:AP1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AQ19:AQ1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AR19:AR1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AS19:AS1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AT19:AT1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
With Range("AU19:AU1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AV19:AV1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
With Range("AW19:AW1018").Select
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c))  1 Then r(c).Value = ""
Next c
End With
End With
Application.CutCopyMode = False
Range("O19").Select
ScreenUpdating = True
End Sub

Viele Grüße: Konni

Beliebteste Forumthreads (12 Monate)

Werte aus Zellen einer Spalte auslesen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

343 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Zellen einer Spalte auslesen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

343 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread