ich habe gerade 'nen Knoten im Hirn - ich finde den Fehler nicht, der in der Modifikation eines bestehenden funktionierenden Codes steckt. Ich würde mich über Eure Hilfe bein "Knoten lösen" freuen.
Hier der Code:
Sub Test_NR()
'alter Code
' Range("P3").Select
' ActiveCell.FormulaR1C1 = _
' "=IF(OR((MID(RC[-14],4,4)=""1778""),
' (MID(RC[-14],4,4)=""1963""),
' (MID(RC[-14],4,4)=""1980"")),""410 ""&MID(RC[-14],4,4),
' IF(OR((MID(RC[-14],4,4)=""1932""),
' (MID(RC[-14],4,4)=""1933""),),""110 ""&MID(RC[-14],4,4)&"" 6"",""110 ""&MID(RC[ _
-14],4,4)))"
Range("P3").Select
ActiveCell.FormulaR1C1 = _
"=IF(OR((MID(RC[-15],4,4)=""1778""),(MID(RC[-15],4,4)=""1963""),(MID(RC[-15],4,4)="" _
1980"")),""410 ""&MID(RC[-15],4,4),IF(OR((MID(RC[-15],4,4)=""1932""),(MID(RC[-15],4,4)=""1933""),),""110 ""&MID(RC[-15],4,4)&"" 6"",""110 ""&MID(RC[-15],4,4)))"
'neuer Code
' Range("P4").Select
' ActiveCell.FormulaR1C1 = _
' "=if(MID(RC[-15],4,4)=""1705""),""510 1705"",
' if(or((MID(RC[-15],4,4)=""3166""),
' (MID(RC[-15],4,4)=""3178""),
' (MID(RC[-15],4,4)=""3141""))""110 3141"",
' if(OR((MID(RC[-15],4,4)=""1778""),
' (MID(RC[-15],4,4)=""1963""),
' (MID(RC[-15],4,4)=""1980"")),""410 ""&MID(RC[-15],4,4),
' IF(OR((MID(RC[-15],4,4)=""1932""),
' (MID(RC[-15],4,4)=""1933""),),""110 ""&MID(RC[-15],4,4)&"" 6"",""110 ""&MID(RC[ _
-15],4,4)))))"
Range("P4").Select
ActiveCell.FormulaR1C1 = _
"=if(MID(RC[-15],4,4)=""1705""),""510 1705"", if(or((MID(RC[-15],4,4)=""3166""), (MID( _
RC[-15],4,4)=""3178""), (MID(RC[-15],4,4)=""3141""))""110 3141"", if(OR((MID(RC[-15],4,4)=""1778""), (MID(RC[-15],4,4)=""1963""), (MID(RC[-15],4,4)=""1980"")),""410 ""&MID(RC[-15],4,4), IF(OR((MID(RC[-15],4,4)=""1932""), (MID(RC[-15],4,4)=""1933""),),""110 ""&MID(RC[-15],4,4)&"" 6"",""110 ""&MID(RC[-15],4,4)))))"
End Sub
Das Ganze in der Beispieldatei:
https://www.herber.de/bbs/user/50986.xls
Viele Herzlichen Dank für Eure Mühe schon jetzt.
Viele Grüße
Johannes