Doppelte Bindestriche und Leerzeichen finden und e

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans,

wenn es sich nur um eine Zelle handelt, dann nimm doch die Formel.

Das Makro ( da Du extra ein Makro wolltest, bin ich davon ausgegangen, Du kennst Dich mit VBA ein wenig aus...)
schaut in "Tabelle1" (die natürlich so namentlich auch vorhanden sein muss, sonst eben im Makro den Namen entsprechend anpassen) in der ersten Spalte (also "A") ab Zeile 1 in jeder einzelnen Zelle.

Stehen die Werte in einer anderen Spalte und/oder nicht ab der ersten Zeile, dann die Makrozeilen

If .Cells(65536, 1).Value = "" Then lRow = .Cells(65536, 1).End(xlUp).Row
Set rng = .Range(.Cells(1, 1), .Cells(lRow, 1))

entsprechend anpassen, z.B. für Spalte G (7.Spalte) ab Zeile 13

If .Cells(65536, 7).Value = "" Then lRow = .Cells(65536, 7).End(xlUp).Row
Set rng = .Range(.Cells(13, 7), .Cells(lRow, 7))

Gruß
gordon

Hallo Gordon!
Also nochmal der Reihe nach. Aus dem Forum habe ich mir einige Tipps geholt, wie man meine Probleme lösen kann. Habe ansonsten von VBA keine Ahnung ! Null!
Es wäre sehr hilfreich, wenn Du mir eine Lösung senden könntest, die ich einfach eintragen kann. Vielleicht kann ich Dich ja mal mit einem Stück günstiger Hardware entschädigen (Bin Händler!)
Wenn ich Deinen Vorschlag umsetze, ergibt sich folgender Fehler:

424: Objekt erforderlich

So sieht das Ganze bei mir aus:

Sub doppelte()
lRow = 65536
With ws
If .Cells(65536, 7).Value = "" Then
lRow = .Cells(65536, 7).End(xlUp).Row
End If
Set rng = .Range(.Cells(1, 7), .Cells(lRow, 7))
For Each r In rng
Do Until InStr(r.Value, " ") = 0
r.Value = Left(r.Value, InStr(r.Value, " ")) & _
Mid(r.Value, InStr(r.Value, " ") + 2)
Loop
r.Value = (Left(r.Value, _
InStrRev(r.Value, "-") - 1) & Chr(10) & _
Mid(r.Value, InStrRev(r.Value, "-") + 1))
Next r
End With
End Sub

Also vielleicht (bitte, bitte) ist es möglich, dass Du mir ein Macro schreibst, welches folgende Dinge macht:

1. Alle Zeilenanfänge in dieser Spalte mit "- " durch "" ersetzt.
2. Alle doppelten Leerzeichen durch ein Leerzeichen ersetzt.
3. Alle doppelten Bindestriche mit einem Leerzeichen davor ( --) durch einfache mit Leerzeichen davor ersetzt ( -).
4. Diese einfachen mit Leerzeichen dann durch einen Umbruch in der Zelle ersetzt, damit es besser in die Artikelvorschau passt!

Ziel ist es diese Daten dann in einen Webshop übernehmen zu können. Habe mir das irgendwie leichter vorgestellt. ;-)
Habe die Spalte mal unter www.haller-elektronik-vertrieb.de/spaltef.xls ins Netz gestellt.

Wäre schön von Dir zu hören!

Grüsse,
Hans Hauck

Beliebteste Forumthreads (12 Monate)

Doppelte Bindestriche und Leerzeichen finden und e

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread