Externe Verweise finden?!?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jan

schaue mal unter Einfügen, Nmen, Definieren ob sich Namen auf andere Blätter beziehen. Oder lasse in jeder Tabelle eins der beiden Makros laufen.


Option Explicit

	

Sub Verknüpfungen_löschen()

	Dim c As Range

	Dim frage

	For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)

		If InStr(1, UCase(c.Formula), "XLS]") <> 0 Then

			c.Select

			frage = MsgBox("Soll der Wert der Zelle" & Chr(13) _

			& Chr(9) & c.Address & Chr(9) & c.FormulaLocal & Chr(13) _

			& "als Zellwert eingetragen werden?" & Chr(13) & Chr(13) _

			& "Bei ""Nein"" wird der Zellinhalt gelöscht", vbYesNo, _

			"Verknüpfung als Wert schreiben?")

			If frage = vbYes Then

				c.Value = c.Text

			Else

				c.Value = ""

			End If

		End If

	Next

	' ****

	'   Ergänzung Hajo

	Exit Sub

	Fehler1:

	MsgBox "Es sind keine Verknüpfungen vorhanden" & Chr(13) _

	& "Schauen Sie mal unter Einfügen, Namen, Namen Definieren"

End Sub

'Es werden in der aktiven Arbeitsmappe ALLE Verknüpfungen entfernt.

'Du hast nur die Auswahl, ob Du den Wert behalten willst, oder ob die Zelle

'leer sein soll.

' von Berti

	

Sub Verknüpfungen_löschen2()

	Dim c As Range

	Dim frage

	' ****

	'   Ergänzung Hajo

	On Error GoTo Fehler1

	'   *****

	For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)

		If InStr(1, UCase(c.Formula), "XLS]") <> 0 Then

			'      c.Select

			frage = MsgBox("Soll der Wert der Zelle" & Chr(13) _

			& Chr(9) & c.Address & Chr(9) & c.FormulaLocal & Chr(13) _

			& "als Zellwert eingetragen werden?" & Chr(13), vbYesNo, _

			"Verknüpfung als Wert schreiben?")

			If frage = vbYes Then

				c.Value = c.Text

			Else

				'       Ergänzung Hajo

				' *******

				frage = MsgBox("Soll die Verknüpfung erhalten bleiben" & Chr(13) _

				& Chr(9) & c.Address & Chr(9) & c.FormulaLocal & Chr(13) & Chr(13) _

				& "Bei ""Nein"" wird der Zellinhalt gelöscht", vbYesNo, _

				"Verknüpfung erhalten?")

				' *******

				If frage = vbNo Then c.Value = ""

			End If

		End If

	Next

	' ****

	'   Ergänzung Hajo

	Exit Sub

	Fehler1:

	MsgBox "Es sind keine Verknüpfungen vorhanden" & Chr(13) _

	& "Schauen Sie mal unter Einfügen, Namen, Namen Definieren"

End Sub

'Es wird in der aktiven Arbeitsmappe bei ALLE Verknüpfungen gefragt o ersetzen und

'dann ob Verknüpfung erhalten bleiben soll, bei Nein wird die Zelle leer

' von Berti

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Hallo Jan,
mit Strg + # kannst Du Dir alle Formeln im Arbeitsblatt ansehen.

ansonsten habe ich ein MAKRO, hab es selbst noch nicht verwendet, ist noch druckfrisch.
Mit dem Makro werden alle Verknüpfungen die in der Arbeitsmappe enthalten sind ,in einer separaten Tab dokumentiert.

Sub VerknüpfungenDokumentieren()
Dim Bereich As Range
Dim zelle As Range
Dim Blatt As Worksheet
Dim Tabelle As Worksheet

Set Tabelle = Sheets.Add
i = 1
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Activate
Set Bereich = Blatt.Range(Cells(1, 1), Selection.SpecialCells(xlCellTypeLastCell))

For Each zelle In Bereich
If ((InStr(zelle.Formula, "=") > 0) And (InStr(zelle.Formula, "\") > 0)) Then
Tabelle.Cells(i, 1) = zelle.Address
Tabelle.Cells(i, 2).Value = " " & zelle.Formula
Tabelle.Cells(i, 3) = zelle.Value
i = i + 1
End If
Next
Next
End Sub

ein zweites Makro entfernt die Verknüpfungen.

Übernehme das Makro direkt in deine Arbeitsmappe und starte es von dort.
Achtung; dass Makro entfernt die Verknüpfungen nur, wenn alle verknüpften Arbeitsmappen geschlossen sind.
Die ehemals verknüpften Werte bleiben dabei aber erhalten.

Sub VerknüpfungenErsetzen()
Dim zelle As Range
Dim Tabelle As Worksheet

For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Activate
For Each zelle In Tabelle.UsedRange
If InStr(zelle.Formula, "[") > 0 Then zelle.Value = zelle.Value
Next zelle
Next Tabelle
End Sub

Ich habe davon noch nichts getestet.
Mir wurde aber auch schon öfter geholfen!

gruß Regina

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread