VBA Code vereinfachung
09.04.2017 11:11:17
Lars
Hallo liebe excelprofis.
ich hab da was wobei ich hilfe brauche, ich bekomme den code einfach nicht weiter eingekürzt. bin noch nicht so gut in vba.
Sub Rechnung()
If Sheets("Kunden").Range("G2") = "Rechnung" Then
Sheets("Re_monat").Range("$G$2") = 1001
Sheets("Re_monat").Range("B57") = "Zahlbar innerhalb von 10 Tagen, ohne Abzug."
Sheets("Re_monat").Range("B58") = "Bei Überweisung bitte Rechnungsnummer angeben."
Else
Sheets("Re_monat").Range("$G$2") = ""
End If
If Sheets("Kunden").Range("G3") = "Rechnung" Then
Sheets("Re_monat").Range("$G$60") = 1002
Sheets("Re_monat").Range("B115") = "Zahlbar innerhalb von 10 Tagen, ohne Abzug."
Sheets("Re_monat").Range("B116") = "Bei Überweisung bitte Rechnungsnummer angeben."
Else
Sheets("Re_monat").Range("$G$60") = ""
End If
If Sheets("Kunden").Range("G4") = "Rechnung" Then
Sheets("Re_monat").Range("$G$118") = 1003
Sheets("Re_monat").Range("B173") = "Zahlbar innerhalb von 10 Tagen, ohne Abzug."
Sheets("Re_monat").Range("B174") = "Bei Überweisung bitte Rechnungsnummer angeben."
Else
Sheets("Re_monat").Range("$G$118") = ""
End If
If Sheets("Kunden").Range("G5") = "Rechnung" Then
Sheets("Re_monat").Range("$G$176") = 1004
Sheets("Re_monat").Range("B231") = "Zahlbar innerhalb von 10 Tagen, ohne Abzug."
Sheets("Re_monat").Range("B232") = "Bei Überweisung bitte Rechnungsnummer angeben."
Else
Sheets("Re_monat").Range("$G$176") = ""
End If
End Sub
jetzt schonmal vielen dank für eure antworten