hey leute,
hab da mal ein problem, und zwar soll er daten aus dem tabellenblatt nehem und mit denen rechnen, doch irgendwie weigert er sich. wär echt super wenn ich mir weiter helfen könnet. dort wo der pfeil ist muss der fehler liegen…
Option Explicit
Dim Kundennummer As Integer
Dim Kunde_seit As Date
Dim Umsatzziel As Currency
Dim Erreichter_Umsatz As Currency
Dim Bonussatz As Byte
Dim Kundengruppe As Byte
Dim Tage As Byte
Private Sub cmd_OK_Click()
'Eingabe
Kundennummer = txt_Kundennummer.Text
Erreichter_Umsatz = txt_erreichterUmsatz.Text
'Daten aus der Tabelle holen
Kunde_seit = Worksheets(„Kunden“).Range(„G3“).Value 90 Then
Kundengruppe = 1
Else: Kundengruppe = 2
End If
If Erreichter_Umsatz >= Umsatzziel Then
Worksheets(„Kunden“).Range(„J3“).Value.Interior.ColorIndex 0.46
Else: Worksheets(„Kunden“).Range(„J3“).Value.Interior.ColorIndex 0
End If
If Kundengruppe = 1 And Umsatzziel = Erreichter_Umsatz Then
Bonussatz = 5
Else: Bonussatz = 0
End If
'Ausgabe
lbl_Bonussatz.Caption = Bonussatz
Worksheets(„Kunden“).Range(„J3“).Value = Erreichter_Umsatz
Worksheets(„Kunden“).Range(„K3“).Value = Bonussatz
End Sub