Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Schaltfläche





Frage

Hallo Excelfreunde, ich habe folgendes Problem: In Zelle A1 wird eine Zahl eingetragen. Diese Zahl soll keine Auswirkung auf das nachfolgende haben: Es soll dann eine Schaltfläche erscheinen, in der folgende Buttons zur Auswahl stehen: Was für ein Kunde ist dies? Auswahl: "Nord", "Süd", "Mitte". Jenachdem was ausgewählt wird, soll Nord, Süd, Mitte in Zelle B1 eingetragen werden. Viele Grüße Lydia

Antwort 1 von schnallgonz

Hallo,
Zelle B1 markieren, Menü DATEN-Gültigkeit
Dort unter Zulassen "Liste" anklicken und einen Bereich zuweisen, in dem Deine Auswahl Nord Süd Mitte stehen, z.B. Z1 bis Z3.
gruß
schnallgonz

Antwort 2 von Lydia

Hallo Schnallgonz,

vielen Dank für Deine Antwort.

Aber mit dieser Funktion beschränke ich nur, welche Werte ich eintragen darf, gemeint war aber, dass ich eine Schaltfläche mit drei Butons erhalte, indem ich als Auswahlmöglichkeit "Nord, Süd & Mitte" habe. Je nachdem, welche Button ich anklicke, soll dieser Wert dann in B1 (und ggf. in den Folgezeilen) eingetragen werden.

Vielen Dank

Lydia

Antwort 3 von fedjo

Hallo Lydia,
ich habe dir eine Mustertabelle mit "UserForm" erstellt. Bei einem Eintrag in A1 oder Änderung wird die UserForm aufgerufen.

Gruß
fedjo

http://www.netupload.de/detail.php?img=f00eeddecf82f6ec8edd299980fb...

Antwort 4 von nighty

hi all :-))

zur schaltfläche fällt mir das noch ein :-)))

ehemals von vielen vielen netten sn usern zusammengetragen worden :-)

probiert es einfach aus

gruss nighty

code einer schaltfläche

Private Sub CommandButton37_Click()
Dim z1(10)
Dim text(60)
Randomize Timer
text(1) = "WEISHEIT IST NICHT SO SEHR DAS WISSEN DARUMWAS SCHLIEßLICH ZU TUN IST,SONDERN DARUM;WAS ZUNÄCHST GETAN WERDEN SOLL."
text(2) = "Reden ist SilberSchweigen ist Gold "
text(3) = "Wer Wind sät, wird Sturm ernten"
text(4) = "Unser Kopf ist rund, damit man in beide Richtungen denken kann"
text(5) = "Es ist schon über so viele Dinge Gras gewachsen,daß man keinem Rasen mehr trauen kann."
text(6) = "Sein oder nicht sein, das ist hier die Frage "
text(6) = "Der Anfang aller Weisheit ist die Verwunderung."
text(7) = "Der Drucker ist die letzte Gelegenheit eines Computers, Fehler zu produzieren. "
text(8) = "Computer sind die neueste technische Errungenschaft zur wirksamen Verzögerung der Büroarbeit."
text(9) = "geburtstage sind gesund.je öfter man sie feiert, desto älter wird man "
text(11) = "Ein Kluger bemerkt alles, ein Dummer macht über alles seine Bemerkungen."
text(12) = "Ich sehe das Bessere und heiße es gut, dem Schlechteren folge ich"
text(13) = "Ein Mann ist so gut, wie er sein muß, eine Frau so schlecht, wie sie wagt."
text(14) = "Es ist nicht genug zu wissen, man muß es auch anwenden"
text(15) = "Reich ist man nicht durch das, was man besitzt, sondern mehr noch durch das, was man mit Würde zu entbehren hat"
text(16) = "Den Wert eines Menschenlebens bestimmt nicht seine Länge, sondern seine Tiefe"
text(17) = "Man sollte bedenken, daß oft fünf Minuten Hilfe besser sind als zehn Tage Mitleid"
text(18) = "Ich glaube es gibt einen weltweiten Bedarf an vielleicht fünf Computern (Thomas Watson, IBM-Chef, 1943)"
text(19) = "In Zukunft könnte es Computer geben, die weniger als 1,5 Tonnen wiegen (Popular Mechanics, 1949)"
text(20) = "Das Reh springt hoch,das Reh springt weitdas kann es auch es hat ja Zeit"
text(21) = "Frauen verlangen Unmögliches:Man soll ihr Alter vergessen,aber sich immer an ihren Geburtstag erinner.(Karl Farkas)"
text(22) = "Eine Frau,die einen Ehemann sucht,ist das gewissenloseste aller Raubtiere.(G.B. Shaw)"
text(23) = "Es gibt zwei Dinge die unendlich sind: der Weltraum und die menschliche Dummheit. Bei dem Weltraum bin ich mir aber noch nicht ganz sicher - Albert Einstein. "
text(24) = "Nur in Momenten der Trauer bemerkt man, wie unbedeutend die scheinbar rießigen Probleme des Alltags in Wirklichkeit sind!"
text(25) = "Jeder Mensch kann mindestens eine Sache auf dieser Welt verändern, nämlich sich selbst."
text(26) = "An all dem Unsinn, der in dieser Weltz geschieht, sind nicht nur die schuld, die ihn anstellen, sondern auch die, die ihn nicht verhindern."
text(27) = "Solch sechse wie wir fünfe gibts keine viere ,denn wir drei sind die zwei einzigsten."
text(28) = "Zum Hofnarren gehört Talent; zum König genügt Abstammung"
text(29) = "Es ist nicht wenig Zeit, die wir zur Verfügung haben, sondern es ist viel Zeit, die wir nicht nützen. "
text(30) = "Ein Pessimist, ist ein Optimist mit Erfahrung!"
text(31) = "Ich habe die Tage der Freiheit gekannt, ich habe sie die Tage der Leiden genannt "
text(32) = "Die Sterne, die begehrt man nicht, man freut sich an ihrer Pracht "
text(33) = "Kein Genuss ist vorübergehend, denn der Eindruck, den er zurücklässt, ist bleibend. "
text(34) = "Die Ehe ist eine Einrichtung, die es zwei Menschen erlaubt die Sorgen zu teilen, die sie vorher nicht hatten "
text(35) = "Keine Frau kann aus einem Narren einen Weisen machen, aber jede Frau kann aus einem Weisen einen Narren machen."
text(36) = "Am Abend wird man klug für den vegang´nen Tag,doch niemals klug genug für den, der kommen mag"
text(37) = "Das Leben erscheint manchmal nur als Warten. Aber worauf es wartet, ist unwichtig. Es kommt darauf an, womit man das Warten ausfüllt"
text(38) = "Weisheit ist der Lohn dafür, daß man ein Leben lang zugehört hat, obwohl man viel lieber geredet hätte"
text(39) = "Erst die Enttäuschungen verraten uns, was wir alles hofften"
text(40) = "nicht die schönheit entscheidet, wen wir lieben,sondern die liebe entscheidet, wen wir schön finden. "
text(41) = "Die - die es können - tun es Die - die es nicht können - lehren es Die - die es nicht lehren können - verwalten es"
text(42) = "Frage: Was ist Ignoranz und Desinteresse? Antwort:Das weiß ich nicht und es interessiert mich auch nicht!"
text(43) = "Die Phantasie ist wichtiger als das Wissen.Wissen ist beschränkt, Phantasie umspannt die Welt"
text(44) = "Das Leben stammt - auf alle Fälleaus einer Zelle.Oft endets auch - zumeist bei Strolchen -in einer solchen ..."
text(45) = "Nicht jeder, der aus dem Rahmen fällt,war vorher im Bilde."
text(46) = "Es ist dem Untertanen untersagt, den Maßstab seiner beschränkten Einsicht an die Handlungen der Obrigkeit anzulegen. "
text(47) = "Das Leben ist eine Anstrengung, die einer besseren Sache würdig wäre. "
text(48) = "Politik ist die Kunst, die Leute daran zu hindern, sich um das zu kümmern, was sie angeht. "
text(49) = "Der Unterschied zwischen Psychiater und Patient: der eine hat den Schlüssel. "
text(50) = "verflucht! zur rechten zeit fällt einem nie was ein, und was man gutes denkt, kommt meist erst hintendrein. "
text(51) = "auf das menschliche gedächtnis ist kein verlaß. leider auch nicht auf die vergesslichkeit."
text(52) = "Manche sagen: Glücklich das Land, welches Helden hat.Ich aber sage: Glücklich das Land, welches keine Helden nötig hat."
text(53) = "ein kluger bemerkt alles - ein dummer macht über alles eine bemerkung. "
text(54) = "Zukunft - das ist die Zeit, in der du bereust,dass du das, was du heute tun kannst, nicht getan hast. "
text(55) = "So ein Sonntag im Bett ist gemütlich und nett und wer das nicht kapiert, der hat das noch nicht probiert."
text(56) = "Die meisten sind so glücklich.wie sie es sich vorgenommen haben.Abraham Lincoln "
text(57) = "Nur dadurch lebt der Mensch, daß er so gründlichVergessen kann, daß er ein Mensch doch ist."
text(58) = "Das Vergnügen, Recht zu behalten wäre unvollständig ohne das Vergnügen, andere ins Unrecht zu setzen."
text(59) = "Die Erde ist das einzige Irrenhaus, das von seinen Insassen verwaltet wird. "
text(60) = "mit einer frau kannst du die probleme teilen , die du ohne sie nicht hättest ."
If CommandButton37.Caption = "Drück mich :)" Then
z4 = Int(Rnd * 2) + 1
If z4 = 2 Then
z3 = Int(Rnd * 60) + 1
CommandButton37.FontSize = 9
CommandButton37.Caption = text(z3)
End If
If z4 = 1 Then
z3 = Int(Rnd * 10) + 1
For t = 1 To z3
z1(t) = Int(Rnd * 49) + 1
z2$ = z2$ + " " + Str$(z1(t))
Next t
If Val(Str$(z3)) > 1 Then CommandButton37.Caption = "SIE HABEN " + Str$(z3) + " GLÜCKSZAHLEN GEWÄHLT " + z2$
If Val(Str$(z3)) = 1 Then CommandButton37.Caption = "SIE HABEN " + Str$(z3) + " GLÜCKSZAHL GEWÄHLT " + z2$
End If
Else
CommandButton37.FontSize = 12
CommandButton37.Caption = "Drück mich :)"
End If
End Sub

Antwort 5 von nighty

hi all :-)

die 37 im code sollte der nummer ihrer schaltfläche angepasst werden

gruss nighty

Antwort 6 von Lydia

Hallo Ihr!

Klasse, vielen Dank, genau so habe ich mir das vorgestellt

@ Fedjo: Eine kleine Änderung ergibt sich (ist von mir mißverständlich formuliert worden):

Wenn in Zelle A1 etwas eingegeben wird, soll der Wert in Zelle B1 übernommen werden. Wenn in Zelle A2 etwas eingegeben wird, ist die Bezugzelle die B2 usw. Es soll alles in Zeile passieren!

Gruß
Lydia

Antwort 7 von Lydia

Ein Wort vergessen:

Wenn in Zelle A2 etwas eingegeben wird, ist die Bezugzelle die B2 usw. Es soll alles in einer Zeile passieren!

Antwort 8 von Lydia

Nochmal ich: Die Schalfläche soll verschwinden, wenn ich mich für eine Auswahl entschieden habe. Aber der Button "Schließen" kann sehr gerne bleiben, wenn ich doch nichts eintragen will!

Antwort 9 von fedjo

Hallo Lydia
Zitat:
Die Schalfläche soll verschwinden
ist kein Problem, aber der Rest verstehe ich nicht so ganz!


A1 = B1
A2 = B2 usw.

Und wo soll dann das Ergebnis der UserForm eingetragen werden?

Gruß
fedjo

Antwort 10 von schnallgonz

Salvete
@fedjo
schönes Beispiel über netupload, spart so manche Zeile Erklärung
Ich glaube, Lydia meint, das Ergebnis der Userform soll in der Zeile eingetragen werden, aus welcher der Aufruf erfolgte.
Also Eingabe oder Änderung in A3, dann Ergebnis der Userform in B3.

Auf die Commandbuttons also
ActiveCell.Offset(-1, 1).Value = "Nord"

usw.
falls der Cursor nach Enter eine Zeile nach unten bewegt wird, sonst eben ohne -1.

Aber ich kann mich natürlich wieder irren wie bei meiner ersten Antwort.
gruß
schnallgonz

Antwort 11 von Lydia

Hallo!

Ja, Schnallgonz hat das genau so aufgefasst, wie es sein soll. Ich habe den Tip, die Datei als Upload zur Verfügung stellen zu Herzen genommen, ist so ja wirklich einfacher zu erklären/zu verstehen:

Datei Schaltflächen

Vielen Dank für Eure Hilfe!

Lydia

Antwort 12 von fedjo

Hallo Lydia,
der Link funktioniert leider nicht, versuch es mal über netupload.

Gruß
fedjo

Antwort 13 von Lydia

Hallo fedjo,

kann das sein, dass der Link nicht funktionierte, da im Dateinamen ein Umlaut enthalten war? Bei mir funktioniert der Link ohne Probleme. Habe ich jetzt aber geändert:

http://www.uploadagent.de/files/1175613811/Button.xls

Viele Grüße

Lydia

Antwort 14 von fedjo

Hallo,
@ schnallgonz
danke für deine Erklärung!

@Lydia
ich habe die Tabelle durch die Hilfe von @schnallgonz jetzt angepasst.

Gruß
fedjo


http://www.netupload.de/detail.php?img=8aa3862e161432e4a859c2884ee3...

Antwort 15 von schnallgonz

Hi fedjo,
Dank Dir für die Rückmeldung; nachdem ich die Ausgangsfrage nicht verstanden hatte, war ich froh, hier doch noch etwas zur Problemlösung beitragen zu können.

Ich denke ohne Beispieldatei wäre dieser thread deutlich länger geworden, es gilt mal wieder:
ein Upload sagt mehr als tausend Worte.

gruß
schnallgonz

Antwort 16 von fedjo

Hallo Lydia,
der Link funktioniert jetzt, die Tabelle habe ich entsprechend angepasst.

Gruß
fedjo

Antwort 17 von Lydia

Hallo Fedjo,
hallo schnallgonz,

genau so habe ich mir das vorgestellt, werde künftig bei Fragen versuchen, immer eine Beispieldatei zur Verfügung zu stellen- bin Neuling aber gerne bereit, etwas dazu zu lernen! :-))

Viele Grüße

Lydia

Antwort 18 von Lydia

Guten Abend,

mir ist nach einigem Testen noch eine Besonderheit aufgefallen:

http://www.netupload.de/detail.php?img=b151da3cee1fd32f1e1ead12c5d8cc1d.xls

Wenn in Zelle A4 etwas eingegeben wird und ich gehe mit der Pfeiltaste nach rechts, dann erscheint das Eingabefeld eine Zeile zu hoch und eine Spalte zu weit rechts=> richtig wäre ja Zelle B4

Kann man das korrigieren?

Viele Grüße

Lydia

Antwort 19 von fedjo

Hallo Lydia,
der Eintrag in Spalte B wird durch die Aktive Zelle gesteuert.
Also eine Zelle nach rechts und eine Zelle nach oben.

Ich habe die Tabelle so verändert, wenn ein Eintrag in Spalte A erfolgt wird in die nächste leere Zelle in Spalte B (Nord, Mitte, Süd) eingetragen.
Es darf dadurch aber keine leere Zelle dazwischen vorhanden sein.
http://www.netupload.de/detail.php?img=aea96c9395f1959218b49fbb7026...

Gruß
fedjo

Antwort 20 von Lydia

Hallo Fedjo!

Vielen lieben Dank an Dich! Das mit der leeren Zeile ist okay, ist eh nicht vorgesehen :-)))

Liebe Grüße

Lydia

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: