Mit Makro Werte markieren...abändern
28.01.2004 14:38:21
tobias
erst einmal 'Tschuldigung für diesen blöden Titel, aber mir ist auf die schnelle nix besseres eingefallen. Ich bin Anfänger und komme mit meinem Problem nicht mehr weiter.
Ich habe (vor langer Zeit) einmal das untere Makro irgendwo aufgeschnappt. Jetzt könnte ich es gebrauchen, aber es müsste ein wenig abgeändert werden...ich weiß nur nicht wie.
Das Makro ermöglicht es, dass in der Spalte H in jeweils 9 Zeilen ein x gesetzt werden kann. Habe ich in einer der ersten 9 Zeilen iirgendwo ein x gesetzt, kann ich kein zweites mehr setzen. erst ab Zeile 10 bis Zeile 18 ist dies wieder möglich. Halt alle 9 Zeilen ein x.
Das Makro soll nun geändert werden, dass alle 6 Zeilen ein x in Spalte H möglich ist. Und zweitens soll das ganze nur bis Zeile 24 ausgeführt werden.
Also, in Spalte H kann ich dann insgesamt 4 x setzen. Jeweils ein in Zeile 1 - 6, eins in Zeile 7 - 12, eins in Zeile 13 - 18 und eins in Zeile 19 - 24.
Ich hoffe, es kann mir jemand helfen.
Schon mal vielen Dank
tobias
und hier kommt das Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 8 Then Exit Sub
a = Int((Target.Row - 0.5) / 9) * 9 + 1
e = a + 8
If Application.WorksheetFunction.CountIf(Range(Cells(a, 8), Cells(e, 8)), "x") > 1 Then
Target.ClearContents
End If
End Sub