Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Excel-Tabelle: Daten aus den Fragebogen auslesen
Range("A4").Select
If Trim(ActiveCell.Value) "" Then
Range("A3").Select
Selection.End(xlDown).Select
Else
Range("A3").Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = gFormularDaten.strNachname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = gFormularDaten.strVorname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = gFormularDaten.strAbteilung
...
Eine letzte Besonderheit gibt es bei der Ja/Nein-Frage »Haben Sie die Umstiegs-Präsentation
besucht?«: Hier wird über eine IF-Then-Else-Abfrage der Status geprüft und
davon abhängig der Text »Ja«, »Nein« bzw. bei nicht angeklicktem Kontrollkästchen
ein Fragezeichen eingefügt. Da auch hier systembedingt nicht auszuschließen ist, dass
versehentlich beide Kontrollkästchen angeklickt wurden, hat die Antwort »Ja« aufgrund
der Reihenfolge in der IF-Then-Else-Abfrage Vorrang.
If gFormularDaten.booUmstiegJa Then
ActiveCell.Value = "Ja"
ElseIf gFormularDaten.booUmstiegNein Then
ActiveCell.Value = "Nein"
Else
ActiveCell.Value = "?"
End If
Symbol zum Start der VBA-Routine in der
Symbolleiste für den Schnellzugriff hinzufügen
Der VBA-Programmcode ist vollständig und Sie können den VBA-Editor schließen
und zu Ihrem Arbeitsblatt zurückkehren. Was fehlt, ist die komfortable Möglichkeit,
die Start-VBA-Routine pDatenAusFormularenUebernehmen aufzurufen. Jedes Mal die Tastenkombination
(Alt)+(F8) zu drücken oder Ansicht/Makros/Makros/Makros anzeigen
aufzurufen, ist in der Praxis zu umständlich.
Fügen Sie deshalb in der Symbolleiste für den Schnellzugriff eine Schaltfläche zum
Starten der VBA-Routine hinzu, sodass Sie künftig das Einlesen der Daten mit einem
Mausklick ausführen lassen können:
1. Klicken Sie in der Symbolleiste für den Schnellzugriff rechts auf den Dropdownpfeil.
Es klappt ein Menü auf, in dem Sie den zweitletzten Eintrag Weitere Befehle
wählen.
193