Ich habe ein kleines Problemchen...
In der angehängten Datei ist eine gefilterte Tabelle. Diese Tabelle soll zunächst nach dem Ort gefiltert werden. Jeder Ort hat verschiedene Häuser, Etage, etc. und wurde bewertet mit den Kriterien: "leer", "-", "o" und "x". Jetzt möchte ich die gefilterten Daten auszählen und dann in eine der Hilfstabellen im oberen rechten Bereich übertragen lassen. Dabei steht jede der Hilfstabellen für jeweils ein Haus (A, B oder C). Wichtig ist hierbei, dass die Änderung des Hauses. Das Programm muss also merken, dass es sich erst um Haus A handelt und dessen Werte dann auszählen und in die erste Hilfstabelle übertragen. Wenn sich die "Haus-Spalte" von A zu B ändert, soll die Werte für dieses Haus ausgezählt werden und in die nächste Hilfstabelle übertragen werden.
https://www.herber.de/bbs/user/107029.xlsm
Nochmal die genaue Vorgehensweise:
1. Manuelle Auswahl des Ortes -> Tabelle wird nach Ort gefiltert
2. Durch Betätigen eines Buttons soll die Zählung beginnen.
3. Programm zählt Bewertung für "Haus A" und trägt das Ergebnis in die erste Hilfstabelle ein.
4. Bei Wertänderung der "Haus-Spalte" beginnt nächste Auszählung und das Ergebnis wird daraufhin in die zweite Hilfstabelle übertragen.
Bei weiteren Änderungen in der "Haus-Spalte" sollten diese natürlich in die darauffolgende Hilfstabelle übertragen werden.
Mein Code dafür ist bisher ziemlich leer, da ich leider weder den Befehl für die Änderung einer Zelle kenne oder weiß, wie ich bei der Auszählung vorgehen soll..
Sub Ausfuehren()
Dim y As Integer
y = 12
x= 6
Do While isemptycells(y, 2) = False And Hidden = False
'Schau dir Zelle (y,2) an bis sie sich ändert
'Zähle "-", "o", "x" oder "leer" in Zelle (y, 7) und speichere unter (x, 12)
'Zähle "-", "o", "x" oder "leer" in Zelle (y, 8) und speichere unter (x, 13)
'Zähle "-", "o", "x" oder "leer" in Zelle (y, 9) und speichere unter (x, 14)
'Zähle "-", "o", "x" oder "leer" in Zelle (y, 10) und speichere unter (x, 15)
'Wenn sich der Wert ändert dann x= x + 5)
y = y + 1
Loop
End Sub
Ich hoffe ihr könnt mir weiterhelfen!
Vielen Dank und beste Grüße
Rafa