Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1584to1588
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
Inhaltsverzeichnis

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

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
Anzeige
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

Anzeige
Soll uns recht sein ;-), owT
05.10.2017 09:15:09
Michael

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige