Office: Wert in Spalte suchen/ersetzen von Inhalten

APJH · 14. März 2017

Hallo miteinander

Hab da ein Problem.
Möchte mittels button in Tabelle 3 die Spalte P nach "yarn dyed ; col. 1000 bleached" durchsuchen. Wenn der Wert gefunden wird, soll eine Message Box fragen ob col. 1000 bleached: "col. 1000 bleached?"

Wenn die Antwort Ja ist soll der Zellenwert mit "col. 1000 bleached" ersetzt werden. D.h. "yarn dyed ; " fällt weg. Weiter soll in der selben Zeile in der Spalte R alle Zeichen bis auf die letzten 5 Zeichen der Zelle gelöscht werden.

Ist die Antwort nein, soll der Zellenwert mit "yarn dyed" ersetzt werden. D.h. " ; col. 1000 bleached" fällt weg. In der selben Zeile in Spalte R soll in diesem Fall die ersten 5 Zeichen erhalten bleiben und die nachfolgenden Zeichen gelöscht werden.

Hat jemand eine Idee?

Danke jetzt schon für die Hilfe.

Gruss

APJH

:)

Crazy Tom · 16. März 2017

Hallo

kommt dein Suchstring nur einmal oder öfter in Spalte P vor?

MfG Tom

Crazy Tom · 16. März 2017

Hallo

ok ich bin jetzt von einmaligem Suchstring ausgegangen

das habe ich dann so getestet

Code:

Sub test()
Dim c As Range
Dim strSuche As String
Dim strVorne As String
Dim strHinten As String
strSuche = "yarn dyed ; col. 1000 bleached"
With Sheets("Tabelle3") 'Blattname anpassen
Set c = .Columns(16).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If MsgBox("ersetzen", vbYesNo) = vbYes Then
.Cells(c.Row, 16).Value = "col. 1000 bleached"
strHinten = Right(.Cells(c.Row, 18), 5)
.Cells(c.Row, 18).Value = strHinten
Else
.Cells(c.Row, 16).Value = "yarn dyed"
strVorne = Left(.Cells(c.Row, 18), 5)
.Cells(c.Row, 18).Value = strVorne
End If
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

APJH · 16. März 2017

Wow...Tom

Funktioniert perfekt und schnell.
Herzlichen Dank für die schnelle und super Hilfe.
Das erleichtert nun einiges.

Nochmals herzlichen Dank!!!

Gruss und noch einen schönen Tag

Alain

Office: Wert in Spalte suchen/ersetzen von Inhalten

Wert in Spalte suchen/ersetzen von Inhalten

Wert in Spalte suchen/ersetzen von Inhalten

Wert in Spalte suchen/ersetzen von Inhalten

Wert in Spalte suchen/ersetzen von Inhalten - Similar Threads - Wert Spalte ersetzen

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Werte in Spalten Kopieren und drucken

Aus zwei Spalten einen Wert interpolieren

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Mehrere Werte in Spalte suchen und Text ersetzen

Wenn Wert in Spalte vorhanden dann Ganze Zeile mit neuem Wert aus Userform ersetzen

wert in spalte suchen und durch anderen wert in zeile ersetz