Spalten für Berechnung verwenden
20.11.2017 10:09:40
Georg
Ich möchte für eine Datumsberechnung in Abhängigkeit einer Startzelle mehrere Daten berechnen.
Als Beispiel:
Ich gebe in der Inputbox D2 ein, dann wird was geprüft und von C2 14(tage) abgezogen.
Was ich nicht schaffe:
In E2, F2, G2 sollen weitere Berechnungen erfolgen. Wie springe ich in der Zeile weiter zu den nachfolgenden Spalten?
Sub Makro1()
' Makro1 Makro
Dim rngZelle As Range
Set rngZelle = Application.InputBox("Wähle bitte die Startzelle.", "Zelle wählen", ActiveCell. _
Address, Type:=8)
rngZelle.Select
Selection.FormulaR1C1 = "=IF(RC[-3]=""gedipost"",RC[-1]-14,"""")"
End Sub
Anzeige