VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Umrechnung von Grad in Dezimal und zurück

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und TEXT