Zeichen löschen in Spalte
05.03.2004 15:41:10
helena
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