"x" eintragen duch bedingte Formatierung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Target = Intersect(Target, Range("B6:I26")) If Not Target Is Nothing Then If Target.Cells.Count = 1 Then If Target.Cells.HasFormula Then Exit Sub 'dieser teil ist neu ! Target.Value = IIf(Target.Value = "", "x", "") End If End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '--- Schritt 1: Abbruchbedingungen prüfen if Target.Cells.Count > 1 then Exit Sub if Intersect(Target, Range("B6:I26")) is nothing then Exit Sub if Target.Hasformula Then Exit sub '--- Schritt 2: Makroausführung Target.Value = IIf(Target.Value = "", "x", "") End Sub

Hi
so ganz leider auch nicht.
vermutlich hat er auch noch nicht so ganz klar formuliert, was er eigentlich haben will (wenn er das überhaupt weiss ;-))
ich vermute mal, daß wenn auf der Liste Gerichte stehen, die in den Stammdaten vorkommen, dann sollen auch die Zutaten aus der Stammdatenliste verwendet werden (diese dann per Formel aus der Liste lesen)
Wenn das gewählte Gericht nicht in den Stammdaten steht, dann soll man wahrscheinlich selbst die Zutaten ankreuzen, was anderes kann ich mir nicht vorstellen.
dagegen spricht allerdings, daß man nur Gerichte auswählen darf, die in den Stammdaten vorkommen, es also eigentlich keine "freien" Gerichte gibt.
ne andere Möglichkeit wäre, daß die Stammdaten unvollständig sind und die Gerichte durch indivduelle Zutaten ergänzt werden sollen.
Das ist aber eigentlich auch kaum umsetztbar, da man hier dann Formeln und Handeingabe mischen müsste.
ich denke, daß webran erst nochmal ein bisschen darüber nachdenken sollte, wie sein Programm jetzt genau funktionieren sollte und was es können muss.
Gruß, Daniel

Mit SVERWEIS in den Zellen funktioniert das super, aber, wenn ich per Klick-Makro die Einträge korrigiere, dann werden die Formeln in der Zelle gelöscht. Ich brauche aber die "x" um damit weiterrechnen zu können.

Hi
also entweder du holst die Zutaten per Formel aus der Stammdatenliste, oder du trägst sie per Hand in die Liste ein.
beides zusammen geht nicht.
ne alternative wäre, ein Makro zu schreiben, daß die Zutaten aus den Stammdaten in die obere Liste kopiert, wenn du das Gericht in der Liste eingibst.
dann würden da keine Formeln stehen, sondern nur normale x, die du dann mit deinem Makro bequem ändern kannst.
mal hier als beispiel: (ich habe jetzt das ändern der Zutat auf das Doppelclickereignis gelegt, da mir der einfache Klick oft zu schnell geht und zu unbeabsichtigen Fehleingaben führt.
Außerdem kann man so eine Fehleingabe korrigiern, ohne erst eine ander Zelle anklicken zu müssen.)
Makro zum eintragen der x von Hand, jetzt per Doppelklick


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target = Intersect(Target, Range("B6:I26"))
If Not Target Is Nothing Then
If Target.Cells.Count = 1 Then
Target.Value = IIf(Target.Value = "", "x", "")
Cancel = True
End If
End If
End Sub

Lesen der x aus den Stammdaten, wenn in Spalte A ein anderes Gericht gewählt wird


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Row  26 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Range("A35:A40").Find(what:=Target.Value, lookat:=xlWhole).Offset(0, 1).Resize(1, 8).Copy
Target.Offset(0, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = xlCopy
Target.Select
End Sub

beide Makros musst du in das Modul des Tabellenblatts kopieren, das alte Makro für "SelectionChange" zum eintragen der x solltest du löschen.
Gruß, Daniel

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Target = Intersect(Target, Range("B6:I26")) If Not Target Is Nothing Then If Target.Cells.Count = 1 Then If Not Target.HasFormula Then Target.Value = IIf(Target.Value = "", "x", "") End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

"x" eintragen duch bedingte Formatierung?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"x" eintragen duch bedingte Formatierung?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread