Re: Nullzeilen auslassen
22.04.2003 13:46:57
andreas
Hallo
ich habe erst einmal eine Range definiert (MyRange1 + MyRange2). Dann korreliere ich die beiden mit dem Befehl:Cells(j + 1, i).Value = Application.WorksheetFunction.Correl(MyRange1, MyRange2)
Hier habe ich dann halt alle nullen dabei.
For j = 1 To ActiveSheet.UsedRange.Columns.Count - 1
text = Sheets("tabelle1").Cells(3, j + 1).Value
For i = 2 To ActiveSheet.UsedRange.Columns.Count
Set MyRange1 = Worksheets("Tabelle1").Range(Cells(AbstandZuHeuteAnfangZeitraum + 4, j + 1), _
Cells(AbstandZuHeuteEndeZeitraum + 4, j + 1))
Set MyRange2 = Worksheets("Tabelle1").Range(Cells(AbstandZuHeuteAnfangZeitraum + 4, i), _
Cells(AbstandZuHeuteEndeZeitraum + 4, i))
Sheets("Tabelle2").Activate
Cells(1, j + 1).Value = text
Cells(j + 1, 1).Value = text
Cells(j + 1, i).Value = Application.WorksheetFunction.Correl(MyRange1, MyRange2)
Sheets("Tabelle1").Activate
Next i
Next j