Gruppe
Funktion
Bereich
TEXT
Thema
Umrechnung von Grad in Dezimal und zurück
Problem
Gradangaben mit Min und Sec sollen in dezimal und zurück gerechnet werden.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
StandardModule: basMain
Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sPath As String, sExt As String, sName As String
sPath = "c:\excel\"
sExt = ".xls"
sName = InputBox("Quellarbeitsmappe:")
If sName = "" Then Exit Sub
sName = sPath & sName & sExt
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub