Beiträge von Coban
-
-
-
-
-
-
-
-
-
-
-
-
-
-
ein Key ging an MoonMann
mal schauen wenn genug Interesse besteht gibts vllt noch meinten 2ten Invite

-
Spoiler anzeigen
[cs]Sub Geschäftsfähig()
Cells(6, 2).ClearFormats
If Cells(4, 2) < 7 Then
Cells(6, 2).Value = "Nicht geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
ElseIf Cells(4, 2) < 14 Then
Cells(6, 2).Value = "Beschränkt geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
ElseIf Cells(4, 2) < 18 Then
Cells(6, 2).Value = "Erweitert geschäftsfähig"
Cells(6, 2).Interior.ColorIndex = 3
Else
Cells(6, 2).Value = "Voll geschäftsfähig"
End If
[/cs]noch langweiliger
Hihi wie süß die Farben doch sind

-
Code
Alles anzeigenSub Datumsberechnung() Dim Datum As Date Dim Tage As Integer Datum = InputBox("Geben Sie ein Datum ein!") Tage = Datum - Now MsgBox ("Bis zum " & Datum & " sind es noch " & Tage & " Tage"), vbInformation, "Tageberechnung" End Sub Sub Zinsen() Cells(1, 1).Font.Bold = True Cells(1, 1).Font.Size = 15 'Formatierung der Überschrift Cells(3, 2).Value = InputBox("Wie hoch soll das angelegte Kapital sein?") Cells(7, 2).Value = Cells(3, 2) * Cells(4, 2) * Cells(5, 2) Cells(8, 2).Value = Cells(7, 2).Value * 25 / 100 Cells(9, 2).Value = Cells(7, 2).Value - Cells(8, 2).Value MsgBox ("Die Gesamtzinsen für diese Laufzeit betragen EURO " & Cells(9, 2) & " nach Steuern!") End SubIs das nich voll langweilig?
-
-
-
-