Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Punkt als Dezimaltrennzeichen

Forumthread: Punkt als Dezimaltrennzeichen

Punkt als Dezimaltrennzeichen
06.08.2024 11:41:50
Christian
Hallo,

bitte helft mir.
seht ihr eine Möglichkeit, in folgender Tabelle für den Längen und Breitengrad den Punkt als Dezimaltrennzeichen zu nutzen?

Nur dort.
Überall sonst in dieser, als auch anderen Mappen will ich weiterhin das Komma als Trennzeichen haben.

Danke
Christian

https://www.herber.de/bbs/user/171462.xlsx

hier noch die csv Datei, von der die Daten kommen, falls benötigt
https://www.herber.de/bbs/user/171464.zip

Vielen Dank für eure Hilfe
Christian
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 12:34:03
ralf_b
setze den Datentyp auf Text und ersetze Komma durch Punkt im PowerQuery.
Dann sollte auch im Excel der Datentyp Text sein und nicht automatisch ersetzt werden.
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:26:48
daniel
HI
wenn du den Punkt an dieser Stelle haben willst, muss es Text sein.
am einfachsten machst du zwei neue Spalten mit der Formel =Wecheln(Zelle mit Zahl, ",", ".")
dann hast du einmal die Werte als Zahl für deine Function und einmal als Text für Google.
Gruß Daniel
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:34:14
Christian
Hallo Daniel,

danke für den Tipp.

Geht das auch mit einer weiteren Spalte in PQ? in der dann direkt beide Koordinaten stehen, durch Leerzeichen getrennt? Kenne mich leider mit PQ Formeln kaum aus.

Gruß
Christian
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:36:23
daniel
HI
das geht sicherlich auch mit PQ.
da bin ich aber nicht der Fachmann.
Gruß Daniel
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:40:43
Christian
mit der Formel bekomme ich das hin.

Würde es aber gerne in die PQ Abfrage integrieren, hoffe dass da noch jemand anderes helfen kann.

Auf jeden Fall Danke für den Tipp.

Christian
AW: Punkt als Dezimaltrennzeichen
06.08.2024 14:44:02
daniel
Hi
sollte eigentllich kein Problem sein
ich habs mir mal angeschaut.
ersmal Duplizierern
dann Typ ändern (kontextmenü) mit Gebietsschema (englisch USA)
und mit neuer Spalte dann kombinieren (Longitude & " " & Latitude) Reihenfolge bitte prüfen.

Gruß Daniel
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 12:42:29
Christian
Hallo Ralf,

das hilft mir leider nicht viel. Ich brauche es für Berechnungen als Zahl mit Dezimaltrennzeichen Punkt.

Vielleicht erkläre ich kurz, was ich vorhabe

ich will zum einen

diese UDF nutzen können mit den Koordinaten

Public Function DistCalc_2(ByVal Lat_1 As Double, ByVal Long_1 As Double, ByVal Lat_2 As Double, ByVal Long_2 As Double) As Double


Dim M As Double, N As Double, O As Double, p As Double, Q As Double

On Error GoTo Fehler



With WorksheetFunction

M = Cos(.Radians(90 - Lat_1))

N = Cos(.Radians(90 - Lat_2))

O = Sin(.Radians(90 - Lat_1))

p = Sin(.Radians(90 - Lat_2))

Q = Cos(.Radians(Long_1 - Long_2))

'Change 6371 to 3959 to get your result in Miles



DistCalc_2 = .Acos(.Round(M * N + O * p * Q, 13)) * 6371



Fehler:



If Err.Number > 0 Then Debug.Print M * N + O * p * Q, .Acos(M * N + O * p * Q): Stop



End With

End Function


wozu ich die Zahl brauche,

als auch bei Google Maps die Koordinate als Ziel eingeben können, wozu ich den Punkt brauche.
Ohne jedesmal von Hand bei GM das Komma in den Punkt zu ändern.

Gruß
Christian
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:05:08
ralf_b
wie wäre das? ich habe hier die Zellen aus deiner Abfragetabelle als Parameter verwendet z.b =DistCalc_2(C3;D3;C4;D4)
du kannst die Kommazahlen auch in Hilfspalten in Punktwerte umwandeln. bei Googlemaps gibst du auch nur Text in Textfelder ein.
Public Function DistCalc_2(Lat_1 As Range, Long_1 As Range, Lat_2 As Range, Long_2 As Range) As Double

Dim M As Double, N As Double, O As Double, p As Double, Q As Double
On Error GoTo Fehler
With WorksheetFunction
M = Cos(.Radians(90 - Lat_1))
N = Cos(.Radians(90 - Lat_2))
O = Sin(.Radians(90 - Lat_1))
p = Sin(.Radians(90 - Lat_2))
Q = Cos(.Radians(Long_1 - Long_2))

'Change 6371 to 3959 to get your result in Miles
DistCalc_2 = .Acos(.Round(M * N + O * p * Q, 13)) * 6371
End With
Exit Function
Fehler:
If Err.Number > 0 Then Debug.Print M * N + O * p * Q, WorksheetFunction.Acos(M * N + O * p * Q): Stop
End Function
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 13:24:50
Christian
Hallo Ralf,

war das Absicht, dass du das unveränderte Makro gepostet hast oder wolltest du was ändern, hast aber das falsche gepostet?

Zu der Sache mit der Hilfsspalte. Ich gehe mal davon aus, du meinst die beiden Originalspalten so zu behalten wie sie sind, um sie für die Berechnungen mit der UDF zu nutzen und 2 Hilfsspalten mit dem Punkt als Trennzeichen, um es dann für GM zu nutzen?

Mit dem Vorschlag könnte ich mich unter 2 Bedingungen anfreunden.

1. Geht das auch mit einer Hilfsspalte, in der dann beide Koordinaten stehen, durch Leerzeichen getrennt? Wenn es sowieso Text ist, kann ich es ja auch in eine Spalte packen.
2. Wie realisiere ich diese Hilfsspalte mit PQ?

Danke
Christian
Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 14:02:13
ralf_b
das ist nicht unverändert, 1. Zeile ist hier ausschlaggebend

in PQ kannst du einfach eine Spalte hinzufügen und darin dann deine Werte so modifizieren wie du es haben willst.

#"Gefilterte Zeilen" = Table.SelectRows(#"Entfernte Spalten", each ([Municipality] = "Frankfurt am Main")),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Gefilterte Zeilen", "Benutzerdefiniert", each Replacer.ReplaceText(Text.From([Latitude])& " - " & Text.From([Longitude]),",","."))
in
#"Hinzugefügte benutzerdefinierte Spalte"

Anzeige
AW: Punkt als Dezimaltrennzeichen
06.08.2024 14:21:02
Christian
Hallo Ralf,

das funktioniert, danke.

Euch allen noch einen schönen Tag.

Christian

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige