AW: Datum Ausgabe der letzten Preiserhöhung
06.09.2018 11:19:08
Toastie
Also... Ich habe leider so gut wie keine VBA Kenntnisse und habe deine Anfrage eigentlich nur als Übung für mich persönlich gesehen. Aber da der Programmcode tatsächlich funktioniert möchte ich ihn dir zur Verfügung stellen. Achtung: Die Zellen mit dem Wert "0" ersetze ich durch den Wert des Vormonats. Sollte eigentlich kein Problem sein, oder doch?
Bevor mich jetzt die ganzen Coding-Experten in der Luft zerreisen:
- Ja, mir ist vollkommen bewusst dass das schäbig programmiert ist
- Ich bin ein blutiger Anfänger und reiner Autoditakt aber für jeden freundlichen Hinweis sehr dankbar!
- Ich steh offensichtlich auf viele Variablen...
Viele Grüße
Toastie
Sub one()
Dim veraenderung As Boolean
lz = Cells(Rows.Count, 1).End(xlUp).Row
ls = Cells.End(xlToRight).Column
Cells(1, ls + 1).Value = "Preisanpassung im Monat"
For aktz = 2 To lz
For akts = 3 To ls - 1
If Cells(aktz, akts) = Cells(aktz, akts - 1) Or Cells(aktz, akts) = 0 Then
Cells(aktz, akts) = Cells(aktz, akts - 1)
If veraenderung = False Then
Cells(aktz, ls + 1) = "keine"
End If
Else
If Cells(aktz, akts - 1) 0 Then
Cells(aktz, ls + 1) = Cells(1, akts)
veraenderung = True
End If
End If
Next akts
veraenderung = False
Next aktz
End Sub
Falls das alles Bulls%&t ist, dann bitte gleich wieder löschen.