Hallo,
ich brauche Hilfe bei einem zusammengesetzten VBA-Ausdruck:
Ausführlich mit eienm 4-Wege-If funktioniert die Formel, die mir aus einer bestimmten Zelle aus Tabelle5 die letzten 6 Zeichen rausholt.
Diese Zelle (R53C1 oder R54C1 oder R55C1 oder R56C1) wird in Abhängigkeit von iPlus bestimmt, das den Wert von 0 bis 3 annehmen kann.
Sheets("Tabelle1").Select
Zeile = ActiveCell.Row
If iPlus = 0 Then
Range("A" & Zeile).FormulaR1C1 = "=VALUE((RIGHT(Tabelle5!R53C1,6)))"
ElseIf iPlus = 1 Then
Range("A" & Zeile).FormulaR1C1 = "=VALUE((RIGHT(Tabelle5!R54C1,6)))"
ElseIf iPlus = 2 Then
Range("A" & Zeile).FormulaR1C1 = "=VALUE((RIGHT(Tabelle5!R55C1,6)))"
ElseIf iPlus = 3 Then
Range("A" & Zeile).FormulaR1C1 = "=VALUE((RIGHT(Tabelle5!R56C1,6)))"
End If
Dann könnte man doch auch die Row-Number mit iPlus berechnen, und das ganze dann ohne das 4-Wege-If machen...
iPlus = 3
Sheets("Tabelle1").Select
Zeile = ActiveCell.Row
iRow = 53 + iPlus
Range("A" & Zeile).FormulaR1C1 = "=VALUE((RIGHT(Tabelle5!R&iRow&C1,6)))"
so klappt es aber nicht.
Kann mir jemand die Formel so umstellen, dass das funktioiert?
Danke
Gruß Hermann