AW: was willst Du denn nun ?
24.08.2007 05:55:00
fcs
Hallo Andy,
Excel hat halt die unangenehme Eigenschaft, dass Sportergebnisse bei dieser Schreibweise in das Excel-interne Zeitformat umgewandelt werden, wenn das von den Zahlen her irgendwie möglich ist.
Ich hab das Problem auch, wenn ich mir per Web-Abfrage den Spielplan von ODDSET in eine Exceltabelle lade.
Ich benutze folgende benutzerdefinerten Funktionen, um die ausgelesenen Daten der Webseite mit Schreibweise (102:89, 22:27, 38:22, 55:62, oder 1:1) in Excel in die von mir gewünschte Schreibweise bzw. Werte umzusetzen:
Function Ergebnis(Text As Variant) As String
'wandelt von Webseite ausgelesenes Ergebnis in Schreibweise x-y um
If Text " " And IsNumeric(Text) Then
If Text > 1 Then
Ergebnis = Int(Text) * 24 + Hour(Text) & "-" & Minute(Text)
Else
Ergebnis = Hour(Text) & "-" & Minute(Text)
End If
Else
Ergebnis = Application.WorksheetFunction.Substitute(Text, ":", "-")
End If
End Function
Function ErgebnisHeim(Text As Variant) As Integer
'berechnet aus von Webseite ausgelesenes Ergebnis Punkte/Tore der Heimmannschaft
If Text " " And IsNumeric(Text) Then
If Text > 1 Then
ErgebnisHeim = Int(Text) * 24 + Hour(Text)
Else
ErgebnisHeim = Hour(Text)
End If
Else
If InStr(1, Text, ":") > 0 Then
ErgebnisHeim = Val(Mid(Text, 1, InStr(1, Text, ":") - 1))
Else
ErgebnisHeim = 0
End If
End If
End Function
Function ErgebnisGast(Text As Variant) As Integer
'berechnet aus von Webseite ausgelesenem Ergebnis Punkte/Tore der Gastmannschaft
If Text " " And IsNumeric(Text) Then
ErgebnisGast = Minute(Text)
Else
If InStr(1, Text, ":") > 0 Then
ErgebnisGast = Val(Mid(Text, InStr(1, Text, ":") + 1))
Else
ErgebnisGast = 0
End If
End If
End Function
Dabei wird der Inhalt der Zelle mit den übertragenen Daten der Variablen Text zugewiesen und dann geprüft und entsprechend umgerechnet.
Diese Funktionen kann man natürlich auch mit den Excel-Standard-Funktionen als Zell-Formel eingeben. Aber die Formel wird schon ziemlich komplex.
Gruß
Franz