Wert verändern wenn

Forumthread: Wert verändern wenn
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Wert verändern wenn

Wert verändern wenn

26.10.2022 11:16:33

Thomas

Guten Morgen Excelfreunde,
ich bin auf der Suche nach einer VBA Lösung meines Problems.
Ich möchte prüfen ob ein der Wert der Tabelle1 Spalte C12 bis c19 in der Tabelle2 Spalte B 12 bis B14 vorkommt.
Falls ja, soll der Wert links neben den betroffenen Eintrag geändert werden.
Zur besseren Erklärung habe ich in meinem Beispiel die Ausgangslage und das Wunschergebnis dargestellt.
https://www.herber.de/bbs/user/155863.xlsm
Kann mir dabei jemand helfen?
mfg Thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert verändern wenn

26.10.2022 12:03:09

GerdL
besten Dank an Gerd.

26.10.2022 12:38:42

Thomas

AW: Wert verändern wenn

26.10.2022 12:03:09

GerdL

Hallo Thomas!


Private Sub CommandButton2_Click()
Const NeuerText As String = "Test99"
Dim C As Range
For Each C In Tabelle2.Range("B12:B14") 'Werte im Vergleichsbereich glätten
C.Value = Trim$(C.Value)
Next
For Each C In Tabelle1.Range("B12:B19").Cells
If C.Value  "" Then
If Application.CountIf(Tabelle2.Range("B12:B14"), Trim$(C.Offset(0, 1).Value)) Then
C.Value = NeuerText
End If
End If
Next
End Sub

Gruß Gerd

besten Dank an Gerd.

26.10.2022 12:38:42

Thomas

Hallo Gerd,
das funktioniert super.
Hab rechtvielen vielen Dank für deine schnelle Hilfe.
mfg Thomas