Wenn vorhanden dann ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub verheiratet() Const cTitelZeile As String = "Status" ' Titel der Spalte in Zeile 1 Const cFind As String = "verh." ' diesen Begriff Const cReplace As String = "verheiratet" ' durch diesen ersetzen Dim lCol As Long With ActiveSheet On Error Resume Next lCol = Application.Match(cTitelZeile, Rows(1)) On Error GoTo 0 If lCol = 0 Then MsgBox "Keine Spalte mit Titel in Zeile 1 gefunden!", _ vbExclamation, "Abbruch" Else .Columns(lCol).Replace What:=cFind, Replacement:=cReplace, LookAt:=xlWhole End If End With End Sub

Sub verheiratet() Const cTitelZeile As String = "Status" ' Titel der Spalte in Zeile 1 Const cFind As String = "Verh." ' diesen Begriff Const cReplace As String = "Verheiratet" ' durch diesen ersetzen Dim lCol As Long With ActiveSheet On Error Resume Next lCol = Application.Match(cTitelZeile, Rows(1)) On Error GoTo 0 If lCol = 0 Then MsgBox "Keine Spalte mit Titel in Zeile 1 gefunden!", _ vbExclamation, "Abbruch" Else .Columns(lCol).Replace What:=cFind, Replacement:=cReplace, LookAt:=xlWhole End If End With End Sub

Hi
du gibtst bei der Match-Funktion den 3. Parameter nicht an.
damit verwendest du die Match-Funktion mit 3. Parameter = 1, weil VBA hier die 1 als Wert ergänzt, wenn du keine Angaben machst.
dies hat für dich folgende konsequenzen:
a) die Liste muss aufsteigend sortiet sein, damit die Funktion ein sinnvolles Ergebnis liefert
b) wird der Suchbegriff nicht gefunden, so erzeugt die Funktion keinen Fehler, sondern es wird der nächstkleinere Wert als Ergebnis verwendet.
du solltest hier die Match-Funktion mit 3. Parameter = 0 verwenden, denn dann dürfen die die Werte unsortiert sein und du bekommst deinen Fehler, wenn der Suchwert nicht vorhanden ist:

lCol = Application.Match(cTitelZeile, Rows(1), 0)

insgesamt finde ich deinen Code etwas aufwendig.
das geht auch einfacher:

With ActiveSheet
on Error Resume Next
.Rows(1).Find(What:=cTitelZeile, lookat:=xlwhole).EntireColumn.Replace cFind, cReplace, xlwhole
if err  0 Then MsgBox "Keine Spalte ....", vbExclamation, "Abbruch"
On Error Goto 0
End With

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn vorhanden dann ändern

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

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread