Datenauswertung
01.08.2007 07:03:00
J.
Habe vor ein paar Tagen folgendes Makro bekommen:
Sub Datenbank1()
Dim c As Variant
Dim X As Byte
For X = 4 To 12
Cells(X, 1) = ""
For Each c In Worksheets("Datenbank1").Range("G4:G12")
If c.Value = Worksheets("Auswertung1").Cells(X, 1).Offset(0, 1).Value Then Worksheets(" _
Auswertung1").Cells(X, 1) = Worksheets("Auswertung1").Cells(X, 1) & " " & c.Offset(0, 1).Value
Next
Next
End Sub
Welche der Anweisungen sagt mir nun in welche Spalte der "Auswertung1" die Daten aus der "Datenbank 1" geschrieben werden?
Ich habe schon einiges ausprobiert aber leider noch nicht die Lösung gefunden.
Bin in VBA auch nicht sonderlich gut.
Danke im voraus,
J. B.