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

Eingabe

Forumthread: Eingabe

Eingabe
29.04.2009 17:33:25
leo
Hallo Excel Profis, ich bräuchte eure Hilfe. Da mein VBA Level sehr bescheiden ist.
Ich brauche eine Excel-Liste mit Eingabemaske, in welcher Daten eingegeben werden und diese ins Arbeitsblatt geschrieben werden.
Besondertheit, die USer dürfen im Arbeitsblatt nicht mehr ändern.
Kann mit jemand helfen !?
DANKE!!!
lg leo
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe
29.04.2009 18:11:18
leo
Hello Tino, vielen Danke für deine prompte Hilfe. Darf ich noch eines fragen, wie erweitere ich den Code, wenn ich 4 Einträge in in 4 Spalten schreiben möchte!?
DANKE!!
gruß leo
Anzeige
AW: Eingabe
29.04.2009 18:22:45
Tino
Hallo,
hier mal ein Beispiel für 4 Textboxen (Textbox1 bis Textbox4)
Private Sub CommandButton1_Click()
Dim LRow As Long

 With Tabelle1
  LRow = .Range("A:D").Find("*", , xlValues, 2, 1, 2, False, False).Row + 1
  .Cells(LRow, 1).Value = TextBox1.Value
  .Cells(LRow, 2).Value = TextBox2.Value
  .Cells(LRow, 3).Value = TextBox3.Value
  .Cells(LRow, 4).Value = TextBox4.Value
 End With

End Sub


Gruß Tino

Anzeige
AW: Eingabe
29.04.2009 18:26:02
leo
Teste ich gleich, echt super!!
Nochmal DANKE!!
gruß leo
AW: Eingabe
29.04.2009 19:43:06
leo
Hallo Tino, kannst du mir nur erklären was deine Zeile macht?
LRow = .Range("A:D").Find("*", , xlValues, 2, 1, 2, False, False).Row + 1
Kann ich auch die Ausgabe auch erst ab einer bestimmten Zeile machen lassen?
Danke !!
gruß leo
Anzeige
AW: Eingabe
29.04.2009 20:00:19
Tino
Hallo,
diese Zeile sucht im Bereich die nächste freie Zeile von unten her.
Möchtest Du dies noch weiter einschränken, kannst du es auch so machen.
Hier z. Bsp. ab Zeile 5
Private Sub CommandButton1_Click()
Dim LRow As Long

 With Tabelle1
  On Error Resume Next
   LRow = .Range("A5:D" & .Rows.Count).Find("*", , xlValues, 2, 1, 2, False, False).Row + 1
  On Error GoTo 0
  
  If LRow = 0 Then LRow = 5
    
    .Cells(LRow, 1).Value = TextBox1.Value
    .Cells(LRow, 2).Value = TextBox2.Value
    .Cells(LRow, 3).Value = TextBox3.Value
    .Cells(LRow, 4).Value = TextBox4.Value
 End With

End Sub


Gruß Tino

Anzeige
AW: Eingabe
03.05.2009 21:17:53
leo
Hello Tino, wie hast du das eigentlich gemacht, trotz Blattschutz die Eingabe in die Zeile zu schreiben? Ich stehe da etwas auf der Leitung!!
danke gruß leo
AW: Eingabe
04.05.2009 07:35:57
Tino
Hallo,
dies kann dadurch gemacht werden, weil ich beim öffnen durch diese Code Zeile
Tabelle1.Protect "xxx", , , , True
Den Parameter UserInterfaceOnly auf True setze.
Jetzt dürfen Makros änderungen an der entsprechenden Tabelle durchführen.
Dieser Parameter muss aber bei jedem öffnen der Datei neu gesetzt werden.
Gruß Tino
Anzeige
AW: Eingabe
04.05.2009 08:08:06
leo
Guten Morgen Tino, achso nur wo setzt ich diesen Parameter, einfach im Code der Userform?
Danke gruß leo
AW: Eingabe
04.05.2009 08:12:39
Tino
Hallo,
in der Beispieldatei setzte ich dies beim öffnen der Datei.
Schau mal unter DieseArbeitsmappe, dort ist ein Code enthalten.
Ein bar Threads weiter oben, habe ich es beim öffnen der Userform eingebaut.
https://www.herber.de/forum/messages/1072639.html
Gruß Tino
Anzeige
AW: Eingabe
04.05.2009 09:42:27
leo
Super danke für deine Unterstützung!!!!
gruß leo
;

Forumthreads zu verwandten Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Dateneingabe per Userform
Charlie33

Hallo zusammen.
Habe eine Exceltabelle mit 7 Spalten (Name, Vorname, Geburtsdatum, etc.).
Des weiteren befinden sich hier 4 Buttons (Neueingabe, Suchen, Ändern, Löschen).
Die Neueingabe, die Änderung und das Löschen sollen mittels Userform erfolgen.
Eine Userform und die Buttons...
11.08.2008 15:15:46
Thread-ID: 1000884
4 Beiträge
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Makro erst nach Eingabe weiterverarbeiten
Lars

Hallo,
ich habe in Tabellenblatt A eine CheckBox, bei der man aufgefordert werden soll, etwas in Tabelle B zu ergänzen. Nach der Eingabe soll man in Tabelle A fortfahren.
Leider erfolgt zwar der Sprung auf Blatt B, aber es geht unmittelbar zurück auf A. Wie kann ich diese Unterbrechung...
25.08.2008 17:14:27
Thread-ID: 1004514
3 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Anzeige
Eingabemaske - Zellen sind "verstreut".
Martin

Hallo zusammen!
Habe eine Kalkulationsvorlage, bei der die Eingabefelder auf dem gesamten Blatt "verteilt" sind.
Ich möchte gerne die Eingabe benutzerfreundlicher machen und diese über ein Formular/Maske
eingeben lassen.
Über die Eingabemaske hab ich es schon versucht; Mehrfac...
28.08.2008 11:59:00
Thread-ID: 1005373
2 Beiträge
Anzeige
Eingabemaske programmieren? Gibts das schon?
TommiH

Hallöchen,
ich habe eine Frage und zwar möchte ich mir eine Eingabemaske programmieren, die folgenden Kriterien entspricht.
- Ca. 40 Eingabefelder auf dem Bildschirm
- Jedes ca. 10-12 Zeichen lang
- Eingabezeichen sollen Zahlen und Buchstaben sein (evtl. mit Kontrolle)
- Wen...
03.09.2008 15:45:12
Thread-ID: 1007131
6 Beiträge
Anzeige
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
Eingabe in CboBox übergangen
Ernst

Hallo
Da wird in einer CboBox eine Eingabe gefordert und einige von den Usern übergehen diese Eingabe obwohl sie logisch und erforderlich ist.
Es geht um diese Code:
Sheets("DatStd").Activate
g = ActiveSheet.UsedRange.Rows.Count
With UserForm5.CboBoxStd
.RowSource...
08.09.2008 20:12:00
Thread-ID: 1008246
5 Beiträge
Werteingabe
Marcus

Hallo,
ich habe eine EXcellaufstellung über verschiedene Füllhöhen gemäß Anlage. Hier möchte ich jetzt bei meiner Auswertung in meinem Wertefenster eine Füllhöhe in cm eingeben, die Excelldatei soll mir dann automatisch das Ergebnis in l liefern. Ich möchte also nicht mehr nachschauen, wel...
09.09.2008 10:43:00
Thread-ID: 1008364
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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