Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem im Code

Problem im Code
03.12.2016 09:57:30
Nik
Hallo zusammen,
ich bin aktuelle dabei, VBA zu lernen. Nun habe ich aber ein Problem, da Excel mir immer den _ Fehler "Fehler beim Kompilieren Else ohne If" ausgibt. Dabei habe ich den Code wie im Buch geschrieben:

Sub Steuern()
Dim Gehalt As Single
Dim Steuerbetrag As Single
Gehalt = Range("D14").Value
Steuerbetrag = Range("D15").Value
Range("D14:D15").NumberFormatLocal = "#.##0,00€"
If Gehalt  12000 And Gehalt  20000 And Gehalt 

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
probier mal so... Gruß
03.12.2016 10:09:29
robert

Sub Steuern()
Dim Gehalt As Single
Dim Steuerbetrag As Single
Gehalt = Range("D14").Value
Steuerbetrag = Range("D15").Value
Range("D14:D15").NumberFormatLocal = "#.##0,00€"
If Gehalt  12000 And Gehalt  20000 And Gehalt 

AW: Problem im Code
03.12.2016 11:48:18
Gerd
Hallo Nik,
du möchtest doch sicher das Ergebnis irgendwo hinschreiben.
Sub Steuern()
Dim Gehalt As Currency
Dim Steuerfaktor As Currency
Gehalt = Range("D14").Value
Range("D14:D15").NumberFormatLocal = "#.##0,00€"
If Gehalt > 30000 Then
Steuerfaktor = 0.25
ElseIf Gehalt > 20000 Then
Steuerfaktor = 0.2
ElseIf Gehalt > 12000 Then
Steuerfaktor = 0.15
Else
Steuerfaktor = 0.12
End If
'Steuerbetrag ausgeben
Range("D15").Value = Gehalt * Steuerfaktor
End Sub

Gruß Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige