dringend
05.06.2006 15:33:28
Ines
der folgende Programmcode ist jetzt schonmal so weit, dass wir keine Fehlermeldung mehr erhalten, aber die gewünschten Werte werden nicht in das Tabellenblatt "Daily Report" eingetragen. Kann uns jemand helfen? Wir verzweifeln jetzt schon und sind gerade erst am Anfang. Schonmal Danke!!!
Gruß
inni
Option Explicit
Sub FindeBesteKunden()
'Variablen deklarieren
Dim Alle_Kunden(50, 5) As Variant
Dim Daily_Report(50, 5) As Variant
Dim i, j As Variant
'Daten einlesen
Sheets("test").Activate
For i = 1 To 22
For j = 1 To 5
Alle_Kunden(i, j) = Cells(i + 3, j)
Next
Next
'Ermittlung der besten Kunden
j = 0
For i = 1 To 22
If Alle_Kunden(i, 2) = 2 Then
j = j + 1
Daily_Report(j, 1) = Alle_Kunden(i, 1)
Daily_Report(j, 2) = Alle_Kunden(i, 2)
End If
Next
'Ergebnis rausschreiben
Sheets("Daily_Report").Activate
For i = 1 To j
Cells(i, 1) = Daily_Report(i, 1)
Cells(i, 2) = Daily_Report(i, 2)
Next
End Sub