Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1376to1380
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
Inhaltsverzeichnis

VBA SVERWEIS löschen

VBA SVERWEIS löschen
17.08.2014 08:26:58
Uwe
Hallo,
habe eine Tabelle mit mehreren SVERWEIS'en aus einer anderen Arbeitsmappe.
Diese Tabelle soll anderen Nutzern zugestellt werden.
In der zu übergebenden Tabelle sollen nur die Inhalte der Verweise stehen.
Zusätzlich befinden sich aber in der Tabelle einfache Formeln, welche aber bleiben sollen.
Habe folgendes Makro, welches alle Formeln löscht.
Public Sub Formeln_entfernen_Inhalt_behalten()
Dim rngZelle As Range
Dim lngAnz As Long
For Each rngZelle In ThisWorkbook.ActiveSheet.UsedRange
'prüfen ob Zelle eine Formel enthält
If rngZelle.HasFormula = True Then
rngZelle = rngZelle.Value
lngAnz = lngAnz + 1
End If
Next rngZelle
MsgBox lngAnz & " Formeln entfernt", , ""
End Sub
Wie lautet der Befehl welcher die Sverweise löscht, aber die Formeln beibehält.
vielen Dank im voraus
Uwe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Left(rngZelle.Formula, 8) = "=VLOOKUP"
17.08.2014 09:30:47
Matthias
Hallo Uwe
Frag doch einfach ab ob die Formel mit SVerweis beginnt.
  'prüfen ob Zelle eine Formel enthält
If rngZelle.HasFormula = True Then
MsgBox rngZelle.Formula
If Left(rngZelle.Formula, 8) = "=VLOOKUP" Then
MsgBox "SVerweisFormel in: " & rngZelle.Address
End If
'rngZelle = rngZelle.Value
'lngAnz = lngAnz + 1
End If


Komplett dann so:
Option Explicit
Sub Formeln_entfernen_Inhalt_behalten()
Dim rngZelle As Range
Dim lngAnz As Long
For Each rngZelle In ThisWorkbook.ActiveSheet.UsedRange
'prüfen ob Zelle eine Formel enthält
If rngZelle.HasFormula = True Then
If Left(rngZelle.Formula, 8) = "=VLOOKUP" Then
rngZelle = rngZelle.Value
lngAnz = lngAnz + 1
End If
End If
Next rngZelle
MsgBox lngAnz & " Formeln entfernt", , ""
End Sub
Gruß Matthias

Anzeige
AW: If Left(rngZelle.Formula, 8) = "=VLOOKUP"
17.08.2014 10:03:46
Uwe
Danke für die schnelle Antwort,
Das Makro löscht aber auch die Formeln in den anderen Zellen.
Die Formeln sollen aber bleiben
Public Sub SVERWEIS_entfernen_Inhalt_behalten()
Dim rngZelle As Range
Dim lngAnz As Long
For Each rngZelle In ThisWorkbook.ActiveSheet.UsedRange
'prüfen ob Zelle einen SVERWEIS enthält
If rngZelle.HasFormula = True Then
MsgBox rngZelle.Formula
If Left(rngZelle.Formula, 8) = "=VLOOKUP" Then
MsgBox "SVerweisFormel in: " & rngZelle.Address
End If
rngZelle = rngZelle.Value
lngAnz = lngAnz + 1
End If
Next rngZelle
MsgBox lngAnz & " Formeln entfernt", , ""
End Sub

Anzeige
AW: If Left(rngZelle.Formula, 8) = "=VLOOKUP"
17.08.2014 10:09:15
Uwe
Entschuldigung,
habe nicht Dein komplettes Makro genommen.
Dein Makro funktioniert doch einwandfrei.
nochmals vielen Dank
Uwe

Danke für die :-) Rückmeldung ... owT
17.08.2014 10:31:22
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige