Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: 2015-04-29_Excel_Verweis_in_Werte_wandeln.xlsm
Wenn man in Excel Daten aus einem anderen Excel Dokument verknüpft, dann hat man oft ungewollt Verbindungen zu Daten auf externen Verweisen,
die man doch nur als Werte haben wollte. Zudem kommt beim Öffnen der Excel Datei meist die Meldung, ob man die externen Daten aktualisieren möchte was nun mal manchmal
gar nicht geht, weil sich die Ordner und Dateien geändert haben.

Wie wird man die Verweise auf externe Dateien wieder los.
Hierzu kann ich nur ein Makro anbieten, das alle Verweise auf allen Blättern in Werte umwandelt.
Den Makro Code könnt ihr gerne bei euch einbinden.




Nach dem Durchlaufen des Makros sind alle Verweise auf allen Blättern durch werte ersetzt



Hier der vba Makro-code, den man verwenden kann

'----------------------------------------

' Wandle alle externen Verknuepfungen in Werte und loesche Bezuege

'----------------------------------------

Sub fx_Externe_Verknuepfungen_zu_Werten()

Dim wb As Workbook

'INIT

Application.StatusBar = "START loeschen alle externen Namen"

wb = ActiveWorkbook

'< Loop Namesregister >

Dim vName As Name

For Each vName In wb.Names

'< Namen pruefen >

If InStr(1, vName.RefersToLocal, "Bezug", vbTextCompare) > 1 Or InStr(1, vName.RefersToLocal, ":\", vbTextCompare) > 1 Then

'< loeschen >

vName.Delete()

'</ loeschen >

End If

'</ Namen pruefen >

Next

'</ Loop Namesregister >

Dim i As Integer

Dim arrLinks As Object

arrLinks = wb.LinkSources(xlExcelLinks)

If Not IsEmpty(arrLinks) Then

Dim objSheet As Worksheet

For Each objSheet In wb.Sheets

Dim R As Range

For Each R In objSheet.UsedRange

If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 Then

Application.StatusBar = "wandle " & R.Formula

R.Value = R.Value

End If

Next R

Next

'< Loop Verknuepfungen >

'For i = 1 To UBound(arrLinks)

'< Link in Wert wandeln >

'< loeschen >

'wb.ChangeLink arrLinks(i), wb.Name

'</ loeschen >

'</ Link in Wert wandeln >

'Next i

'</ Loop Verknuepfungen >

End If

'Abschluss

Application.StatusBar = False

MsgBox("Fertig")

End Sub


Mobile
»
Excel Frequenzen zu Pulsweite umrechnen
»
Excel: PWM Puls bei Frequenz berechnen
»
Vorlage Flächenberechnung in Excel
»
Excel: Stundenzettel Kalenderaufschrieb als Download Vorlage
»
Excel : Werte kodieren mit HASH Funktionen SHA256
»
Excel : Nummern Anonymizieren und Pseudonymizieren
»
Excel Formulare in eine Excel Datenbank einlesen und verwalten
»
Excel: Umwandeln von XML zu einfachen Text Werte Paaren
»
Excel Word: mit Excel einen Serienbrief in Word erstellen per vba Code
»
Excel Vorlage: Link-Sammlung vom Browser in Excel Liste Tabelle umwandeln 02

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de