Macro kürzen
25.02.2006 23:02:18
Rene
Könnte mir jemand sagen wie ich diesen Code:
Sub Test()
Range("B16").Formula = "=IF(Teilnehmer!A16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!A16,""""))"
Range("C16").Formula = "=IF(Teilnehmer!B16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!B16,""""))"
Range("D16").Formula = "=IF(Teilnehmer!C16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!C16,""""))"
Range("E16").Formula = "=IF(Teilnehmer!D16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!D16,""""))"
Range("F16").Formula = "=IF(Teilnehmer!E16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!H16,""""))"
End Sub
kürzer bekomme? Da dieses für eine Zeile ist und ich das ganze aber für 50 Zeilen bräuchte wäre es doch eine ganz schöne Arbeit.
Für Hilfe wäre ich sehr dankbar.
Gruß Rene