Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Sub MeldungsTest()<br />
Sheets(1).Range("A1").Value = _<br />
MsgBox("Mein Häuslein brennt!", _<br />
VbOKCancel + VbExclamation, "Hilfe")<br />
End Sub<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Sub EiGudeWie()<br />
MsgBox "Wir wünschen Ihnen einen guten Tag!"<br />
End Sub<br />
<br />
<br />
<br />
<br />
<br />
<br />
String <br />
<br />
<br />
<br />
<br />
<br />
Sub FaerbeA1()<br />
Dim Farbe As String<br />
Farbe = InputBox("Wählen Sie rot oder gelb:",_<br />
"Farbe eingeben", "rot)<br />
Sheets(1).Select<br />
Range("A1").Select<br />
If (UCase(Farbe) = "ROT") Then _<br />
Selection.Interior.ColorIndex = 3<br />
If (UCase("Farbe") = "GELB") Then _<br />
Selection.Interior.ColorIndex = 36<br />
End Function
Change language