Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabe über MSBox ausgabe in Zelle

Forumthread: Eingabe über MSBox ausgabe in Zelle

Eingabe über MSBox ausgabe in Zelle
09.12.2004 14:36:14
Marcellos
Tach auch!
Möchte gerne beim öffnen der Tabelle eine MsBox, in die z.B. eine SAP Nr. eingegeben werden muss. Diese nr. soll dann in einer bestimmten Zelle Stehen.
Das soll auch funkitionieren wenn ein Blattschutz eingeschaltet ist.
Danke für eure Hilfe ;-)
Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe über MSBox ausgabe in Zelle
09.12.2004 14:51:55
Andi
Hi Marcellos,
folgendes in VBA-Editor in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Worksheets("Tabelle1").Cells(1, 2).Value = InputBox("Bitte geben sie die SAP Nr. ein:", "Hallo Marcellos")
End Sub

Schönen Gruß,
Andi
AW: Eingabe über MSBox ausgabe in Zelle
Marcellos
zauper kram...
ganau so ... wenn ich mehrere abfragen habe, kann ich die kombinieren. Also ein Fenster mit zwei oder drei abfragen?
;-)
Anzeige
AW: Eingabe über MSBox ausgabe in Zelle
09.12.2004 15:08:58
Andi
Hi,
Du kannst entweder ein Schleife um die InputBox basteln:
for zaehler = 1 to 10
Worksheets("Tabelle1").Cells(zaehler, 2).Value = InputBox("Bitte geben sie die SAP Nr.
ein:", "Eingabe"&CStr(zaehler))
next zaehler
oder Du gibst die Nummern einfach nacheinander in die gleicht InputBox ein und zerrupfst die Eingabe hinterher mit String-Operatoren; bei mehr als 3 oder 4 Eingaben halte ich die Schleife aber für die übersichtlichere Variante.
Schönen Gruß,
Andi
Anzeige
AW: Eingabe über MSBox ausgabe in Zelle
Marcellos
Jups sehr guter Tip
tausend dank!!
;-)
Nachtrag
09.12.2004 15:36:11
Andi
Hi nochmal,
hatte das mit dem Blattschutz überlesen; in dem Fall einfach
Worksheets("Tabelle1").Unprotect
an den Anfang, und
Worksheets("Tabelle1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ans Ende.
Jetzt sollte eigentlich alles funktionieren.
Schönen Gruß,
Andi
Anzeige
AW: Nachtrag
marcellos
Ach ja dachte das geht nicht!
Gute Lösung, aber
dann braucht der User das Kennwort...
geht das noch anders?
Gruß Marcel
AW: Nachtrag
09.12.2004 17:44:15
Andi
Hi nochmal,
so sollte es eigentlich auch mit Passwort funktionieren:
Worksheets("Tabelle1").Unprotect "Passwort"
[...]
Worksheets("Tabelle1").Protect "Passwort"
Wenn Du ganz sicher gehen willst, kannst Du im VBA-Editor unter
VBAProjekt - Eigenschaften von VBAProjekt - Schutz
ein Häcken bei "Projekt für die Anzeige sperren" machen und ein Passwort für den VBA-Code vergeben; damit verhinderst Du, dass jemand das Passwort für den Blattschutz im Code nachliest. Die beiden Passwörter müssen - und sollten - nicht identisch sein.
Ich hoffe, das hilft Dir; wenn nicht, melde Dich ruhig nochmal, ich kann allerdings erst wieder morgen antworten, weil ich jetzt auf den Weihnachtsmarkt zum Glühweintrinken gehe :-)
Schönen Abend,
Andi
Anzeige
AW: Nachtrag
marcellos
Moin Andi!!
Hoffe der gute Schuß im Glühwein hat den Abend angenehm gestaltet ;-)
Alle Jahre wieder nur leider bei 7 Grad schmeckt dat noch nicht sooo da ist ein kühles Hafe doch besser ....
Sööö nü zu Kennwort.
Problem bei diesem Weg ist, das beim öffnen das Kennwort eingegeben werden muss. Das bedeutet jeder User muss das Kennwort kennen. Wenn er über "das" Kennwort verfügt, kann er ohnen weiters über - Extras - Blattschutz aufheben (dann Kennwort einhacken) die Tabelle verändern. Es gibt leider immer Leute denen die Farbe nicht passt oder der Meinung sind irgendwelche Dinge einzufügen...
Deswegen - Automatisch aufheben, vba ausführen, schutz aktivieren
Gruß Marcel
Anzeige
AW: Nachtrag
10.12.2004 09:40:48
Andi
Guten Morgen Marcel,
jupp, der Glühwein hat den Feierabend durchaus versüsst :-)
Eigentlich war meine Lösung auch so gedacht, dass der Blattschutz automatisch ohne Passwort-Eingabe aufgehoben wird, dann kannst Du Deine SAP-Nummern eingeben, dann wird das Blatt wieder mit dem Passwort "Passwort" geschützt. Der User muss bei mir nix eingeben (außer natürlich die SAP-Nummern...)
Hier mal ein auf das Wesentliche reduziertes Beispiel:

Private Sub Workbook_Open()
Worksheets("Tabelle1").Unprotect "Passwort"
Worksheets("Tabelle1").Cells(1, 1).Value = InputBox("bitte eingeben")
Worksheets("Tabelle1").Protect "Passwort"
End Sub

Wichtig ist natürlich dass hinter Unprotect und Protect jeweils das Passwort in Hochkommas steht, sonst muss es natürlich eingetippt werden.
Viel Erfolg,
Andi
Anzeige
AW: Nachtrag
Marcellos
Ach wie schön ...
Jups - so geht das !
Jetzt zu aller letzt noch einen Spezispezialwunsch...
Beim normalen Blattschutz ist es nicht möglich eine Zelle anzuwählen!
Hier schon; erst beim füllen der Zelle kommt die Nachricht.
Würd ich gerne so haben das die Zelle gar nicht erst angewählt werden kann.
ist nur spielkram aber vieleicht hast du noch eine spontane Idee.
Danke ;-)
Anzeige
AW: Nachtrag
10.12.2004 10:33:43
Andi
Hm, also bei mir kann ich trotz Blattschutz jede Zelle anwählen, nur halt eben nicht verändern, ich weiss deshalb nicht so genau, was Du meinst. Eine Zelle muss IMHO sowieso immer markiert sein.
Kopier mal folgendes in das Modul des entsprechenden Arbeitsblatts, zB Tabelle1, dann kann nur noch die Zelle A1 markiert werden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([a1], Target) Is Nothing Then
Cells(1, 1).Select
End If
End Sub

Ist das in etwa das was Du wolltest?
Schönen Gruß,
Andi
Anzeige
AW: Nachtrag
Marcellos
hmm... nee
Ich hab dir mal meine Datei angehängt. Wenn du auf die Zellen Klickst, kannst du sie nicht aktivieren, da der normale Blattschutz aktiv ist. (zum rausnehmen = eks)
Ich sach ja deine Lösung ist super... möchte nur nicht das der User der keinen Plan von Excel hat, nicht verwirrt ist wenn er auf eine Zelle klick was eingibt und dann einen Meldung bekommt
Deswegen wäre es coll wenn das Blatt so geschütz wird wie es jetzt ist.
Problem: Die Zelle wo die SAP-Nr. und die Stückzahl eingetragen wird kann nicht geschützt werden, sonst läuft das Makro nicht. ;-(
https://www.herber.de/bbs/user/14617.xls
Anzeige
AW: Nachtrag
10.12.2004 11:10:45
Andi
Also bei mir kann ich die Zellen in Deiner Datei schon aktivieren, nur reinschreiben kann ich nix.
Da kann ich Dir jetzt leider auch nicht weiterhelfen, wenn es Dir nicht reicht, dass immer die Zelle A1 aktiviert wird, egal wo der user hinklickt.
Am besten Du eröffnest nen neuen thread zu dem Thema, dann antwortet vielleicht irgendjemand, der hier schon lange nicht mehr mitliest.
Viel Erfolg,
Andi
Anzeige
AW: Nachtrag
Marcellos
Jups...
Schmeiß am besten diese scheiß Kiste aus dem Fenster.... Weg mit den Problemchen
Schönes We
tausend Dank!
AW: Nachtrag
10.12.2004 11:47:22
Andreas
Ich wünsch Dir auch ein schönes Wochenende, freut mich, dass ich ein wenig helfen konnte.
Andi
AW: Nachtrag Was: Selektion sperren
10.12.2004 15:09:37
Udo
Hallo Marcellos,
der zugehörige Befehl müsste
Worksheets("tabelle1").EnableSelection = xlUnlockedCells
heißen. Du kannst es auch in den Eigenschaften der Tabelle einstellen. Standard ist an dieser Stelle
xlNoRestrictions
Gruß,
Udo
Anzeige
AW: Eingabe über MSBox ausgabe in Zelle
09.12.2004 15:36:45
Lukas
HI MARCELLOS
WO KOMMT IHR HER?
AW: Eingabe über MSBox ausgabe in Zelle
Marcellos
Meinst du weil ich über ne MSBox eine Eingabe machen will oder was...
Ich hab mich halt vertippt ;-)
AW: Eingabe über MSBox ausgabe in Zelle
10.12.2004 10:45:39
Lukas
naaa...wo du oder ihr herkommt?
Anzeige
AW: Eingabe über MSBox ausgabe in Zelle
Marcellos
Suchst du Freunde oder was?
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Wert aus aktiver Zelle in InputBox übertragen
Axel

Hi ihr fleißigen Helferlein :)
Ich habe hier eine Suchfunfunktion mit InputBox.
Ist es irgendwie möglich beim Start des Makros den Wert der aktiven Zelle in die Inputbox automatisch zu übertragen, so das ich ihn nicht selbst hineintippen/kopieren brauch?
Die Suche soll trotzdem über...
13.12.2008 07:44:52
Thread-ID: 1032569
3 Beiträge
Zellen bestimmter Werte in ListBox listen
Harry

Wie können aus einer Ecxel-Tabelle (z. B.: A1-E150) nur die Zeilen in eine List- oder ComboBox gelistet werden, bei denen in der Spalte E der Wert (z.B.) 2 oder größerer ist?
Alle Zellen in Spalte E1 bis E150 haben einen numerischen Inhalt.
Besten Dank für jede Hilfe Harry
13.01.2009 13:51:23
Thread-ID: 1039228
10 Beiträge
Checkbox in Zelle schreiben
Markus

Hallo
Wie kann ich erreichen, daß zwei Checkboxen in einer Userform in die Zellen ein (G) schreiben und wenn ich die Checkboxen das Häcken entferne auch das (G) nicht mehr drin ist.
Wäre es auch möglich, daß wenn Checkbox1 ein Häcken hat Checkbox2 keines mehr hat.
Checkbox1 in Zelle...
30.01.2009 22:42:52
Thread-ID: 1045549
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige