Werte HTML Gemeinde,seit stunden versuche ich folgendes:
1.SpieltagBC Eagles Kassel21.09.2008Eschersheim069 - 522207[/size][size="2"]<td class='navheadleft' '' width='15%'>1.Spieltag</td><td class='navheadleft' '' width='35%'>BC Eagles Kassel</td><td class='navheadleft' '' width='15%'>39712</td><td class='navheadleft' '' width='20%'>Eschersheim</td><td class='navheadleft' '' width='35%'>069 - 522207</td></tr>
habe mal das prob.fett gemacht.wie bekome ich es hin,das das datum in der exeltabelle richt in der codierung wiedergegeben wird. Danke schon mal.
Vollansicht: Datum mit HTML
HTML-Editor phase 5 Support > Fragen, Lösungen zu HTML-Problemen bzw. Webdesign-Fragen - Talk > HTML
Wertes Neumitglied, ich habe ein dumpfe Ahnung, worauf du hinauswillst, aber ich bitte dich, deine Frage noch einmal vernünftig zu formulieren.
- Was machst du (z.B. HTML-Code in eine Excel-Tabelle kopieren)?
- Was erwartest du als Resultat (z.B. ein korrekt formatiertes Datum in der 3. Spalte)?
- Was bekommst du stattdessen als Resultat (z.B. eine Zahl)?
Ich erzeuge den code aus eine exeltabelle.ja es sollte schon ein korrekt formatiertes Datum sein.
Also wenn du nicht in der Lage bist, genauer zu beschreiben, was genau du machst, kann ich dir leider auch nicht weiterhelfen. 39712 ist die Excel-Darstellung des Datums 21.09.2008 als Zahl. Und sicher gibt es Möglichkeiten, Excel dazu zu bewegen, anstelle dieser Zahl das korrekt formatierte Datum zu liefern. Aber ohne zu wissen, wie genau du diesen HTML-Code aus Excel erzeugst, geht das nicht. Also beschreibe bitte Schritt für Schritt, was du machst, so dass jemand, der das liest, diesen Vorgang Eins zu Eins nachvollziehen kann. Dazu gehören natürlich auch die Versionsangaben aller beteiligten Programme.
ZITAT(doitnow @ 29.08.2008 - 20:45) 
Ich erzeuge den code aus eine exeltabelle.ja es sollte schon ein korrekt formatiertes Datum sein.
Hi Thomas,ja wie soll ich das nur erklären,hilft es dir,wenn ich einmal die exeldatei hoch lade.
habe jetzt versucht eine gepackte exeldatei hoch zu laden,geht nicht.
habe schon in dem datumsfeld mit zellenformatierung herumgebastelt bringt aber nichts.
ja was mache ich genau .schau dir mal den link an:
http://www.online-bowling.de/include.php?f...3b3c3925faeae7f
das ieht man wie ich das bisher gelöst hatte.nähmlich so:21./09.2008.
ich bin sicher lästig.aber darf ich dich mal anrufen??
gruss robert
Hallo,
ich benutze seit Jahren folgendes VBA-Script um aus Excel zu exportieren:
ZITAT(doitnow @ 30.08.2008 - 9:52)
ZITAT(doitnow @ 29.08.2008 - 20:45)
Ich erzeuge den code aus eine exeltabelle.ja es sollte schon ein korrekt formatiertes Datum sein.
CODE
Sub html()
doktest ("Laden Sie eine Datei!")
Dim a As Variant
az = Chr(34)
CR = Chr(13)
tda = "<td>"
tdar = "<td align=" + az + "right" + az + ">"
tde = "</td>"
ba = "<b>"
be = "</b>"
bstartalpha = ""
bendalpha = ""
While Len(area) < 5
area = InputBox(prompt:="Gib den zu konvertierenden Bereich ein!" + CR + "Bsp.: A1:D20", Title:="Bereich zum Konvertieren")
If area = "" Then End
If Len(area) < 5 Then MsgBox "Fehlerhafte Eingabe!!!" + CR + "Bitte in der Form A1:B2 eingeben!"
Wend
For pos = 1 To Len(area)
If Mid(area, pos, 1) = ":" Then
dblpoint = pos
Exit For
End If
Next pos
bstart = UCase(Mid(area, 1, dblpoint - 1))
bend = UCase(Mid(area, dblpoint + 1, Len(area)))
For pos = 1 To Len(bstart)
If Asc(Mid(bstart, pos, 1)) >= 65 And Asc(Mid(bstart, pos, 1)) <= 90 Then
bstarta = bstarta + Mid(bstart, pos, 1)
End If
Next pos
Select Case Len(bstarta)
Case 1
spalstart = Asc(bstarta) - 65
Case 2
spalstart = (26 * (Asc(Mid(bstarta, 1, 1)) - 64)) + (Asc(Mid(bstarta, 2, 1)) - 65)
End Select
zeilstart = Val(Mid(bstart, Len(bstarta) + 1, Len(bstart))) - 1
For pos = 1 To Len(bend)
If Asc(Mid(bend, pos, 1)) >= 65 And Asc(Mid(bend, pos, 1)) <= 90 Then
benda = benda + Mid(bend, pos, 1)
End If
Next pos
Select Case Len(benda)
Case 1
spalend = Asc(benda) - 65
Case 2
spalend = (26 * (Asc(Mid(benda, 1, 1)) - 64)) + (Asc(Mid(benda, 2, 1)) - 65)
End Select
zeilend = Val(Mid(bend, Len(benda) + 1, Len(bend)))
zeilen = zeilend - zeilstart
spalten = spalend - spalstart + 1
If ActiveWorkbook.Path <> "" Then
pfad = ActiveWorkbook.Path
Else
pfad = Environ("USERPROFILE") & "\Eigene Dateien"
End If
filnam = InputBox(prompt:="Gib den Dateinamen ein!" + CR + pfad + CR + "(die Endung .htm wird automatisch eingefügt)", Title:="Dateiname", Default:=ActiveWorkbook.Name)
If filnam = "" Then End
htmlfile = pfad & "\" & filnam & ".htm"
htmtitel = InputBox(prompt:="Gib den Titel der HTML-Seite ein!", Title:="HTML-Seiten-Titel", Default:="Stadt Grimmen - ")
ActiveSheet.Select
Open LCase(htmlfile) For Output As #1
Print #1, "<html><head>"
Print #1, "<title>" + htmtitel + "</title>"
Print #1, "</head><body>"
Print #1, "<table>"
For y = 1 + zeilstart To zeilen + zeilstart
Print #1, "<tr>";
For x = 1 + spalstart To spalten + spalstart
a = Cells(y, x).Value
Style = Cells(y, x).Font.FontStyle
CellForm = Cells(y, x).NumberFormat
Select Case CellForm
Case "h:mm", "h:mm:ss", "[h]:mm", "[h]:mm:ss"
IsTime = True
Case Else
IsTime = False
End Select
If Style = "Bold" Or Style = "Fett" Or Style = "Regular Fett" Or Style = "Medium" Then
If IsNumeric(a) Then
ca = tdar + ba
ce = be + tde
Else
ca = tda + ba
ce = be + tde
End If
Else
If IsNumeric(a) Then
ca = tdar
ce = tde
Else
ca = tda
ce = tde
End If
End If
typevar = VarType(a)
Select Case typevar
Case 0, 1
a = " "
Case 2, 3
a = Format(a, "#0")
Case 4, 5
If (a - Int(a) <> 0) Then
If IsTime Then
a = Format(a, "hh:mm")
IsTime = False
Else
a = Format(a, "#0.00")
End If
Else
a = Format(a, "#0")
End If
Case 6
a = Format(a, "0.00DM")
Case 7
If IsTime Then
a = Format(a, "hh:mm")
IsTime = False
Else
a = Format(a, "DD.MM.YYYY")
End If
Case 8
a = a
End Select
Print #1, ca; a; ce;
Next x
Print #1, "</tr>"
Next y
Print #1, "</table>"
Print #1, "</body></html>"
Close #1
End Sub
Sub doktest(err_msg)
CR = Chr(13)
If Workbooks.Count >= 2 Then
Else
MsgBox "Funktion nur verfügbar, wenn gespeichertes oder neues Dokument geöffnet ist!", vbOKOnly, "Fehlerhinweis!" + " - " + err_msg
End
End If
End Sub
Die Funktion "Format (...) ist Dein Freund! Es werden sicher nicht alle Varianten von Formatierungen aus Excel abgefangen, aber die wichtigsten schon. Ich hoffe, das ist es, was Du wissen wolltest.
doktest ("Laden Sie eine Datei!")
Dim a As Variant
az = Chr(34)
CR = Chr(13)
tda = "<td>"
tdar = "<td align=" + az + "right" + az + ">"
tde = "</td>"
ba = "<b>"
be = "</b>"
bstartalpha = ""
bendalpha = ""
While Len(area) < 5
area = InputBox(prompt:="Gib den zu konvertierenden Bereich ein!" + CR + "Bsp.: A1:D20", Title:="Bereich zum Konvertieren")
If area = "" Then End
If Len(area) < 5 Then MsgBox "Fehlerhafte Eingabe!!!" + CR + "Bitte in der Form A1:B2 eingeben!"
Wend
For pos = 1 To Len(area)
If Mid(area, pos, 1) = ":" Then
dblpoint = pos
Exit For
End If
Next pos
bstart = UCase(Mid(area, 1, dblpoint - 1))
bend = UCase(Mid(area, dblpoint + 1, Len(area)))
For pos = 1 To Len(bstart)
If Asc(Mid(bstart, pos, 1)) >= 65 And Asc(Mid(bstart, pos, 1)) <= 90 Then
bstarta = bstarta + Mid(bstart, pos, 1)
End If
Next pos
Select Case Len(bstarta)
Case 1
spalstart = Asc(bstarta) - 65
Case 2
spalstart = (26 * (Asc(Mid(bstarta, 1, 1)) - 64)) + (Asc(Mid(bstarta, 2, 1)) - 65)
End Select
zeilstart = Val(Mid(bstart, Len(bstarta) + 1, Len(bstart))) - 1
For pos = 1 To Len(bend)
If Asc(Mid(bend, pos, 1)) >= 65 And Asc(Mid(bend, pos, 1)) <= 90 Then
benda = benda + Mid(bend, pos, 1)
End If
Next pos
Select Case Len(benda)
Case 1
spalend = Asc(benda) - 65
Case 2
spalend = (26 * (Asc(Mid(benda, 1, 1)) - 64)) + (Asc(Mid(benda, 2, 1)) - 65)
End Select
zeilend = Val(Mid(bend, Len(benda) + 1, Len(bend)))
zeilen = zeilend - zeilstart
spalten = spalend - spalstart + 1
If ActiveWorkbook.Path <> "" Then
pfad = ActiveWorkbook.Path
Else
pfad = Environ("USERPROFILE") & "\Eigene Dateien"
End If
filnam = InputBox(prompt:="Gib den Dateinamen ein!" + CR + pfad + CR + "(die Endung .htm wird automatisch eingefügt)", Title:="Dateiname", Default:=ActiveWorkbook.Name)
If filnam = "" Then End
htmlfile = pfad & "\" & filnam & ".htm"
htmtitel = InputBox(prompt:="Gib den Titel der HTML-Seite ein!", Title:="HTML-Seiten-Titel", Default:="Stadt Grimmen - ")
ActiveSheet.Select
Open LCase(htmlfile) For Output As #1
Print #1, "<html><head>"
Print #1, "<title>" + htmtitel + "</title>"
Print #1, "</head><body>"
Print #1, "<table>"
For y = 1 + zeilstart To zeilen + zeilstart
Print #1, "<tr>";
For x = 1 + spalstart To spalten + spalstart
a = Cells(y, x).Value
Style = Cells(y, x).Font.FontStyle
CellForm = Cells(y, x).NumberFormat
Select Case CellForm
Case "h:mm", "h:mm:ss", "[h]:mm", "[h]:mm:ss"
IsTime = True
Case Else
IsTime = False
End Select
If Style = "Bold" Or Style = "Fett" Or Style = "Regular Fett" Or Style = "Medium" Then
If IsNumeric(a) Then
ca = tdar + ba
ce = be + tde
Else
ca = tda + ba
ce = be + tde
End If
Else
If IsNumeric(a) Then
ca = tdar
ce = tde
Else
ca = tda
ce = tde
End If
End If
typevar = VarType(a)
Select Case typevar
Case 0, 1
a = " "
Case 2, 3
a = Format(a, "#0")
Case 4, 5
If (a - Int(a) <> 0) Then
If IsTime Then
a = Format(a, "hh:mm")
IsTime = False
Else
a = Format(a, "#0.00")
End If
Else
a = Format(a, "#0")
End If
Case 6
a = Format(a, "0.00DM")
Case 7
If IsTime Then
a = Format(a, "hh:mm")
IsTime = False
Else
a = Format(a, "DD.MM.YYYY")
End If
Case 8
a = a
End Select
Print #1, ca; a; ce;
Next x
Print #1, "</tr>"
Next y
Print #1, "</table>"
Print #1, "</body></html>"
Close #1
End Sub
Sub doktest(err_msg)
CR = Chr(13)
If Workbooks.Count >= 2 Then
Else
MsgBox "Funktion nur verfügbar, wenn gespeichertes oder neues Dokument geöffnet ist!", vbOKOnly, "Fehlerhinweis!" + " - " + err_msg
End
End If
End Sub
Hi Robert,
formatiere die Datumszelle in Deiner Exceltabelle wie folgt:
Zellenformatierung auf Text stellen dann das Datum mit einem Hochkomme in die Zelle schreiben.
Etwa so: '01.09.2008
Das Hochkomma bleibt unsichtbar, sollte beim Formatieren in HTML aber helfen...
cu
Conny
formatiere die Datumszelle in Deiner Exceltabelle wie folgt:
Zellenformatierung auf Text stellen dann das Datum mit einem Hochkomme in die Zelle schreiben.
Etwa so: '01.09.2008
Das Hochkomma bleibt unsichtbar, sollte beim Formatieren in HTML aber helfen...
cu
Conny
Hallo Robert,
was ist so schwierig daran, zu beschreiben, wie du aus Excel HTML erzeugst? Ich verstehe das nicht. Du öffnest eine Excel-Tabelle. Dann klickst du auf Menüeinträge oder Knöpfe und am Ende hast du deinen HTML-Code. Vielleicht lädst du auch eine Exceltabelle auf den Server und hast da ein Programm (PHPKIT der Gersöne & Schott GbR) welches die Umsetzung vornimmt? Niemand weiß es, weil du es nicht angibst. Beschreib doch einfach, was genau du da machst, dann kann man dir auch helfen. Du hast jetzt, obwohl du eigentlich nicht wirklich konkreter geworden bist, zwei Hilfestellungen bekommen. Ob sie dir helfen, kannst nur du abschätzen, da niemand weiß, was du im Endeffekt machst.
Ich habe bei verschiedenen Versuchen, Inhalte aus Excel zu kopieren, nie Probleme mit dem Datum gehabt. Wie soll ich dir da helfen, wenn du einfach nur schreibst, "bei mir geht es nicht"? Was geht nicht? Was machst du? Falls dir die vorangegangenen Hinweise nicht weiterhelfen, gib doch bitte die Version deines Excels an und beschreibe Schritt für Schritt dein Vorgehen.
Bitte nicht. Aus diesem Anlass ein Hinweis an alle, die hier im Forum Fragen stellen: Alle hier am Forum Beteiligten verwenden einen Teil ihrer Freizeit dazu, um anderen unentgeltlich zu helfen. Wer Hilfe sucht, kann hier Fragen posten und ggf. in Ausnahmefällen auch per PN noch einmal nachfragen. Es wird in den meisten Fällen eine Antwort geben - wenn auch nicht unbedingt sofort innerhalb der nächsten 10 Minuten. Die einzige dafür notwendige Investition des Fragenden ist es, das betroffene Problem klar, deutlich und nachvollziehbar zu beschreiben.
Falls ausnahmsweise einmal keine Lösung gefunden wird, liegt es in 98 Prozent der Fälle an der unklaren Beschreibung und in 2 Prozent der Fälle daran, dass tatsächlich niemand eine Lösung parat hat. In beiden Fällen ist es müßig, ständig nachzuhaken. Eine private Kontaktaufnahme ist keinesfalls erwünscht - falls doch, wird dies explizit kundgetan. Wenn jeder, der hier hilft, auch noch exklusiven Privatsupport anbieten wollte, bliebe keine Zeit mehr für andere Dinge.
Und nochmal zur Deutlichkeit der Beschreibung - Würdest du deinen Arzt anrufen und ihm sagen: "Mir tut mein Arm weh" und dann ernsthaft erwarten, dass er dir eine fundierte medizinische Diagnose liefert?
Falls es dir auch weiterhin unmöglich ist, dein Vorgehen Schritt für Schritt zu beschreiben, hilft dir eventuell Connys Vorschlag weiterhin, obwohl ich mir fast denken kann, dass du dann das ' auch in deinem HTML-Code hast. Eine weitere Option könnte es sein, in Excel über "Daten"/"Text in Spalten" eine explizite Umwandlung des Datums in eine Zeichenkette zu erreichen.
was ist so schwierig daran, zu beschreiben, wie du aus Excel HTML erzeugst? Ich verstehe das nicht. Du öffnest eine Excel-Tabelle. Dann klickst du auf Menüeinträge oder Knöpfe und am Ende hast du deinen HTML-Code. Vielleicht lädst du auch eine Exceltabelle auf den Server und hast da ein Programm (PHPKIT der Gersöne & Schott GbR) welches die Umsetzung vornimmt? Niemand weiß es, weil du es nicht angibst. Beschreib doch einfach, was genau du da machst, dann kann man dir auch helfen. Du hast jetzt, obwohl du eigentlich nicht wirklich konkreter geworden bist, zwei Hilfestellungen bekommen. Ob sie dir helfen, kannst nur du abschätzen, da niemand weiß, was du im Endeffekt machst.
Ich habe bei verschiedenen Versuchen, Inhalte aus Excel zu kopieren, nie Probleme mit dem Datum gehabt. Wie soll ich dir da helfen, wenn du einfach nur schreibst, "bei mir geht es nicht"? Was geht nicht? Was machst du? Falls dir die vorangegangenen Hinweise nicht weiterhelfen, gib doch bitte die Version deines Excels an und beschreibe Schritt für Schritt dein Vorgehen.
ZITAT(doitnow @ 30.08.2008 - 9:52)
ich bin sicher lästig.aber darf ich dich mal anrufen??
Bitte nicht. Aus diesem Anlass ein Hinweis an alle, die hier im Forum Fragen stellen: Alle hier am Forum Beteiligten verwenden einen Teil ihrer Freizeit dazu, um anderen unentgeltlich zu helfen. Wer Hilfe sucht, kann hier Fragen posten und ggf. in Ausnahmefällen auch per PN noch einmal nachfragen. Es wird in den meisten Fällen eine Antwort geben - wenn auch nicht unbedingt sofort innerhalb der nächsten 10 Minuten. Die einzige dafür notwendige Investition des Fragenden ist es, das betroffene Problem klar, deutlich und nachvollziehbar zu beschreiben.
Falls ausnahmsweise einmal keine Lösung gefunden wird, liegt es in 98 Prozent der Fälle an der unklaren Beschreibung und in 2 Prozent der Fälle daran, dass tatsächlich niemand eine Lösung parat hat. In beiden Fällen ist es müßig, ständig nachzuhaken. Eine private Kontaktaufnahme ist keinesfalls erwünscht - falls doch, wird dies explizit kundgetan. Wenn jeder, der hier hilft, auch noch exklusiven Privatsupport anbieten wollte, bliebe keine Zeit mehr für andere Dinge.
Und nochmal zur Deutlichkeit der Beschreibung - Würdest du deinen Arzt anrufen und ihm sagen: "Mir tut mein Arm weh" und dann ernsthaft erwarten, dass er dir eine fundierte medizinische Diagnose liefert?
Falls es dir auch weiterhin unmöglich ist, dein Vorgehen Schritt für Schritt zu beschreiben, hilft dir eventuell Connys Vorschlag weiterhin, obwohl ich mir fast denken kann, dass du dann das ' auch in deinem HTML-Code hast. Eine weitere Option könnte es sein, in Excel über "Daten"/"Text in Spalten" eine explizite Umwandlung des Datums in eine Zeichenkette zu erreichen.
ZITAT(Conny @ 01.09.2008 - 8:06)
Hi Robert,
formatiere die Datumszelle in Deiner Exceltabelle wie folgt:
Zellenformatierung auf Text stellen dann das Datum mit einem Hochkomme in die Zelle schreiben.
Etwa so: '01.09.2008
Das Hochkomma bleibt unsichtbar, sollte beim Formatieren in HTML aber helfen...
cu
Conny
formatiere die Datumszelle in Deiner Exceltabelle wie folgt:
Zellenformatierung auf Text stellen dann das Datum mit einem Hochkomme in die Zelle schreiben.
Etwa so: '01.09.2008
Das Hochkomma bleibt unsichtbar, sollte beim Formatieren in HTML aber helfen...
cu
Conny
Das werde ich aber gleich ausprobieren.aber schon mal herzlichendank im voraus.
habe es ausprobiert es funktioniert,super danke
ZITAT(doitnow @ 01.09.2008 - 8:58)
habe es ausprobiert es funktioniert,super danke
Natürlich funktioniert das. Hat nur den gravierenden Nachteil, dass Du jetzt in Excel kein Datum mehr hast, sondern nur ein Textfeld. Wenn das egal ist - gut. Wenn das Feld in der Tabelle z.B. für Berechnungen benutzt wird - schlecht.Kann aber so keiner beurteilen.
Gruß
Andreas
Hallo,
wie Andreas richtig schreibt ist es nun aber kein Datum mehr, was diverse funktionelle Nachteile mit sich bringt.
Die HTML-Exportfunktion von M$ ist derart gruselig, dass kein Mensch wirklich gebrauchen kann, was die als HTML auswirft.
Deshalb habe ich versucht, mir eine universelle Prozedur zu schreiben, die eine Tabelle ohne viel Schnick-Schnack exportiert, und ohne dass ich meine üblichen Gewohnheiten/Erfahrungen mit Excel verbiegen muss. Diese Prozedur in der personl.xls im Verzeichnis ...\Microsoft Office\Office\XLStart abgelegt, steht sofort allen Excel-Dokumenten zur Verfügung. Jetzt noch ein Icon in die Menüleiste und es exportiert - bei mir schon seit Jahren.
Das HTML was dabei erzeugt wird, ist übersichtlich und kann per Copy&Paste leicht überall eingearbeitet werden.
ZITAT(doitnow @ 01.09.2008 - 8:58)
habe es ausprobiert es funktioniert,super danke
wie Andreas richtig schreibt ist es nun aber kein Datum mehr, was diverse funktionelle Nachteile mit sich bringt.
Die HTML-Exportfunktion von M$ ist derart gruselig, dass kein Mensch wirklich gebrauchen kann, was die als HTML auswirft.
Deshalb habe ich versucht, mir eine universelle Prozedur zu schreiben, die eine Tabelle ohne viel Schnick-Schnack exportiert, und ohne dass ich meine üblichen Gewohnheiten/Erfahrungen mit Excel verbiegen muss. Diese Prozedur in der personl.xls im Verzeichnis ...\Microsoft Office\Office\XLStart abgelegt, steht sofort allen Excel-Dokumenten zur Verfügung. Jetzt noch ein Icon in die Menüleiste und es exportiert - bei mir schon seit Jahren.
Das HTML was dabei erzeugt wird, ist übersichtlich und kann per Copy&Paste leicht überall eingearbeitet werden.
Dieses ist eine vereinfachte Darstellung unseres Foreninhaltes. Um die detaillierte Vollansicht mit Formatierung und Bildern zu betrachten, bitte hier klicken.