Thema Datum  Von Nutzer Rating
Antwort
Rot Wert aus Userform wird nicht als Zeit in Excel erkannt
 11.02.2015 19:25:54 Sascha.Andreas
NotSolved
14.02.2015 13:40:40 MarkusK
NotSolved
15.02.2015 15:19:35 Gast57206
NotSolved
15.02.2015 18:51:30 MarkusK
NotSolved
15.02.2015 18:53:23 MarkusK
NotSolved

Ansicht des Beitrags:
Von:
Sascha.Andreas		 Datum:
11.02.2015 19:25:54		 Views:
1559		 Rating:
     
Antwort:
  Ja
Thema:
Wert aus Userform wird nicht als Zeit in Excel erkannt

Hallo zusammen,

ich habe ein kleines Makro in dem ich Laufzeiten für Strecken eingeben möchte und anschließend soll das Makro per Vlookup die gelaufene Zeit abgleichen und dafür Punkte vergeben. Für normale Zahlen wie das Kugelstoßen, Eingabe 6,8 funktioniert das auch er trägt die Werte in die Tabelle ein und den dazu gehörigen Punktewert von 4 Punkten. Bei Laufstrecken habe ich aber folgende Formatierung mm:ss,#. Diese Angabe überträgt er, findet aber keinen Vergleich. In der Excelzelle schreibt er alle Werte  linksbündig, erkennt aber bei den anderen Disziplinen trotzdem den richtigen Wert. Kann mir jemand sagen wie ich die Zeit für die Laufstrecke formatieren muß damit der Vergleich klappt? Da ich auch Angaben über 5000 Meter habe kann ich leider nicht nur mit Sekunden arbeiten.

Danke schon mal für eure Mühe

Hier mal der Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Private Sub cmdEingabe_Click()
' Fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular sportabi'
 Dim intErsteLeereZeile As Long
 Dim intLauf As Long
  
    intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    'MsgBox intErsteLeereZeile'
    ActiveSheet.Cells(intErsteLeereZeile, 1).Value = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 3
    ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtKlasse.Value
    ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.ComboGeschlecht.Value
    ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtName.Value
    ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtVorname.Value
    ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtSchriftlichePrüfung.Value
    ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.ComboSportart.Value
    ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtKomplexübungNote.Value
    ActiveSheet.Cells(intErsteLeereZeile, 9).Value = Me.txtSpielüberprüfungNote.Value
 
    'Berechnung der Sportspielnote wenn Feld nicht leer ist'
    If IsNull(Me.txtKomplexübungNote.Value) Then
        ActiveSheet.Cells(intErsteLeereZeile, 10).Value = Application.Round((CDbl(Me.txtKomplexübungNote.Value) + CDbl(Me.txtSpielüberprüfungNote.Value)) / 2, 0)
    End If
 
    ActiveSheet.Cells(intErsteLeereZeile, 11).Value = Me.comboLaufdisziplin.Value
    ActiveSheet.Cells(intErsteLeereZeile, 12).Value = Me.txtLaufdisziplin.Value
    ActiveSheet.Cells(intErsteLeereZeile, 13).Value = Me.comboSprungdisziplin.Value
    ActiveSheet.Cells(intErsteLeereZeile, 14).Value = Me.txtSprungdisziplin.Value
    ActiveSheet.Cells(intErsteLeereZeile, 15).Value = Me.comboWurfdisziplin.Value
    ActiveSheet.Cells(intErsteLeereZeile, 16).Value = Me.txtWurfdisziplin.Value
 
    'Berechnung der Noten über if Abfrage m/w welche Disziplin Lauf und Leistung mit sverweis / Vlookup'
    If Me.ComboGeschlecht.Value = "männlich" And Me.comboLaufdisziplin.Value = "100m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("O10:S25"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "männlich" And Me.comboLaufdisziplin.Value = "200m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("O100:S115"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "männlich" And Me.comboLaufdisziplin.Value = "400m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("U10:Y25"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "männlich" And Me.comboLaufdisziplin.Value = "5000m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("O76:S91"), 5, True)
    'Berechnung für die Frauen'
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboLaufdisziplin.Value = "100m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(TimeValue(Me.txtLaufdisziplin.Value), Sheets("Tabellen").Range("B10:F25"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboLaufdisziplin.Value = "200m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("B100:F115"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboLaufdisziplin.Value = "400m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("H10:L25"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboLaufdisziplin.Value = "5000m" Then
          ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Application.VLookup(Me.txtLaufdisziplin.Value, Sheets("Tabellen").Range("B76:F91"), 5, True)
    End If
 
    'Berechnung der Noten über if Abfrage m/w welche Disziplin Sprung und Leistung mit sverweis / Vlookup'
    If Me.ComboGeschlecht.Value = "männlich" And Me.comboSprungdisziplin.Value = "Hochsprung" Then
          ActiveSheet.Cells(intErsteLeereZeile, 18).Value = Application.VLookup(CDbl(Me.txtSprungdisziplin.Value), Sheets("Tabellen").Range("U32:Y47"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "männlich" And Me.comboSprungdisziplin.Value = "Weitsprung" Then
          ActiveSheet.Cells(intErsteLeereZeile, 18).Value = Application.VLookup(CDbl(Me.txtSprungdisziplin.Value), Sheets("Tabellen").Range("O32:S47"), 5, True)
    'Berechnung für die Frauen'
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboSprungdisziplin.Value = "Hochsprung" Then
          ActiveSheet.Cells(intErsteLeereZeile, 18).Value = Application.VLookup(CDbl(Me.txtSprungdisziplin.Value), Sheets("Tabellen").Range("H32:L47"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboSprungdisziplin.Value = "Weitsprung" Then
          ActiveSheet.Cells(intErsteLeereZeile, 18).Value = Application.VLookup(CDbl(Me.txtSprungdisziplin.Value), Sheets("Tabellen").Range("B32:F47"), 5, True)
    End If
 
    'Berechnung der Noten über if Abfrage m/w welche Disziplin Wurf und Leistung mit sverweis / Vlookup'
    If Me.ComboGeschlecht.Value = "männlich" And Me.comboWurfdisziplin.Value = "Kugelstoßen" Then
          ActiveSheet.Cells(intErsteLeereZeile, 19).Value = Application.VLookup(CDbl(Me.txtWurfdisziplin.Value), Sheets("Tabellen").Range("O54:S69"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "männlich" And Me.comboWurfdisziplin.Value = "Speerwurf" Then
          ActiveSheet.Cells(intErsteLeereZeile, 19).Value = Application.VLookup(CDbl(Me.txtWurfdisziplin.Value), Sheets("Tabellen").Range("U54:Y69"), 5, True)
    'Berechnung für die Frauen'
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboWurfdisziplin.Value = "Kugelstoßen" Then
          ActiveSheet.Cells(intErsteLeereZeile, 19).Value = Application.VLookup(CDbl(Me.txtWurfdisziplin.Value), Sheets("Tabellen").Range("B54:F69"), 5, True)
 
    ElseIf Me.ComboGeschlecht.Value = "weiblich" And Me.comboWurfdisziplin.Value = "Speerwurf" Then
          ActiveSheet.Cells(intErsteLeereZeile, 19).Value = Application.VLookup(CDbl(Me.txtWurfdisziplin.Value), Sheets("Tabellen").Range("H54:L69"), 5, True)
    End If
 
    'Eintragung der Prüfungsdaten'
    ActiveSheet.Cells(intErsteLeereZeile, 21).Value = Me.txtFSLPNote.Value
    ActiveSheet.Cells(intErsteLeereZeile, 24).Value = Me.txtVorsitz.Value
    ActiveSheet.Cells(intErsteLeereZeile, 25).Value = Me.txtSchrift.Value
    ActiveSheet.Cells(intErsteLeereZeile, 26).Value = Me.txtFach.Value
    ActiveSheet.Cells(intErsteLeereZeile, 27).Value = Me.txtSportspielDatum.Value
    ActiveSheet.Cells(intErsteLeereZeile, 28).Value = Me.txtSportspielBeginn.Value
    ActiveSheet.Cells(intErsteLeereZeile, 29).Value = Me.txtSportspielEnde.Value
    ActiveSheet.Cells(intErsteLeereZeile, 30).Value = Me.txtLeichtatlethikDatum.Value
    ActiveSheet.Cells(intErsteLeereZeile, 31).Value = Me.txtLeichtatlethikBeginn.Value
    ActiveSheet.Cells(intErsteLeereZeile, 32).Value = Me.txtlLeichtatlethikEnde.Value
    ActiveSheet.Cells(intErsteLeereZeile, 33).Value = Me.txtFSLPDatum.Value
    ActiveSheet.Cells(intErsteLeereZeile, 34).Value = Me.txtFSLPBeginn.Value
    ActiveSheet.Cells(intErsteLeereZeile, 35).Value = Me.txtFSLPEnde.Value
     
    'Sortierung nach Klasse und Name'
      Range("A5:AI244").Select
    ActiveWorkbook.Worksheets("Ergebnisse").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ergebnisse").Sort.SortFields.Add Key:=Range( _
        "B6:B244"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Ergebnisse").Sort.SortFields.Add Key:=Range( _
        "D6:D244"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Ergebnisse").Sort
        .SetRange Range("A5:AI244")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wert aus Userform wird nicht als Zeit in Excel erkannt
 11.02.2015 19:25:54 Sascha.Andreas
NotSolved
14.02.2015 13:40:40 MarkusK
NotSolved
15.02.2015 15:19:35 Gast57206
NotSolved
15.02.2015 18:51:30 MarkusK
NotSolved
15.02.2015 18:53:23 MarkusK
NotSolved