VB - Inhalte in Zellen eintragen.
02.10.2007 10:35:28
Roman
Ich habe eine Tabelle "Planperioden", die bestimmte Stichdaten (Datum) enthält, welche mich interessieren und eine Tabelle "Tabelle1", die Datumsangaben enthält. Ich will, nach einigen Vergleichen, die Anzahl der Datumsangaben aus "Tabelle1", die gleich den Stichdaten aus "Planperioden" sind, wissen. Das klappt auch bereits ganz gut.
Jetzt muss ich das Ergbnis in das Blatt "Results" einfügen. Das soll eine Tabelle mit einer Spalte "ergebnis" und den Zeilen "Stichgdaten" sein. Das beschreiben des Blattes "Results" klappt aber noch nicht so ganz.
Kann mir da bitte jemand weiterhelfen! Der Fehler wird warscheinlich ganz simpel sein. Ich programmiere VB seit dieser Woche ;-)
Hier der Code:
Sub TEST()
Dim Ergebnis(1 To 36, 1 To 2)
Dim j As Integer
For i = 1 To 36
Ergebnis(i, 1) = Worksheets("Planperioden").Cells(i + 1, 2)
j = 1
Do While Worksheets("Tabelle1").Cells(j + 1, 1) ""
If ((Worksheets("Tabelle1").Cells(j + 1, 18) Ergebnis(i, 1) And (Worksheets("Tabelle1").Cells(j + 1, 18) "") _
And (Worksheets("Tabelle1").Cells(j + 1, 7) "")) Then
Ergebnis(i, 2) = Ergebnis(i, 2) + 1
End If
j = j + 1
'MsgBox Worksheets("Tabelle1").Cells(j + 1, 18)
Loop
Worksheets("Result").Select
Range("A1, B36").Select
ActiveCell = Ergebnis(i, 1)
Next i
End Sub
Vielen Dank!