Hallo bin neu hier und bräuchte eure Hilfe bitte.
Ich habe 2 Inputfelder in den man Z.B. seinen Namen und Stunden eingibt. Diese Eingabe soll in Variablen gespeichert werden und in einer Liste ausgegeben werden.
Das Speichern der eingegebenen Daten funktioniert soweit aber die Ausgabe nicht!! Wieso? Wo sind meine Fehler?
Im Anhang befindet sich der die Datei als Rar, entpacken und schauts euch´s an...
Danke euch,
Grüße aus Bayern
Gervacio
##################################
Option Explicit
Dim feld(1)
'Holt die Werte aus den Textbox und speichert sie in die zwischenablage.
Sub send()
Dim edname
Dim edstunden
Dim editbox
Dim maxIndex
Stop
'Holt sich die Werte aus dem html_element und legts wieder auf empty.
Set editbox= document.getElementById("p_name")
edname= editbox.value
editbox.value= ""
Set editbox= document.getElementById("p_std")
edstunden= editbox.value
editbox.value= ""
maxIndex= UBound (feld)
ReDim Preserve feld(maxIndex +1)
feld (maxIndex +1)= edname
If TypeName(edname)= "" Then
MsgBox "Bitte geben Sie ihren Namen ein"
End If
ReDim Preserve feld(maxIndex +1)
feld(maxIndex +1)= Cint(edstunden)
If CInt(edstunden)= "" Then
MsgBox "Bitte geben Sie ihre Stunden ein"
End If
End Sub
Sub Ausgabe(ByRef edfeld)
Dim i
Dim leer
Stop
leer ="------------"
If IsEmpty(edfeld) Then
MsgBox "Liste ist leider leer"
Elseif IsArray(edfeld) Then
For i = 0 To UBound (edfeld) Step 2
liste.value= liste.value & "Name:" & edfeld(i) & VbCrLf & "Stunden:" & edfeld(i+1)& VbCrLf &leer& VbCrLf
Next
End If
End Sub
Ich habe 2 Inputfelder in den man Z.B. seinen Namen und Stunden eingibt. Diese Eingabe soll in Variablen gespeichert werden und in einer Liste ausgegeben werden.
Das Speichern der eingegebenen Daten funktioniert soweit aber die Ausgabe nicht!! Wieso? Wo sind meine Fehler?
Im Anhang befindet sich der die Datei als Rar, entpacken und schauts euch´s an...
Danke euch,
Grüße aus Bayern
Gervacio
##################################
Option Explicit
Dim feld(1)
'Holt die Werte aus den Textbox und speichert sie in die zwischenablage.
Sub send()
Dim edname
Dim edstunden
Dim editbox
Dim maxIndex
Stop
'Holt sich die Werte aus dem html_element und legts wieder auf empty.
Set editbox= document.getElementById("p_name")
edname= editbox.value
editbox.value= ""
Set editbox= document.getElementById("p_std")
edstunden= editbox.value
editbox.value= ""
maxIndex= UBound (feld)
ReDim Preserve feld(maxIndex +1)
feld (maxIndex +1)= edname
If TypeName(edname)= "" Then
MsgBox "Bitte geben Sie ihren Namen ein"
End If
ReDim Preserve feld(maxIndex +1)
feld(maxIndex +1)= Cint(edstunden)
If CInt(edstunden)= "" Then
MsgBox "Bitte geben Sie ihre Stunden ein"
End If
End Sub
Sub Ausgabe(ByRef edfeld)
Dim i
Dim leer
Stop
leer ="------------"
If IsEmpty(edfeld) Then
MsgBox "Liste ist leider leer"
Elseif IsArray(edfeld) Then
For i = 0 To UBound (edfeld) Step 2
liste.value= liste.value & "Name:" & edfeld(i) & VbCrLf & "Stunden:" & edfeld(i+1)& VbCrLf &leer& VbCrLf
Next
End If
End Sub