Thema: Umrechnung von Grad in Dezimal und zurück

Home

Gruppe

Funktion

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

Copy funktioniert nur einmal	Kursiven Text aus Zelle extrahieren
Schreibschutz prüfen funktioniert nicht	Nur Text in die Zwischenablage kopieren
Datum + Uhrzeit aus Textbox richtig in Zelle	Buchstaben an variablen Stellen im Text tauschen
Text vergl. und Untersch. farblich markieren	Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?)	Abfrage ob ein Textzeichen nicht ASCII ist
SVerweis funktioniert nicht	Text "fest" am Bildschirm
PasteSpecial funktioniert nicht.	Inhalte von einer PDF suchen und den Text kopieren
SUMMENPRODUKT soll Text zurückgeben	VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion	Summe aus Texten+Zahl mit Bedingung
alphabetische Sortierung von Ziffer+Text	Variabler Text aus Zelle in Code integrieren
Als Text gespeicherte Datumsangaben	Textbox als Variable ansprechen?
Excel Form Kontextmenue geht nicht	Absatzzeichen in Textbox und Listbox verhindern
Zelladressen von FunktionsParametern ermitteln	Textformat (VBA)
Textfeld im Formular	Autom. Zelltext, der bei anklicken verschwindet
Matrixformel mit Summenfunktion	Texte aus einer Liste sammeln
aktierten Text in geöffnete Worddatei	Text zurückgeben über mehrere Tabellenblätter
Formel funktioniert nicht, SVerweis	UserForm TextBox mit ComboBox Datum vergleichen
teilstring aus textbox in andere Textbox	Makro funktioniert nach Beenden von Excel nicht
Textbox Prüfung	VLOOKUP auf Links funktioniert offline
Text in Spalten - Performance	Userform nicht gleich in TextBox aber wie?
Text aus Zelle in Internet Seite	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Polynomfunktion
Zelle = Text + Formel	Mit vba Funktionen in Excel Zellen
Textbox Multiline	Rang-Funktion für Strings?
Textinhalt