Office: automatisch x machen

Hallo Leute!

Ich hab eine Tabelle erstellt, bei dem Leute ihre Forschung x-en können um sich verschiedene Sachen anzeigen zu lassen.
Das Problem ist, dass man JEDE Forschung die man hat einzeln x-en muss.
Jetzt wollte ich ein Makro machen, bei dem die x automatisch eingefügt werden, sobald jemand weiter unten schon eine orschung ankreuzt.
Als Beispiel:

Ich kann ein x in Zelle a65, b66, und c67 machen.
Wenn ich das x in Zelle b66 mache, soll automatisch in a65 auch ein x gemacht werden.
und wenn ich bei c67 eins mache sollen automatisch a65 und b66 ein x erhalten.

Und so geht es weiter. Insgesamt hab ich 57 Forschungsmöglichkeiten und jede ist anders mit den Forschungen verknüpft.

Ich hab schon mal im Ansatz begonnen, aber irgendwie klappt das nicht.
Sagt immer "End-if ohne if-Block.
Hab die komplette Excel-hilfe hoch und runter gesucht, bin aber immer noch genauso schlau wie vorher:

Sub worksheet_activate()

If Range(b66) = ("x") Then Range(b65) = ("x")
End If
End Sub

Vielleicht kann mir einer von euch sagen was daran falsch ist, oder ob das überhaupt im Ansatz stimmt.

Danke schon mal für die Hilfe!

 

Hallo!

Zunächst: Ein EndIf ist nur dann erforderlich, wenn der If-Block über mehrere Zeilen geht.
Aber dein Problem ist mir trotz Beispiel immernoch nicht klar...
Es scheint so, als möchtest du bei einem "x"-Eintrag die Diagonale nach links oben auch mit "x"en gefüllt bekommen. Ist dem so?
Falls ja: Von wo bis wo läuft dein Eingabebereich?
Falls nein: Eine allgemeinere Erklärung, bitte!

PS:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C67") = "x" Then
   Range("B66") = "x"
   Range("A65") = "x"
End If
End Sub

 

Hay!

Ok!
Ich versuch es mal anhand der Tabelle zu erklähren:



Wie ihr seht sind die Felder bei dem man ein x für vorhanden setzen kann Orange eingefärbt.
Nun ist es so, wenn man zum beispiel die Forschung "Weinkultur" (a87) hat, hat man auch schon die Forschungen darüber (a84-a86) und das "Trockendock" (k84) erforscht.
Vorher könnte man dies gar nicht besitzen.

Nun möchte ich ein Makro erstellen dass, wenn jemand bei Weinkultur ein x macht (bei b87), automatisch bei den Forschungen darüber (b84-b86) und auch beim Trockendock (l84) ein x rein macht.
Und so wollte ich dann das Makro für alle Forschungen anpassen.

hoffe das es nun verständlicher ist.
Ich brauche also ein individuelles Makro für jede Forschung.
Komme aber nicht mal über die Basis hinaus, da ich mit VisualBasic so gut wie gar nicht auskenne.

Danke schon mal im voraus.

MFG
adpar

P.s.:Das mit dem If-end hatte ich rein gemacht, da er mir ansonsten immer sagte: Anwendungs-oder Objektdefinierter Fehler
Was auch immer das heißen mag!

 

HAy Schatzi!
Ich nochmal!

Ich bräuchte auch nur einen Grundstock, den ich dann individuell anpassen kann.
Aber selbst dafür hab ich keine Idee, da ich wie gesagt, mich mit VB nun überhaupt nicht auskenne.

Wär echt super, wenn du mir dabei helfen würdest.

MFG
adpar

 

Hallo!

Auf die Schnelle:
Wird im Bereich B10:B20 ein "x" gesetzt, so werden die Zellen darüber auch mit "x" gefüllt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B10:B20")) Is Nothing Then
Application.EnableEvents = False
If Target = "x" Then Range("B10:B" & Target.Row) = "x"
Application.EnableEvents = True
End If
End Sub

 

Hay Schatzi!

Danke erst mal für das Makro.
Ich hab es versucht nun anzupassen, allerdings sagt er mir immer Fehler.
hier mal meine Version:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B66")) Is Nothing Then
Application.EnableEvents = False
If Target = "x" Then Range("B65;L84" & Target.Row) = "x"
Application.EnableEvents = True
End If
End Sub

Das rote kreidet er mir an.
Kannst du mir da helfen?!

Dank dir!

MFG
adpar

 

Hay Schatzi!

Habs hinbekommen, danke!
Mit ein wenig rumprobieren ging es dann!


Gruß
Adpar

P.s.:
Hier mal das veränderte Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B81")) Is Nothing Then
Application.EnableEvents = False
If Target = "x" Then Range("B80") = "x": Range("L99") = "x"
Application.EnableEvents = True
End If