Spalten verbinden und unnötige Daten löschen

Hallo zusammen,
wir sind dabei eine xls Datei für unseren Magento Shop vorzubereiten.
Dafür müssen wir Reifengrößen zusammenfügen.
In der einen Spalte steht die Zollgröße und in der anderen Spalte die Reifenbreite und der Querschnitt, allerdings mit störendem Querstrich und anderen nicht zu gebrauchenden Daten, wir müssen als Ergebnis folgenden Matchcode als Beispiel haben: 2055516 2155516.
Es gibt Spalten da gibt es keinen Matchcode, welche mit einem und viele mit mehreren Matchcodes als Ergebnis (2, 3, 4, 5,...)
Hat hier evtl. jemand einen Tipp oder gar die Lösung des Problems?
Ansonsten müssen wir sicherlich mit "Suchen/Ersetzen" die ganzen unbrauchbaren Daten löschen. Eine Formel zum reinen verbinden liegt nämlich vor, dafür müssen die Spalten allerdings sauber sein (Bsp.: 20555 21555).
Ein kleiner Auszug aus der großen Datei liegt hier:
https://www.herber.de/bbs/user/123107.zip
Vielen Dank vorab!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
einfach mal mit dem Makrorekorder aufgezeichnet - Suchen und Ersetzen.
Das funktioniert natürlich nur mit den in der Beispielmappe dargestellten "unnötigen" Daten. Sollten da weitere hinzukommen, müsste das dann natürlich ergänzt werden.

Sub Säubern()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Test") 'Blattname ggf. anpassen
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Cells.Replace What:="(*)", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Cells.Replace What:="M+S", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Cells.Replace What:="wS", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Range(.Cells(1, 3), .Cells(loLetzte, 3)).FormulaLocal = "=GLÄTTEN($B1)"
.Columns(3).Value = .Columns(3).Value
.Columns(2).Delete
End With
Application.ScreenUpdating = True
End Sub

Gruß Werner

Sub Säubern() Dim loLetzte As Long, i As Long Application.ScreenUpdating = False With Worksheets("Test") 'Blattname ggf. anpassen loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row .Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:="(*)", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:="M+S", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:="wS", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Range(.Cells(1, 3), .Cells(loLetzte, 3)).FormulaLocal = "=GLÄTTEN($B1)" .Columns(3).Value = .Columns(3).Value .Columns(2).Delete For i = loLetzte To 1 Step -1 If .Cells(i, 2) = "" Then .Rows(i).Delete Next i End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Spalten verbinden und unnötige Daten löschen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten verbinden und unnötige Daten löschen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread