Kontrollkästchen ändert Zelleninhalt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Piet,
Danke das du dich so bemühst mit der Programierung, ich bin echt beeindruck. Um so schwerer fällt es mir dir zu sagen, dass deine erste Datei von der Bedinbarkeit besser war und ich leider mit den Programierungen auch nicht mehr wirklich klar komme. Alles was ich zu VBA weiß habe ich in der letzten 2 Wochen gelernt und davor noch nie was davon gehört. Ich habe meine Datei noch einmal so verändert wie sie am Ende auch etwa aussehen soll.( Es ist natürlich nicht alles, es ist noch viel mehr an Tabellen und Funktionen vorhanden, es würde aber nur zu missverständnissen führen wenn ich alles drin lasse). Ich habe die Zellen C3:C30, I3:I30, K3:K30 einfach händisch in den Code bei Pos1 reingeschrieben. Jetzt bleiben sie Gesperrt. Das ist wahrscheinlich nicht sehr elegant aber besser weiß ich mir da nicht zu helfen. Nun ist nur noch die Sache mit den Kürzeln die nicht in der Hilftabelle stehen, dazu ist unten die Beschreiben was da passieren soll.
Die Übersicht der Positionen ist bei mir schon vorgesehen und eingbaut gewesen, aber danke das du dir auch dazu noch Gedanken gemacht hast und auch noch ein Makro programiert hast. Die 100 Pos sind bei mir später immer in der Vorlagendatei vorhanden. Mir ging es bei der Frage zu den 100 Positionen eigentlich ehr darum ob ich an dem Code etwas verändern muss wenn ich das Arbeitsblatt POS1 100 mal kopiere.
Ich beschreibe dir hier einmal genau den Ablauf der Kalkulation, ich hoffe das ist verständlich genung, leichter wäre es am Telefon und wir würden das Zenario einmal durchspielen.
-Der Kalkuland öffnet die Exceldatei.
-Drückt auf den Button Formular und trifft bei Ausführung eine Vorauswahl.
-Diese Vorauswahl gibt ihm passende Werte in die Comboboxen.
-Ist er mit den jeweiligen Materialen zufrieden lässt er sie so. Das hier Felder leer bleiben ist hier ganz normal und muss auch so bleiben. Wenn er nicht zufrieden ist ist wählt er für Korpus, Front oder Laden andere Materialen aus.
-Er Bestätigt seine Eingaben mit Hinzufügen.
-Die Daten werden in die Hilfstabelle gepackt die warscheinlich später sogar Ausgeblendet wird, sie soll nur im Hintergrund arbeiten.
-Er trägt in Zelle A3 das erste Kürzel ein.
-Mit einem Tabsprung geht er zu Zelle B3 und trägt die Stückzahlen ein.
Im gleichen Zug erscheinen die festgelegten Materialen in den Zellen D3, E3, F3 und G3, in Zelle C3 erscheint die Einheit z.B Stk. (in der Beispieltabelle nicht weil die Hintergrundtabellen nicht dabei sind,)in der Zelle I3 erscheint der Einzelpreis (in der Beispieltabelle nicht weil die Hintergrundtabellen nicht dabei sind), in der Zelle K3 erscheint der Gesamtpreis (in der Beispieltabelle nicht weil die Hintergrundtabellen nicht dabei sind).
-Mit dem nächsten Tab gelangt er in die Zelle H3 und kann hier wenn er möchte einen individuellen Zuschlag eingeben der sich auf den Gesamtpreis in Zelle K3 auswirkt.
-Mit dem nächsten Tab kommt er in die Zelle J3 und kann hier noch einen prozentualen Aufschlag eingeben der sich auf den Gesamtpreis und einige andere Dinge auswirkt (in der Beispieltabelle nicht weil die Hintergrundtabellen nicht dabei sind).
-Mit dem nächsten Tab kommt er in die Zelle L3 wo er ein paar Informationen eintragen kann.
-Mit dem nächsten Tab kommt er in die Zelle M3 wo er eine farbige Markierung machen kann wenn noch ertwas unklar ist.
-Mit dem nächsten Tab soll er nun in A4 stehen und es geht von vorne los, Kürzel eintragen und nächster Tab B4, Tab H4, Tab J4, Tab L4, Tab M4, Tab A5.........
Wenn Ihm jetzt auffällt, das zB. ein Korpus der er in A15 eingetragen hat, mal nicht zu der zuvor gewählten Ausführung passt. Dann drückt er den Button in B15 und der Blattschutz für D15, E15, F15 und G15 ist aufgehoben. Ergeht mit der Maus auf die Zellen und wählt über die Datenüberprüfung mit dem Dropdownmenü das passende Material aus.
Das nächste was sein kann sind das gewisse Kürzel nich in der Hilfstabelle aufgelistet sind, Sie aber trotzdem einen Preis hinterlegt haben. Wenn ein Kürzel nicht in der Hilftabelle steht solle keine Fehlermeldung und nix erscheinen, es soll einfach über einen Tab weiter zur Zelle B... gehen die Menge eintragen und die Zellen bei D..., E..., F..., G... bleiben leer. Beim nächsten Tab geht es weiter zu H..., zu J..., zu L..., und zu M... und dann wieder von vorne in die nächste Zeile zur Zelle A... .
Das Ganze ist so aufgebaut das man in wenigen Stunden bis zu Hunderd Positionen Kalkulieren kann. Es geht hier echt um Geschwindigkeit.
So die Erklärung ist echt Lang geworden, wollte ich eig vermeiden aber ging nicht anders.
Hoffe du kommst klar damit.
mfg Tobias Thiemann

Hi bin wieder da
also, du must zuerst mit meinen Hilfs Makro die Button prüfen
mir ist aufgefallen das der erste kleine Button einen Mini Tick
zu hoch steht, er berührt die Zelle B2. Setze in 1/10 mm tiefer!
Mein Trick besteht im auslesen der oberen linken Zelle in der der Button sitzt
Dann kann ich gezielt per Makro genau diese Zeile den Blattschutz aufheben.
Du must also zuerst die Button prüfen in welcher Zelle sie sitzen
Die Makro dazu sind benannt.
Nur zum Testen musst du die Spalten N + O aufmachen, ich brauche eine Liste.
Danaach wieder alles löschen und unsichtbar setzen.
Alle kleinen Button bekommen daselbe Makro zugewiesen.
Brauchst du nicht von Hand machen
Ich warte bist du die Sache ausgeführt hast.
mfg Piet
'** das ist dein Makro zum aufheben !!
'** das wird spaeter vom User benutzt
'aktives Makro zum aufheben

Sub Blattschutz_aufheben()
Adr = Selection.TopLeftCell.Address
Range(Adr).Offset(0, 2).Resize(1, 4).Locked = False
End Sub

'********************************************************
' das sind Hilfs Makros damit du alles Installieren kannst
' Sie werden nur jetzt -zum Einrichten- benötigt.
'** dient dir nur zur Kontrolle ob alles stimmt
'** Objekt selektieren und Zell Adresse ansehen

Sub Kontrolle_per_MsgBox()
MsgBox Selection.TopLeftCell.Address
End Sub

'diese Liste anschauen, brauche ich zum zuweisen

Sub Alle_Button_auflisten()
z = 3  'in Spalte N + O
For Each obj In Worksheets("Pos1").Shapes
Cells(z, "N") = obj.Name
Cells(z, "O") = obj.TopLeftCell.Address
z = z + 1
Next obj
End Sub

'aktives Makro zum zuweisen an die Button

Sub Button_Makro_zuweisen()
For Each obj In Range("N5:N32")
Txt = obj.Value
ActiveSheet.Shapes(Txt).OnAction = "Blattschutz_aufheben"
Next obj
End Sub

Sub Blattschutz_aufheben() Schfla = Application.Caller Adr = ActiveSheet.Shapes(Schfla).TopLeftCell.Address MsgBox Adr 'nur zum Prüfen ob die Zelle stimmt Range(Adr).Offset(0, 2).Resize(1, 4).Locked = False End Sub

Sub Blattschutz_aufheben() Schfla = Application.Caller MsgBox Schfla 'nur zum Prüfen ob die Zelle stimmt Adr = ActiveSheet.Shapes(Schfla).TopLeftCell.Address MsgBox Adr 'nur zum Prüfen ob die Zelle stimmt Range(Adr).Offset(0, 2).Resize(1, 4).Locked = False End Sub

'Kürzel gefunden, aber Zelle leer (FR1 u.sw) If Not rFind Is Nothing Then If rFind.Offset(0, 1) = Empty Then frmMaterialauswahl.Show ElseIf Target.Value Empty Then rFind.Offset(0, 1).Resize(1, 4).Copy Target.Offset(0, 3).PasteSpecial xlPasteValues Application.CutCopyMode = False End If Else 'Formular anzeigen frmMaterialauswahl.Show End If

Sub 'nur in Spalte "A" If Target.Row Sub '> Zeile 3 (Überschrift) If Target.Count > 1 Then Exit Sub 'Exit bei Clr Bereich If Target.Value = Empty Then Exit Sub 'keine Leerzellen 'Hier könntest du eingreifen (mit Endezeichen) If Target.Column > 13 And Target.Value = "Ende" Then Cells(Target.Row + 1, 1).Select: Exit Sub 'oder: Scroll Bereich über Eingabe Text umschalten If Target.Value = "öffne O" Then Target.Value = Empty: _ Call Cursorbereich_begrenzen_Bereich_O_AJ: Exit Sub If Target.Value = "Close O" Then Target.Value = Empty: _ Call Cursorbereich_begrenzen_Bereich_A_M: Exit Sub On Error GoTo Feh SuName = Target.Value 'Suchbegriff in Spalte "AM" suchen Sub Cursorbereich_begrenzen_ganzerBereich() ActiveSheet.ScrollArea = "A1:AJ52" 'A1:M50 End Sub Sub Cursorbereich_begrenzen_Bereich_A_M() ActiveSheet.ScrollArea = "A1:M50" End Sub Sub Cursorbereich_begrenzen_Bereich_O_AJ() ActiveSheet.ScrollArea = "O1:AJ52" End Sub

Beliebteste Forumthreads (12 Monate)

Kontrollkästchen ändert Zelleninhalt

44
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kontrollkästchen ändert Zelleninhalt

44 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

44
Beiträge zum Forumthread

Beiträge zu diesem Forumthread