Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sverweis in Werte umwandeln

Sverweis in Werte umwandeln
18.07.2022 16:11:11
steven
Moin moin,
ich würde gern eine Kopie meiner Arbeitsdatei in Excel erstellen, in der die Sverweis Formeln automatisch durch Werte ersetzt werden und ansonsten alles gleich bleibt, damit ich die Datei auch an Menschen verschicken kann, die keinen Zugriff auf die Rohdaten haben. Meine Makro versuche sind bisher gescheitert.
Besten Dank im Voraus
Steven
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nachgefragt ...
18.07.2022 16:20:10
neopa
Hallo Steven,
.. gibt es in der Datei auch andere Formeln außer den mit SVERWEIS() Müssen vorhandene Formate 1:1 erhalten bleiben. Wenn jeweils nein, gäbe es eine VBA-freie Alternative.
Gruß Werner
.. , - ...

AW: nachgefragt ...
20.07.2022 08:47:54
Steven
Hallo Werner,
es gibt auch andere Formeln wie zB ZÄHLENWENN etc. die ich dann auf gleichem Wege ersetzen würde. Das Layout/Format würde ich gern behalten. Ein anderer User hat für den Sverweis schon eine schöne Lösung geboten, vielen Dank für die Antwort!
Anzeige
AW: Sverweis in Werte umwandeln
18.07.2022 21:49:04
Rudi
Hallo,
teste mal

Sub KopieOhneFormelnSpeichern()
Dim wks As Worksheet
Application.ScreenUpdating = False
Worksheets.Select
ActiveWindow.SelectedSheets.Copy
For Each wks In ActiveWorkbook.Worksheets
With wks.Cells
.Copy
.PasteSpecial xlPasteValues
End With
Next wks
ActiveWorkbook.SaveAs _
ThisWorkbook.Path & _
"\Kopie - " & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5), xlOpenXMLWorkbook
End Sub
Gruß
Rudi
Anzeige
AW: Sverweis in Werte umwandeln
20.07.2022 08:50:16
Steven
Hi Rudi, danke für die schnelle Antwort. Wenn ich den Code so lese, bekomme ich wahrscheinlich das Problem, dass alle Formeln durch Werte ersetzt werden und es mir ein wenig das Format/layout der Datei zerschießt. In einer anderen Antwort hat Yal mir schon eine gute kleine Lösung geschickt, die ich wohl erstmal nutzen werde.
Anzeige
AW: Sverweis in Werte umwandeln
19.07.2022 16:16:46
Yal
Moin Steven,
probiere:

Sub SVerweisDurchWert_ersetzen()
Dim wks As Worksheet
Dim z As Range
Application.ScreenUpdating = False
For Each wks In ActiveWorkbook.Worksheets
For Each z In wks.Cells.SpecialCells(xlCellTypeFormulas)
If Left(z.FormulaLocal, 10) = "=SVERWEIS(" Then z.Value = z.Value
Next
Next
Application.ScreenUpdating = True
End Sub
Kopie hat vorher stattgefunden, speichern muss noch anschliessend erfolgen.
VG
Yal
Anzeige
AW: Sverweis in Werte umwandeln
20.07.2022 08:45:42
Steven
Moin Yal, vielen Dank, das hilft mir auf jeden Fall sehr weiter.
Ich denke mal für andere Formeln wie zB. ZÄHLENWENN geht es genauso, wenn man den "=SVERWEIS" in der If schleife entfernt?
Schöne warme Woche noch
AW: Sverweis in Werte umwandeln
20.07.2022 09:33:28
Steven
Edit: Wenn ich das mit ZÄHLENWENN mache, passiert nix, liegt das am Ä?
AW: Sverweis in Werte umwandeln
20.07.2022 09:49:32
Yal
Hallo Steven,

If Left(z.FormulaLocal, 10) = "=SVERWEIS(" Then z.Value = z.Value
Left (x, 10) bedeutet, es wird nur die erste 10 linke Stelle des Text x beachtet.
"=ZÄHLENWENN(" ist 12 Buchstaben lang,
"=ZÄHLENWEN" wäre 10 Buchstaben lang.
Versucht den Code Dir selbst laut und auf Deutsch zu lesen: wenn die 10 linke Stellen der Formel gleich wie ... sind, dann...
Man kommt dann auf solchen Stolperfall sehr schnell drauf.
VG
Yal
Anzeige
AW: Sverweis in Werte umwandeln
20.07.2022 11:43:56
Daniel
Hi
wäre es nicht sinnvoller, grundsätzlich alle Formeln in Werte zu wandeln, die die Rohdaten verwenden?
das könntest du einfach per Mausklick über den Menüpunkt DATEN - VERBINDUNGEN - VERKNÜPFUNGEN BERABEITEN - VERKNÜPFUNGEN LÖSCHEN für die ganze Mappe tun.
ansonsten kannst du dir den Code von YAL auch so umschreiben, dass er alle Formeln, die die Datei "Rohdaten.xls" verwenden, in Werte wandelt, das geht mit diesem Code:

If z.FormulaLocal Like "*Rohdaten.xlsx*" Then z.Value = z.Value
Gruß Daniel
Anzeige
AW: Sverweis in Werte umwandeln
20.07.2022 12:48:11
Steven
Moin Daniel, Spezifische Verknüpfungen per Mausklick löschen ist auch auf jeden Fall ein gute Lösung, danke dir!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Sverweis in Werte umwandeln: Praktische Anleitung


Schritt-für-Schritt-Anleitung

Um SVERWEIS-Formeln in Werte umzuwandeln, kannst du die folgenden Schritte befolgen:

  1. Öffne Deine Excel-Datei, in der die SVERWEIS-Formeln enthalten sind.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Rechtsklicke im Projektfenster auf "VBAProject (deineDatei.xlsm)" und wähle "Einfügen" > "Modul".

  4. Kopiere den folgenden Code in das Modul:

    Sub SVerweisInWerteUmwandeln()
       Dim ws As Worksheet
       Dim z As Range
       Application.ScreenUpdating = False
    
       For Each ws In ActiveWorkbook.Worksheets
           For Each z In ws.Cells.SpecialCells(xlCellTypeFormulas)
               If Left(z.FormulaLocal, 10) = "=SVERWEIS(" Then
                   z.Value = z.Value
               End If
           Next z
       Next ws
    
       Application.ScreenUpdating = True
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle SVerweisInWerteUmwandeln aus und klicke auf Ausführen.

Mit dieser Methode werden alle SVERWEIS-Formeln in Werte umgewandelt, während das Layout deiner Datei erhalten bleibt.


Häufige Fehler und Lösungen

  • Fehler: SVERWEIS gibt #WERT! zurück

    • Lösung: Überprüfe die Eingabewerte und den Suchbereich. Wenn der SVERWEIS nicht das erwartete Ergebnis liefert, kann das an falschen Daten liegen.
  • Problem: Das Layout wird zerschossen

    • Lösung: Achte darauf, nur die SVERWEIS-Formeln in Werte umzuwandeln und andere Formeln unberührt zu lassen. Nutze den oben genannten VBA-Code, um gezielt nur die SVERWEIS-Formeln zu ersetzen.
  • Fehler: ZÄHLENWENN funktioniert nicht

    • Lösung: Ändere die Bedingung im Code von SVERWEIS zu ZÄHLENWENN, um auch diese Formeln in Werte umzuwandeln.

Alternative Methoden

  1. Manuelle Umwandlung:

    • Markiere die Zellen mit SVERWEIS-Formeln.
    • Kopiere sie (CTRL + C).
    • Rechtsklick auf die Zielzelle und wähle Inhalte einfügen > Werte.
  2. Excel-Funktion nutzen:

    • Wähle die Zellen mit Formeln und drücke STRG + C, dann STRG + ALT + V, gefolgt von V, um die Formeln in Werte umzuwandeln.
  3. Verknüpfungen in Werte umwandeln:

    • Gehe zu Daten > Verbindungen > Verknüpfungen bearbeiten und lösche die Verknüpfungen, um alle Formeln, die auf externe Daten zugreifen, in Werte umzuwandeln.

Praktische Beispiele

  • Beispiel 1: Angenommen, du hast eine Tabelle mit SVERWEIS-Formeln, die auf eine andere Tabelle referenzieren. Nach dem Ausführen des Makros sind die SVERWEIS-Ergebnisse nun feste Werte, die verschickt werden können.

  • Beispiel 2: Wenn du ein Ergebnis einer SVERWEIS-Formel in Text umwandeln möchtest, kannst du =TEXT(SVERWEIS(...), "Format") verwenden, um das Format anzupassen.


Tipps für Profis

  • Verwende immer ein Backup deiner Excel-Datei, bevor du Makros oder Massenänderungen vornimmst.
  • Testen: Probiere den VBA-Code zuerst in einer Testdatei aus, um sicherzustellen, dass alles funktioniert, wie gewünscht.
  • Anpassungen: Du kannst den VBA-Code leicht anpassen, um andere Formeln wie ZÄHLENWENN ebenfalls in Werte umzuwandeln, indem du die Bedingung entsprechend änderst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Formeln gleichzeitig in Werte umwandeln? Du kannst den VBA-Code anpassen, um auch andere Formeln wie ZÄHLENWENN oder WVERWEIS in Werte umzuwandeln, indem du die entsprechenden Bedingungen hinzufügst.

2. Was passiert, wenn ich die Datei ohne vorherige Umwandlung verschicke? Wenn du die Datei ohne Umwandlung verschickst, können Empfänger ohne Zugriff auf die Rohdaten die Formeln nicht ausführen, was zu #WERT! oder leeren Zellen führen kann. Es ist daher ratsam, die Formeln in Werte umzuwandeln, bevor du die Datei teilst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige