doppelte werte in zeile -> pro wert in a eine zeil

Forumthread: doppelte werte in zeile -> pro wert in a eine zeil

03.10.2017 19:38:49

Stefan

Hallo
ich habe ein Excel generiert von einem Programm.
In der Spalte a sind so was wie Artikel Nummer, in b ein Kennzeichen mit einer Zahl am Ende.
Pro Artikel können mehrere Zeilen auftreten.
Ziel ist es die zusammen zufassen
teil 2 5 6 7 8 9
11-2012-001 GHS05 GHS07
11-2012-003 GHS02 GHS05
11-2012-004 GHS02
11-2012-005 GHS02 GHS07 GHS08
13-0022-001 GHS02
13-0022-001 GHS05
13-0022-001 GHS07
13-0023-001 GHS02
13-0023-001 GHS07
13-0023-001 GHS08
2001-003-1 GHS02
5442-015 GHS07
8001-019-1 GHS02
8001-019-1 GHS05
8001-019-1 GHS08
8001-019-1 GHS07
Alos in B alle die mit 2 enden, in C alle die mit 5 enden, in d alle die mit 6 enden etc.
Wer kann mir helfen, am Besten ein Makro.
Das Excel hat zirka 5000 Zeilen und die Aufgabe gibt es in ähnlicher Form noch an anderen Stellen.
Danke und Grüsse
S.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beispielmappe bitte

04.10.2017 11:03:46

Michael
AW: doppelte werte in zeile -> pro wert in a eine zeil

04.10.2017 20:11:20

Stefan
Soll uns recht sein ;-), owT

05.10.2017 09:15:09

Michael

Beispielmappe bitte

04.10.2017 11:03:46

Michael

Hallo Stefan!
Zeig uns doch bitte einen Auszug Deiner Daten und ein gewünschtes Ergebnis in einer Beispielmappe, in der Form wie es bei Dir im Original vorliegt, damit wir uns vorstellen können, was Du hast und was Du willst. Die Menge an Daten kann Deiner oben geposteten entsprechen.
LG
Michael

AW: doppelte werte in zeile -> pro wert in a eine zeil

04.10.2017 20:11:20

Stefan

Ich habe es so gelöst:

Sub zusammenfassen()
Dim such1 As String
Dim such2 As String
Dim GHS As String
Dim i As Integer
Dim y As Integer
i = 1
y = 1
Sheets("Prod Rez").Activate
'schleife zum durchlaufen der arbeitsblattes
For i = 1 To ActiveSheet.UsedRange.Rows.Count
such1 = Cells(i + 1, 1).Value
such2 = Cells(y + 2, 1).Value
GHS = Cells(i + 1, 2)
'abfangen GHS in erster zeile
Select Case Right(GHS, 1)
Case 2
Cells(i + 1, 2) = GHS
Case 5
Cells(i + 1, 3) = GHS
Case 6
Cells(i + 1, 4) = GHS
Case 7
Cells(i + 1, 5) = GHS
Case 8
Cells(i + 1, 6) = GHS
Case 9
Cells(i + 1, 7) = GHS
End Select
'nun alle dupliakte suchen
For y = i + 1 To ActiveSheet.UsedRange.Rows.Count
such2 = Cells(y + 1, 1).Value
If such1 = such2 Then
GHS = Cells(y + 1, 2)
'werte setzen
Select Case Right(GHS, 1)
Case 2
Cells(i + 1, 2) = GHS
Case 5
Cells(i + 1, 3) = GHS
Case 6
Cells(i + 1, 4) = GHS
Case 7
Cells(i + 1, 5) = GHS
Case 8
Cells(i + 1, 6) = GHS
Case 9
Cells(i + 1, 7) = GHS
End Select
' zeile löschen
Cells(y + 1, 1).EntireRow.Delete
y = y - 1
End If
Next y
Next i
End Sub

Sub zusa_labor()
Dim such1 As String
Dim such2 As String
Dim GHS As String
Dim i As Integer
Dim y As Integer
i = 1
y = 1
Sheets("Labor Rez").Activate
'schleife zum durchlaufen der arbeitsblattes
For i = 1 To ActiveSheet.UsedRange.Rows.Count
such1 = Cells(i + 1, 1).Value
such2 = Cells(y + 2, 1).Value
GHS = Cells(i + 1, 2)
'abfangen GHS in erster zeile
Select Case Right(GHS, 1)
Case 2
Cells(i + 1, 2) = GHS
Case 5
Cells(i + 1, 3) = GHS
Case 6
Cells(i + 1, 4) = GHS
Case 7
Cells(i + 1, 5) = GHS
Case 8
Cells(i + 1, 6) = GHS
Case 9
Cells(i + 1, 3) = GHS
End Select
'nun alle dupliakte suchen
For y = i + 1 To ActiveSheet.UsedRange.Rows.Count
such2 = Cells(y + 1, 1).Value
If such1 = such2 Then
GHS = Cells(y + 1, 2)
'werte setzen
Select Case Right(GHS, 1)
Case 2
Cells(i + 1, 2) = GHS
Case 5
Cells(i + 1, 3) = GHS
Case 6
Cells(i + 1, 4) = GHS
Case 7
Cells(i + 1, 5) = GHS
Case 8
Cells(i + 1, 6) = GHS
Case 9
Cells(i + 1, 3) = GHS
End Select
' zeile löschen
Cells(y + 1, 1).EntireRow.Delete
y = y - 1
End If
Next y
Next i
End Sub

Soll uns recht sein ;-), owT

05.10.2017 09:15:09

Michael

Beliebteste Forumthreads (12 Monate)

doppelte werte in zeile -> pro wert in a eine zeil

Forumthread: doppelte werte in zeile -> pro wert in a eine zeil

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread