Übertrag GPS-Daten von Blatt 1 auf Blatt 2 mit Umf
28.06.2004 08:35:02
Blatt
ich stehe vor folgenden Problemen:
1.) Das gelogte Protokoll meines GPS-Empfänger weist viele Daten auf, die für
mich nicht relevant sind. Ich möchte daher die relevanten Daten aus dem
Protokoll auslesen (Blatt 1) und geordnet im Blatt 2 darstellen. Aus den
Forumsbeiträgen habe ich schon etliche hilfreiche Informationen gezogen,
allerdings fehlt mir noch der letzte Hinweis.
Im GPS-Protokoll sind die für die Selektion wichtigen Informationen in Spalte A auf Blatt 1 ("original") indiziert.
Ich habe nun ein Makro das zeilenweise Blatt 1, Spalte A durchsucht (s.u.) und die relevanten
Daten auf Blatt 2 ("test") überträgt:
For rwindex = 1 To 50000
With Worksheets("original").Cells(rwindex, 1)
Select Case .Value
Case "$GPVTG"
Worksheets("test").Cells(rwindex, 5).Value = Worksheets("original").Cells(rwindex, 8).Value
Case "$GPGGA"
Worksheets("test").Cells(rwindex - 1, 3).Value = Worksheets("original").Cells(rwindex, 3).Value
Worksheets("test").Cells(rwindex - 1, 4).Value = Worksheets("original").Cells(rwindex, 5).Value
Worksheets("test").Cells(rwindex - 1, 6).Value = Worksheets("original").Cells(rwindex, 10).Value
Worksheets("test").Cells(rwindex - 1, 1).Value = Worksheets("original").Cells(rwindex, 2).Value
Worksheets("test").Cells(rwindex - 1, 7).Value = Worksheets("original").Cells(rwindex, 8).Value
Worksheets("test").Cells(rwindex - 1, 8).Value = Worksheets("original").Cells(rwindex, 9).Value
End Select
End With
Next rwindex
Das Problem ist nun wenn Blatt1, Spalte A weder "$GPVTG" noch "$GPGGA" enthält wird in Blatt 2 entsprechend
der Zeile eine Leerzeile eingefügt. Die kann ich zwar wieder mit einem Makro löschen, was sich allerdings als
sehr zeitaufwendig darstellt und sicherlich nicht die optimale Lösung ist.
Daher die Frage ob von Euch jemand eine Lösung bereit hat, die die Erstellung einer Leerzeile in Blatt 2 verhindert,
wenn Spalte A in Blatt 1 weder "$GPVTG" noch "$GPGGA" enthält, d.h. einfach die entsprechende Zeile überspringen und
in der nächstfolgenden Zeile die das Argument "$GPVTG" oder "$GPGGA" enthält fortfahren.
2.) Die Daten im GPS-Protokoll liegen teilweise unformatiert vor. Beim Übertragen möchte ich nun in
einem Schritt die Daten übertragen und gleichzeitig formatiert darstellen. Dies betrifft hautpsächlich
die Daten, die die Uhrzeit und die Koordinaten enthalten:
Uhrzeit: IST-Formatierung: "154300,7350" SOLL-formatierung: "15:43:00"
Koordinaten: IST-Formatierung: "4824,6766" SOLL-formatierung: "N 48°24'41""
"ggmm,ssss" (wobei die Sekunden sich aus 60*0,ssss errechnen)
Ich würde mich freuen wenn mir von Euch jemand weiterhelfen kann, da die VBA bzw. Excel-Hilfe diesbezüglich
leider nicht viel Informationen bereithält.
Vielen Dank,
Grüße Gunnar