Hallo Filippo,
vielen Dank für deine Hilfe.
Der "Generalfehler" war, das "End Sub" 2 mal zu vergessen. Super das DU das gefunden hast! :sign0060:
... jetzt sollte funktionieren.
Leider kommt in Zeile 286 immer noch diese obige Meldung. Dabei finde ich hier wirklich keinen Grund dafür:
Sub GPSBaudrate_SelectionChanged (Index, Value)
TabelleGPS.Cell("GPSBaudrate",row) = GPSBaudrate.Text 'x
TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End Sub
... müßte doch klappen, oder?
Liegt es vielleicht daran, daß es Daten aus einer ComboBox sind?
Dann aber müßte auch bei dieser Sub die gleiche Meldung kommen:
Sub GPSPort_SelectionChanged (Index, Value)
TabelleGPS.Cell("GPSPort",row) = GPSPort.Text 'x
TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End Sub
... tut es aber nicht. Hier kommt keine Fehlermeldung, warum?
Komisch, oder?
Filippo, du hast hier:
Sub Ort_LostFocus
'Filippo änderung
If TabelleGPS.RowCount>0 Then
TabelleGPS.Cell("Ort",row) = Ort.Text
TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End If
End Sub
... die "If"-Schleife eingefügt, aber bei den oberen Subs betreffend "GPSPort" und "GPSBaudrate" nicht. Hat das einen Grund?
Sollte man das da nicht auch machen?