Werte übernehmen um sie dann Auszuwerten ?
25.07.2005 09:57:43
Vaegs
folgendes Problem: Ich hole mir über Query aus einer Datenbank Werte, die ich in einer Tabelle einfüge und mit der dann verschiedene Auswertungen gefahren werden.
Z.B. Summenprodukt usw.
Um die Kriterien zu ermitteln hole ich mir diese aus meiner Tabelle ohne doppelte mir folgenden Makro
Sub Kom()
Dim Ende As Long
Dim I As Long
Dim J As Long
Dim Kom As Variant
J = 30
Ende = Sheets("Aufmasse").Cells(Rows.Count, 7).End(xlUp).Row
Kom = Sheets("Aufmasse").Cells(2, 7).Value
Sheets("Auswertungen").Cells(29, 1).Value = Kom
For I = 3 To Ende
If Application.WorksheetFunction.CountIf(Sheets("Aufmasse").Range("G2:G" & I - 1), Sheets("Aufmasse").Cells(I, 7).Value) = 0 Then
Kom = Sheets("Aufmasse").Cells(I, 7).Value
Sheets("Auswertungen").Cells(J, 1).Value = Kom
J = J + 1
End If
Next I
End Sub
Ich habe mit dem Wert Kom das Problem das er mir die Werte einträgt aber nicht auswertet.
Ich denke das es ein Variablen-Problem ist?
Ich habe meines Wissens alle Typen ausprobiert. Ohne Erfolg!
Gehe ich in die Tabelle in die besagten Zellen per Bearbeitungszeile und bestätige mit Enter wird dann der Wert in meiner Formel Berücksichtigt!
Wo liegt hier das Problem
Gruß
Reiner