1.Menüleiste: Ansicht>Symboleisten>Visual Basic aktivieren
2.auf neuer symboleiste das Werkzeugsymbol anklicken
Ergebnis1:Jezt kann man die Standart Visual Basic objekte einfügen.
3.Commandbutton anklicken und auf dem sheet(tabelle) in die richtige größe ziehen...und dann loslassen
4.doppelt auf commandbutton klicken
5.Code einfügen:
Private Sub Command1_click()
for each Feld in Range("A1:I20")
select case feld
case 0: feld.value="nee"
case 1: feld.value="jo"
end select
next
End Sub
6. Startbutton(Play-Symbol) drücken
7. Auf den butten klicken
Hinweis:
Jezt wird aus Jeder 0 : "nee"
Jezt wird aus Jeder 1 : "jo"
Verwendungszweck: Bei großen tabellen, kommt es vor, dass häufig das gleiche eingegeben werden muss. Mit so einer miniaplikation, die man relativ simple einbauen kann, kann viel Zeit gespart werden.
um dieses Beispiel zu modifizieren ist das nötig:
case <Zahl/Text die ersezt verden>: feld.value=<Zahl/Text mit dem ersezt verden>
Wichtig: Texte müssen in "" gesezt werden, zahlen nicht notwendig