Zeichen löschen in Spalte

Hallo Helfer
habe ein Problem, bei gestriger Lösung stolpere ich
über Formatierung, also Endprodukt = nicht gleich SOLL

16 24 32 Zeichen
--------->------->------>
=1HSM +AUL\\-PE
mein Suchbegriff in Spalte = zB AUL dann soll vom letzten Buchstabe also L
2 Zeichen rechts gelöscht werden und anschliessend 14 Zeichen nach links
das Minuszeichen rechts von den zwei \\ ist immer vorhanden und muss bleiben

SOLL
16 24 32 Zeichen
--------->------->------>
-PE
aber nur wenn Suchbegriff in Zelle, im Code von gestern habe ich versucht
die Zeichenkette zu splitten Zellen löschen usw. geht aber wegen Plotter
SW nicht so (Problem mit Leerschlägen)


Sub Suchbegriffelöschen()
Dim Wert As String
Dim c As Integer
Dim gefunden As Boolean
Wert = InputBox("Bitte den Suchbegriff eingeben", "suche nach zB +SCH1, +SCH2 usw. ..")
If Wert = "" Then Exit Sub
For c = 1000 To 1 Step -1
If Worksheets("Zwischenablage1").Cells(c, 2) = Wert Then
Worksheets("Zwischenablage1").Cells(c, 2).Delete shift:=xlToLeft
Worksheets("Zwischenablage1").Cells(c, 1).Delete shift:=xlToLeft
gefunden = True
End If
Next
If gefunden = False Then MsgBox ("Der Suchbegriff wurde nicht gefunden")
End Sub

hat jemand einen Lösungsansatz
DANKE jetzt schon
gruss helena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Suchbegriffelöschen() Dim Wert As String Dim c As Integer Dim gefunden As Boolean Wert = InputBox("Bitte den Suchbegriff eingeben", "suche nach zB +SCH1, +SCH2 usw. ..") If Wert = "" Then Exit Sub For c = 1000 To 1 Step -1 'das File ist TXT Importfile und wenn ich dies schaffe nach rechts zwei Zeichen 'und nach links anschliessend 14 Zeichen löschen erspare ich mir die Zwischenablage 'völlig 'Abhängig vom SUCHBEGRIFF in der Zelle, sihe bitte Musterfile denke dann siehst du ' klar der gestrige Weg ging wegen Zellenformat nicht (CAD-Plott und spez. SW) ' und kann Ergebniss direkt verarbeiten, Plotter hat die Leerzeichen falsch interpretiert und hat Zeilenumbruch etc. falsch ausgeführt, Tebellenblatt = aktiv Sheet End If Next If gefunden = False Then MsgBox ("Der Suchbegriff wurde nicht gefunden") End Sub

Sub Bereinigen() Dim strSuche As String Dim c As Integer Dim bolGefunden As Boolean strSuche = InputBox("Suchbegriff", "erwarte Eingabe") If strSuche = "" Then Exit Sub For c = 1 To 1000 If InStr(1, Cells(c, 1), strSuche) > 0 Then Cells(c, 1) = Left(Cells(c, 1), InStr(1, Cells(c, 1), strSuche) + Len(strSuche) - 15) _ & Right(Cells(c, 1), Len(Cells(c, 1)) - InStr(1, Cells(c, 1), strSuche) - Len(strSuche) - 1) bolGefunden = True End If Next If bolGefunden Then Exit Sub MsgBox "Suchbegriff nicht gefunden" End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichen löschen in Spalte

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

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread