Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Excel-Tabelle: Daten aus den Fragebogen auslesen
Um das Datum in VBA in einer Variablen vom Typ Date abzulegen, muss demnach
zum einen das »T« entfernt und zum anderen aus der Zeichenkette ein Datum werden.
Zuständig hierfür ist die Funktion fInDatumUmwandeln, der als Parameter das Datum im
XML-Format übergeben wird und die als Ergebnis das Datum im VBA-Format zurückliefert.
Im Praxisbeispiel wird so mit
gFormularDaten.dtmInstallationsdatum = fInDatumUmwandeln(strvDatum:=cxmlvCustomXML.
SelectSingleNode(cXMLRootKnoten & "/Installationsdatum").Text)
der Inhalt des XML-Knotens root/Installationsdatum ausgelesen und an die Funktion
fInDatumUmwandeln übergeben; das umgewandelte Datum wird in der Strukturvariablen
dtmInstallationsdatum abgelegt.
Die Funktion fInDatumUmwandeln kommt mit wenigen Kommandos aus, da sie in dem
übergebenen String strvDatum das »T« durch »nichts« ersetzt und das so umgewandelte
Ergebnis mit CDate in ein Datum konvertiert:
Function fInDatumUmwandeln(ByVal strvDatum As String) As Date
If Trim(strvDatum) "" Then
fInDatumUmwandeln = CDate(Replace(Expression:=strvDatum, _
Find:="T", _
Replace:=" "))
Else
fInDatumUmwandeln = ""
End If
End Function
Kontrollkästchen zur Notenvergabe auswerten
Die zweite Routine, die neben der Routine pDatenAusDenXMLKnotenAuslesen innerhalb der
großen Ausleseschleife aufgerufen wird, kümmert sich um die Auswertung der Kontrollkästchen.
Sie ruft für jede (der aus sechs Kontrollkästchen bestehenden) Benotung
die Funktion fNotenAuswerten auf. Dabei werden der Funktion die Inhalte der sechs Kontrollkästchen
in Form der Parameter boovNote1 bis boovNote6 übergeben, das Ergebnis gibt
die Funktion in Form eines Integer-Wertes zwischen 1 und 6 zurück.
Sub pNotenAuswerten()
gintNoteMenüband = fNotenAuswerten(boovNote1:=gFormularDaten.booMenüband1, _
boovNote2:=gFormularDaten.booMenüband2, _
boovNote3:=gFormularDaten.booMenüband3, _
boovNote4:=gFormularDaten.booMenüband4, _
boovNote5:=gFormularDaten.booMenüband5, _
boovNote6:=gFormularDaten.booMenüband6)
...
End Sub
In der Funktion fNotenAuswerten wird über einfache If-Then-ElseIf-Abfragen der Status
der Kontrollkästchen geprüft. Da Word keine Optionsfelder kennt, bei denen immer
nur ein Optionsfeld aktiv sein kann, ist es möglich, dass im Fragebogen mehrere Kontrollkästchen
angekreuzt wurden. Deshalb wird bedingt durch die Reihenfolge in der
191