Excel & VBA

(Tipp 154)

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.

(Tipp 156)

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.

(Tipp 157)

Wie kann ich bei der Änderung einer Auswahl in den Spalten 3 bis 49 abfragen, ob es sich um eine ungerade Spalte handelt?

(Tipp 160)

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?

(Tipp 171)

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)

Function letzterWert(Bereich As Range) As Variant Dim objZelle As Object For Each objZelle In Bereich If objZelle <> "" Then letzterWert = objZelle Next End Function

(Tipp 172)

Wie kann ich in einer Zelle die Formel anzeigen, die in einer anderen Zelle enthalten ist?

(Tipp 183)

Wie füge ich an mehrere Zellen mit einen beliebigen Zellinhalt mehrere, gleichbleibende Zeichen (am Anfang oder Ende) hinzu?

(Tipp 187)

Wie kann ich aus einer Zahl, hinter der das Minuszeichen steht, eine negative Zahl erstellen?

(Tipp 197)

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.

(Tipp 200)

Wie heißt der SVERWEIS auf Spanisch?

(Tipp 202)

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.

(Tipp 204)

Wie kann man per Formel den Namen des Blattes in die Zelle einfügen?

(Tipp 206)

In einer Zelle steht ein Datum, in einer anderen ein Text. Wie kann ich beides in einer Zelle anzeigen lassen? =A1&C1 funktioniert nicht.

(Tipp 208)

Wie kann ich in einer Formel einen Zeilenumbruch erzwingen?

(Tipp 240)

Wie kann ich "Euro" als Währungssymbol manuell einstellen?

(Tipp 242)

Wie kann man in einer Tabelle Tausender im T€-Format anzeigen lassen?

(Tipp 245)

Wie ereiche ich einen Zeilenumbruch innerhalb einer Zelle?

(Tipp 336)

Wie kann ich zu einer Jahreszahl die Feiertage berechnen?

(Tipp 342)

Auf einem Blatt befinden sich mehrere Steuerelemente. Wie kann ich mich mit Tastatur von Element zu Element bewegen?

(Tipp 388)

Wenn ich in A2 einen Wert eingebe, sollen Alle Zeilen, die in Spalte A einen anderen Wert haben, ausgeblendet werden.

(Tipp 556)

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?

(Tipp 601)

Kann weg.

(Tipp 602)

Kann das weg?

(Tipp 603)

Gibts hier was?