Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen, wenn Entfernung mehr als 80 km

Forumthread: Zeilen löschen, wenn Entfernung mehr als 80 km

Zeilen löschen, wenn Entfernung mehr als 80 km
14.07.2024 19:03:12
Christian
https://www.herber.de/bbs/user/170896.xlsx

Hallo,

ich habe eine Frage zu der Liste in der Tabelle.

In G1 und H1 stehen Referenzkoordinaten. Wie kann ich alle Koordinaten aus den Spalten C und D löschen, welche weiter als 80 km Luftlinie von den Referenzkoordinaten entfernt sind?

Außerdem mal noch eine andere Frage, kann ich auch unabhängig von der Liste eine zufällige Koordinate im 80 km Umkreis um die Referenzkoordinate ausgeben lassen?
Also Zufall aus allen in Frage kommenden Koordinaten, nicht nur aus denen in der Liste

Vielen Dank
Christian
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Function
14.07.2024 19:27:43
Fennek
Hallo,

dieser Funktion werden 2 Koordinaten-Paare übergeben und die Entfernung zurückgegeben: 


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


Der Rest ist etwas sortieren.

mfg
Anzeige
AW: Zeilen löschen, wenn Entfernung mehr als 80 km
14.07.2024 20:05:18
Eifeljoi 5
Hallo

Oder eine Alternative mit PQ.
Den M-Code habe ich seiner Zeit mal im Netz gefunden.
https://www.herber.de/bbs/user/170897.xlsx
Kannst ja mal etwas spielen damit.
In der Anlage noch...
14.07.2024 23:45:44
Case
Moin, :-)

... als LAMBDA-Formel (sind im Namensmanager hinterlegt): ;-)
https://www.herber.de/bbs/user/170898.xlsx

Spalte C gibt dir alle Entfernungen aus. Spalte E nur die kleiner K1. Spalte F gefiltert ohne Leerzellen.
Du steuerst also über G1, H1 und K1. ;-)

Servus
Case
Anzeige
AW: In der Anlage noch...
15.07.2024 06:16:53
Christian
Hallo Case,

ich habe zwar keine Ahnung wie das funktioniert mit dem Namens Manager, aber die Lösung funktioniert.

Dankeschön
Christian
Im folgenden Beispiel...
15.07.2024 09:12:54
Case
Moin, :-)

… habe ich die FILTER-Formel in die LAMBDA integriert (Ausgabe in Spalte M). Du kannst also die zusammenhängenden Ausgaben direkt ohne Leerzeilen und Zwischenschritt ausgeben. ;-)
https://www.herber.de/bbs/user/170899.xlsx

Zum Thema Namensmanager:
https://support.microsoft.com/de-de/office/verwendung-des-namens-managers-in-excel-4d8c4c2b-9f7d-44e3-a3b4-9f61bd5c64e4

LAMBDA bietet die Möglichkeit, Funktionen die ich vorher immer in VBA machen musste, direkt als Formel zu generieren. Da VBA in vielen Fällen (Firmen) nicht gestattet ist, bietet sich das hier an. Du kannst als "XLSX" speichern.
https://support.microsoft.com/de-de/office/funktion-lambda-bd212d27-1cd1-4321-a34a-ccbf254b8b67

Kann eine große Arbeitserleichterung sein.

Servus
Case
Anzeige
AW: Zeilen löschen, wenn Entfernung mehr als 80 km
14.07.2024 20:16:49
Christian
Hallo,

also erstmal zu Fennek,

habs jetzt hinbekommen, stand zuerst etwas auf dem Schlauch. Funktioniert

An Eifeljoi, weiß noch nicht ob ich heute noch dazu komme, aber morgen melde ich mich, versprochen.

Christian
AW: Zeilen löschen, wenn Entfernung mehr als 80 km
14.07.2024 22:39:43
Christian
Hallo Eifeljoi,

ich sehe da jetzt keine wesentlichen Unterschiede zu Fenneks Makro.
Sogar die Variablen haben dieselben Namen.

Und ich weiß nicht, wie ich die im M-Code vorgegebenen Variablen durch meine ganze Liste ersetzen soll.

Gruß
Christian
Anzeige
AW: VBA-Function
14.07.2024 19:45:51
Christian
Hallo fennek,

Und woher weiß diese udf wo die Koordinaten stehen?

Gruß Christian
;

Forumthreads zu verwandten Themen

Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Zeilen löschen, wenn I = 0
Macro

Hi,
ich möchte ein Tabellenblatt (Export) in den Spalte I durchsuchen, ob sich irgendwo der Wert 0 befindet.
Alle Zeilen die in der Splate eine NULL haben, sollen gelöscht werden. Wie mache ich das mit einem Makro. ?
(leere Zellen sollen aber nicht als NULL interpretiert werden)
...
04.12.2008 08:21:00
Thread-ID: 1030023
5 Beiträge
Anzeige
Wenn Range("O10:O16") leer ist
Heinz

Hallo Leute
Habe mit meinem Makro in der Zeile
'If Sheets("Eingabe").Range("O10:O16").Value = "" Then
'MsgBox "Kein Gewicht eingegeben"
'Exit Sub
'End If
Ein Problem.
Ich möchte wenn in O10 bis O16 kein Eintrag gemacht wurde,das dann die MsgBox startet.
Wenn aber...
31.12.2008 16:19:40
Thread-ID: 1036170
3 Beiträge
Anzeige
0 entfernen, sprich leere Zelle
Bernhard

Hallo,
ich habe ein kleines Problem. Wenn ich z.B. zwei Zelleninhalte addiere und beide Zellen sind leer, spricht nicht 0 sonder leer, bekomme ich als Ergebnis ebenfalls eine 0. Ich möchte aber, dass diese Zellen ebenfall nicht darstellt. Ich habe bisher dann die "" Stringausgabe gewählt. =...
24.01.2009 12:22:54
Thread-ID: 1043326
6 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Zelleninhalt löschen, wenn am Anfang \\52023tk\ st
Selma

Hallo Leute,
wie kann ich in Spalte 3 und Spalte 15 den gesamten Zelleninhalt löschen, wenn dieser mit \\52023tk\ am Anfang beginnt?
Besten Dank im Voraus.
Viele Grüße,
Selma
07.05.2009 20:57:09
Thread-ID: 1073720
10 Beiträge
Erstellung .csv ohne Übergabe der leeren Zeilen
Klemens

Hallo !
benutze ein Makro, das mir als Ausgabedatei eine .csv Datei erstellt. Die Ausgabe als solches funktioniert.
Allerdings habe ich das Problem dass nicht nur die Zeilen mit Inhalten ausgegeben werden sondern auch diejenigen ohne Inhalte. Die csv.-Datei wird aus einem Arbeitsblatt h...
05.06.2009 14:43:58
Thread-ID: 1079468
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige