Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel wenn Wert gefunden überschreiben

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige