Artikelnummer Format anpassen automatisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus
Da bin ich wieder :-)
Du, ich kann deine Lösung gerade nicht nachvollziehen, aber aufs Glätten bin ich durch Recherche auch gekommen, ev. ist das die Lösung. Ich meinte ich könne nicht alle Sverweis formeln anpassen, doch wenn ich:
Irgendwie ein makro hätte, welche ich für die Kunden Excellisten (ca. 100) (von dort holt die Grosse Liste die Daten per Sverweis)anwenden könnte, wäre das super!
In den 100 Excelfiles ist die Artikelnummer ja falsch formatiert und befinden sich entweder in Spalte A oder C.
Lösung (Keine Ahnung ob das Sinn macht und realisierbar ist):
Makro ausführen in Excelliste Kunde A (da ist das Artikelnummerformat falsch) - Auswahl ob Artikelnummern in Spalte A oder C sind, diese glätten lassen per einfügen einer neuen Spalte (entweder B oder D)
- die geglättete Artikelnummer mit der auch ***geglätteten Artikelnummer in der Grossen Liste vergleichen, wenn es übereinstimmt, soll Excel das richtige Format der Artikelnummer (Spalte B) von der Grossen Liste in die Kundenliste übernehmen (die aktuell falsch formatiere Artikelnummer überschreiben) entweder in Spalte A oder C.
Geht so was? Anders sehe ich dies nicht zu lösen :-(
Ich könnte dann in der grossen liste (Artikelnummern sind richtig formatiert in Spalte B) eine ***Spalte C einfügen und dort glätten ausführen. Das müsste man ja im Marko nicht auch noch berücksichtigen.
Gruss
Arthur
PS: Sorry ist kompliziert, aber ich hoffe echt du verstehst mich. Ich denke so ist es am einfachsten. Muss halt 100 mal das Makro ausführen (für jede Kundenexcelliste einzeln), aber das geht zügiger als Millionen von Formeln anzupassen.

Hallo Klaus und Uwe
Da habe ich wohl glätten falsch verstanden, eure Makros funktionieren (vielen Dank!), löschen aber nicht alle Leerzeichen raus. Artikelnummer 1234 231 34 soll zu 123432134 werden. Dieses Makro habe ich gefunden:

Sub Leerzeichen_entfernen()
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Replace What:=" ", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next
End Sub

For i = 1 to 10 sollte aber eine Selection (wie bei deinem Makro) sein, könntest du mir dies anpassen? Ich habe keine Ahnung von VBA.
Meine Idee ist jetzt, dass man in diesem Makro noch einbauen könnte:
- Rechts von meiner "Selection" automatisch eine Spalte einfügen
Dort werde ich dann manuell einen Sverweis zu meiner Gossen Liste machen und die ebenfalls von allen Leerzeichen entledigten Artikelnummer zu suchen.
Wie kann ich den das 2. Problem noch lösen?:
mit dem neuen Sverweis zur grossen Liste wird jetzt zb. Artikelnummer 123432134 gesucht, wenn es gefunden wurde, dann sollte Excel das richtige Format in Spalte B der grossen Liste in die Kundenexcelliste übernehmen. Sprich, die alte Artikelnummer (mit flaschem Format) überschreiben mit der Richtigen der grossen Liste. siehe Excelbeispiel.
https://www.herber.de/bbs/user/84023.xlsx
Vielen Dank für deine Hilfe!
Gruss
Arthur

Sub Trimmen() 'Trimmen auch innerhalb des Textes Dim z, RR RR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row ' letzte Zeile Application.ScreenUpdating = False For Each z In Selection If z.Row > RR Then Exit Sub ' Wenn mehr selectiert ist als Zeilen vorhanden If z "" Then z = Application.Substitute(z, " ", "") Next Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Artikelnummer Format anpassen automatisch

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread