Festzeit.ch Forum » Computer » Für dr Balu
| Autor | Beitrag |
|---|---|
| r2kMo 11.12.06, 13:26 | Option Explicit Sub uebung19() Dim day As Variant day = ActiveCell.Text Select Case day Case 1 ActiveCell = "Montag" Case 2 ActiveCell = "Dienstag" Case 3 ActiveCell = "Mittwoch" Case 4 ActiveCell = "Donnerstag" Case 5 ActiveCell = "Freitag" Case 6 ActiveCell = "Samstag" Case 7 ActiveCell = "Sonntag" Case Else ActiveCell = "" End Select End Sub ######### Sub zins() Dim zinssatz As Variant Dim jahre As Single zinssatz = InputBox("zinssatz"  If zinssatz = Empty Then Else If IsNumeric(zinssatz) = False Then MsgBox "Ihre Eingabe konnte nicht verarbeitet werden" Else jahre = (Log(2)) / Log(1 + (zinssatz / 100)) MsgBox jahre End If End If End Sub 1 mal bearbeitet, zuletzt Mo 11.12.06, 13:42 |
| SuleyhundMo 11.12.06, 13:26 | dankeschön  |
| r2kMo 11.12.06, 13:27 | gärn gscheh  isch jo nid wirklich mi lösig |
| SuleyhundMo 11.12.06, 13:27 | hesch aber en fehler din, isch d'üebig 17 und ned 19 |
| r2kMo 11.12.06, 13:28 | lueg doch d ufgobe a select case gedöns isch 19 |
| SuleyhundMo 11.12.06, 13:29 | scheisse stimmt, aber hesch du s'17ni überhaupt gmacht? ich finds niene |
| r2kMo 11.12.06, 13:29 | ehm ich müessti luege, ich mues eifach ihm elvis rächt geh was VBA betrifft |
| timmyMo 11.12.06, 13:30 | ahaha, VBS das hanni au grad lang miese mache abr per pm gohts nit?  |
| SuleyhundMo 11.12.06, 13:31 | jo easy, denn mache mer mol s'20i, ok?  |
| r2kMo 11.12.06, 13:31 | vba nid vbs ehm ne goht nid edit: ok mir mache jetzt s 20  1 mal bearbeitet, zuletzt Mo 11.12.06, 13:31 |
| timmyMo 11.12.06, 13:36 | jo, das isch jo fascht s gliiche.... |
| r2kMo 11.12.06, 13:42 | ach was findsch s 20 im erschte bitrag so und jetzt cloesed müen jo nid alli wüsse, dass es uns langwilig isch 1 mal bearbeitet, zuletzt Mo 11.12.06, 13:42 |
| SuleyhundMo 11.12.06, 13:43 | super, danke. jetzt simmer jo fertig und chönd go |
Als angemeldeter festzeit.ch Member kannst du Themen erstellen und auf Beiträge antworten.
Infos/Hilfe » ©