Formel wenn Wert gefunden überschreiben

Forumthread: Formel wenn Wert gefunden überschreiben

25.09.2019 10:09:46

Marc

Guten Morgen , ich brauche nochmal eure Hilfe . Ich habe eine relativ große Datei mit 12 unterschiedlichen
Tabellen und jeder Menge Sverwiesen . Jeder Sverweiss gibt mir denn Buchstaben X wieder wenn der Wert nicht gefunden wird . Besteht per VBA die Möglichkeit automatisch wenn der Wert gefunden worden ist den Sverweiss mit dem festen Wert zu überschreiben ? Wenn X wiedergegeben wird soll der Sverweiss bestehen bleiben . Das ganze sollte sich auf alle Tabellenblätter beziehen bis auf Spalte E&F in Tabelle 1 . Würde mich sehr über Hilfe freuen habe leider im Netz nichts gefunden und sämtliche Versuche sind leider gescheiter .

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel wenn Wert gefunden überschreiben

25.09.2019 12:29:23

Rudi
AW: Formel wenn Wert gefunden überschreiben

25.09.2019 12:30:09

Rudi

AW: Formel wenn Wert gefunden überschreiben

25.09.2019 12:29:23

Rudi

Hallo,
kann so aussehen:

Sub aaa()
Dim wks As Worksheet, rngF As Range, rngC As Range
Dim lngCALC As Long
With Application
lngCALC = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
For Each wks In Worksheets
On Error Resume Next
Set rngF = wks.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not rngF Is Nothing Then
For Each rngC In rngF
If Left(rngC.Formula, 8) = "=VLOOKUP" Then
If rngC.Value  "x" Then
If wks Is Sheets("Tabelle1") Then 'Tabelle1
Select Case rngC.Column
Case 5, 6       'E/ F
'nix
Case Else
rngC.Value = rngC.Value
End Select
Else
rngC.Value = rngC.Value
End If
End If
End If
Next rngC
End If
Next wks
Application.Calculation = lngCALC
End Sub

Gruß
Rudi

AW: Formel wenn Wert gefunden überschreiben

25.09.2019 12:30:09

Rudi

Hallo,
kann so aussehen:

Sub aaa()
Dim wks As Worksheet, rngF As Range, rngC As Range
Dim lngCALC As Long
With Application
lngCALC = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
For Each wks In Worksheets
On Error Resume Next
Set rngF = wks.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not rngF Is Nothing Then
For Each rngC In rngF
If Left(rngC.Formula, 8) = "=VLOOKUP" Then
If rngC.Value  "x" Then
If wks Is Sheets("Tabelle1") Then 'Tabelle1
Select Case rngC.Column
Case 5, 6       'E/ F
'nix
Case Else
rngC.Value = rngC.Value
End Select
Else
rngC.Value = rngC.Value
End If
End If
End If
Next rngC
End If
Next wks
Application.Calculation = lngCALC
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Formel wenn Wert gefunden überschreiben

Forumthread: Formel wenn Wert gefunden überschreiben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread