Namen verstauschen
02.12.2025 15:07:35
Dieter
Ich bräuchte mal wieder eine kleine Hilfe.
In meiner Tabelle Müsste ich 2 Namen vertauschen.
Was ich hinbekommen habe ist, siehe 2 Codes die das selbe machen was auch geht.
Private Sub CommandButton1_Click()
Dim suchBereich As Range
Dim zuSuchenderText As String
Dim ersatzText As String
Set suchBereich = ActiveSheet.Range("C3:W67")
zuSuchenderText = "Kaminsky"
ersatzText = "Alatrash"
With suchBereich
.Replace What:=zuSuchenderText, Replacement:=ersatzText, LookAt:=xlWhole, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
End Sub
'------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Dim suchwort As String
Dim ersatzwort As String
Dim zellbereich As Range
suchwort = "Kaminsky"
ersatzwort = "Alatrash"
Set zellbereich = ActiveSheet.Range("C3:W67")
zellbereich.Replace What:=suchwort, Replacement:=ersatzwort, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
MsgBox "Der Text im Bereich " & zellbereich.Address & " wurde ersetzt.", vbInformation, "VBA Ersetzen"
End Sub
In meinem Code wird jetzt nur "Kaminsky" in "Alatrash" geändert. was auch geht
Ich möchte aber nur die Namen vertauscht haben, wo vorher jetzt "Alatrash" stand soll "Kaminsky" stehen
und umgekehrt.
Hoffe mal konnte mich gut genug ausdrücken.
Ich danke schon mal im voraus für die Hilfe
MfG
Dieter
Anzeige