Hinweise zu den Beispielen finden Sie hier: Home: VBA-Beispiele
Kategorie: Berechnungen
Wie kann ich Entfernungen zwischen Geokoordinaten berechnen?
Folgende Funktion in ein Standardmodul kopieren:
Function Koordinatenentfernung(ByVal lat1 As Single, ByVal lon1 As Single, ByVal lat2 As Single, ByVal lon2 As Single) Koordinatenentfernung = Application.WorksheetFunction.Acos(Sin((lat1 * Application.WorksheetFunction.Pi() / 180)) * Sin((lat2 * Application.WorksheetFunction.Pi() / 180)) + Cos((lat1 * Application.WorksheetFunction.Pi() / 180)) * Cos((lat2 * Application.WorksheetFunction.Pi() / 180)) * Cos((lon2 * Application.WorksheetFunction.Pi() / 180) - (lon1 * Application.WorksheetFunction.Pi() / 180))) * 6378.137 End Function
In die Zelle kommt die Formel:
=Koordinatenentfernung(F1;F2;D5;E5)
Mit Prüfung auf leere Zellen und zum Ziehen kann ab Excel 365 die Formel verwendet werden:
=@WENN(ISTZAHL(D5:E5);Koordinatenentfernung($F$1;$F$2;D5;E5);"")
Oder in älteren Versionen:
=WENN(UND(ISTZAHL(D5);ISTZAHL(E5));Koordinatenentfernung($F$1;$F$2;D5;E5);"")
Die Zellen mit den Ergebnissen können mit 0,00 "km" formatiert werden.
Kategorien: Netz ▸ Serverkommunikation und Netz ▸ Internet
Wie kann ich Daten von einer Adresse im Internet empfangen?
Seit Excel 2013 gibt es die Funktion WEBDIENST(URL). Der Parameter sagt es schon: Es wird einfach die Adresse verwendet, von der die Daten geholt werden sollen. Direkt in den Klammern muss die Adresse in Anführungszeichen stehen; es kann jedoch auch ein Bezug zu einer Zelle mit der Adresse verwendet werden.
Die empfangenen Inhalte müssen den Excel-Konventionen entsprechen - insbesondere natürlich, was die zulässige Länge des INhalts einer Zelle betrifft. Und es sollte natürlich auch Sinn machen - =WEBDIENST("http://google.de") würde den Quelltext der Google-Website ausgeben, was wahrscheinlich eher niemand brauchen kann.
Mit dieser Formel können Sie testen:
=WEBDIENST("https://joerglorenz.de/demos/webdienst.php?Name=Müller&Vorname=Hans&Straße=Berliner Allee")
Sie können in der Adresse die GET-Parameter verändern oder ergänzen und bekommen so von dieser Adresse die Daten im JSON-Format geliefert, wie es auch im Screenshot zu sehen ist.
Kategorie: Kann weg
Wie kann ich bei der Änderung einer Auswahl in den Spalten 3 bis 49 abfragen, ob es sich um eine ungerade Spalte handelt?
Siehe 153
Kategorie: Kann weg
In einem Zellbereich stehen in den einzelnen Zellen Vor und Nachnamen. Wie kann ich diese Einträge trennen, so dass in einer Zelle der Vor- und in der Nachbarzelle der Nachname erscheint?
124
Wie bekomme ich den letzten Wert einer Spalte z. B. von B210 nach z. B. A1, wenn die Spalte jeden Tag um einen Wert erweitert wird?
In die Zelle kann dann z. B. eingegeben werden: =LetzterWert(B1:B1000)
Kategorie: Kann weg
Wie kann ich in einer Zelle die Formel anzeigen, die in einer anderen Zelle enthalten ist?
Siehe 418
Kategorie: Kann weg
Wie füge ich an mehrere Zellen mit einen beliebigen Zellinhalt mehrere, gleichbleibende Zeichen (am Anfang oder Ende) hinzu?
Siehe 178
Kategorie: Kann weg
Wie kann ich aus einer Zahl, hinter der das Minuszeichen steht, eine negative Zahl erstellen?
Siehe 137
Kategorie: Kann weg
In einer Zelle wird eine ganze Zahl angezeigt. Diese möchte ich auf- bzw. abrunden, aber immer auf 5 oder auf 0. Beispiel: 283 wird auf 285 gerundet, 282 auf 280.
Siehe 196
Wie heißt der SVERWEIS auf Spanisch?
=BUSCARV(B1;A:B;2;FALSO)
Wenn ich die Mehrwertsteuer mit =A1*1,16 errechne, ergibt das natürlich Zahlen mit mehr als zwei Nachkommastellen. Trotz Formatierung als Währung wird Netto jedoch mit den genauen Zahlen errechnet, so daß sich oft eine Differenz ergibt.
Entweder mit =RUNDEN(A1*1,16;2) arbeiten oder in Extras - Optionen - Berechnen "Genauigkeit wie angezeigt" einstellen.
Kategorie: Kann weg
Wie kann man per Formel den Namen des Blattes in die Zelle einfügen?
Siehe 134
Kategorie: Kann weg
In einer Zelle steht ein Datum, in einer anderen ein Text. Wie kann ich beides in einer Zelle anzeigen lassen? =A1&C1 funktioniert nicht.
Siehe 178
Kategorie: Kann weg
Wie kann ich in einer Formel einen Zeilenumbruch erzwingen?
Siehe 178
Wie kann ich "Euro" als Währungssymbol manuell einstellen?
Über Menü Format/Zellen in die Karte Benutzerdefiniert gehen, #.##0,00 € eingeben (AltGr + e).
Kategorie: Kann weg
Wie kann man in einer Tabelle Tausender im T€-Format anzeigen lassen?
Siehe 241
Wie ereiche ich einen Zeilenumbruch innerhalb einer Zelle?
Wenn ich in A2 einen Wert eingebe, sollen Alle Zeilen, die in Spalte A einen anderen Wert haben, ausgeblendet werden.
Kategorie: Kann weg
In einem größeren Bereich befinden sich vor den Zahlen Hochkommas, so dass mit den Zahlen nicht gerechnet werden kann. Wie kann man die Hochkommas entfernen?
Siehe 234