Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Eingabemaske, Eingabe in freie Zeile speiche

VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 10:46:38
Blaich
Hallo Excel-Kollegen,
für eine Projektstatistik haben wir eine Excel-Tabelle entworfen.
Die Eingabe erfolgt über eine Eingabemaske durch vba.
Wenn die Eingabemasken Felder ausgefüllt sind (müssen nicht alle ausgefüllt sein) sollen die eingegebenen Daten beim Drücken des Buttons "speichern" in die nächste freie Zeile in dem Excelsheet geschrieben werden.
Nun meine Frage, da ich mich mit VBA sehr schlecht auskenne, wie kann ich den Button formatieren, dass die Eingabedaten in die nächste freie Zeile geschrieben wird und keine Daten überschrieben werden?
Hier die Excel-Datei
https://www.herber.de/bbs/user/87959.xlsm
Vielen Dank für eure Hilfe.
Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 10:50:53
Hajo_Zi
das geht nicht über Format nur Code. 
Private Sub speichernButton_Click()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) + 1
Cells(LoLetzte, 1) = KdnrBox
End Sub

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 11:23:31
Blaich
In Spalte A wird die Kdnr. übernommen, wie kann ich den Code schreiben, dass die Spalten B-K auch übernommen werden?
Vielen Dank

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 11:29:46
Hajo_Zi
einfach die Zeile
Cells(LoLetzte, 1) = KdnrBox
kopieren und Spalte und TextBox anpassen.
Ich würde noch eine Prüfung einbauen ob KDNrBox""
Gruß Hajo

Anzeige
AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:11:28
Blaich
Hi,
vielen Dank für deine Hilfe.
Habe alle Spalten nun drin ;)
Wie erstelle ich diese Prüfung mit VBA?
Und noch was anderes, wenn ich die Steuerbox Formular öffne, sollen alle Textboxen leer sein. Weißt du hierfür den Code als VBA?
Vielen Dank
Grüße

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:13:29
Hajo_Zi
If kdnrBox"" then
Trage nichts in VBA Editor in die Userform ein
Arbeite mit Unload Me
Gruß Hajo

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:22:38
Blaich
wo muss unload me eingetragen werden?
Danke.

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:26:57
Blaich
Wenn ich die Eingabemaske vollständig ausgefüllt habe und auf speichern gehe, schließt sich nicht die Eingabemaske. Kann mir jemand helfen, wie der Code geht, dass beim Drücken des Buttons Speichern die Eingabemaske schließt?
Danke

Anzeige
AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:32:23
Hajo_Zi 

Private Sub speichernButton_Click()
Unload Me
End Sub
Gruß Hajo

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 13:11:49
Blaich
Vielen Dank, funktioniert einwandfrei.
Ist es möglich, wenn man speichern gedrückt hat, dass noch ein Feld mit "Vielen Dank." aufgeht?

AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 13:13:55
Hajo_Zi
ja
Bezieht sich auf diese Nachricht:
Private Sub speichernButton_Click()
Msgbox "Vielen Dank"
Unload Me
End if
End Sub
Gruß Hajo

Anzeige
AW: VBA - Eingabemaske, Eingabe in freie Zeile speiche
06.11.2013 12:20:02
Blaich
Hi, vielen Dank für deine Info. Hat alles funktioniert.
Wie kann ich die Prüfung in VBA einbauen?
Noch was anderes, wenn ich über die Schaltfläche Formular die Eingabemaske öffne, sind alle vorherige Daten in den Textfeldern. Ist es möglich, dass beim Öffnen der Eingabemaske die Textfelder leer sind? Wie lautet der Code?
Vielen Dank.

303 Forumthreads zu ähnlichen Themen

Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Anzeige
Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
Automatisch beim öffnen in nächste leere Zeile
chris58

Hallo !
Ich habe diesen Code gefunden der mir ermöglicht nach dem öffnen einer Datei in die nächste freie Zeile zu springen. Nun meine Frage: Kann man das automatisch machen. Also ich öffne die Datei und der Courser steht automatisch in der nächsten freien Zeile der Spalte A.
Danke für...
19.06.2009 13:24:19
Thread-ID: 1082886
8 Beiträge
Anzeige
Datenbloecke in Zeilen schreiben
VolkerM

Hallo Forum
Ich möchte mehrere hundert "Datenblöcke" in Zeilen schreiben.
Diese "Datenblöcke" bestehen immer aus 4 Zeilen und 6 Spalten.
Dann folgt immer eine Leerzeile.
Die einzelnen Zellen sind mal leer mal befüllt.
Auch der Inhalt ist unterschiedlich (Datum Uhrzeit Ziff...
27.10.2009 07:30:13
Thread-ID: 1112385
3 Beiträge
wert per VBA in nächste leere zelle schreiben
Michael

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nic...
26.06.2010 09:55:04
Thread-ID: 1164138
6 Beiträge
Daten aus einem Bereich in eine Zeile schreiben
Stefan

Hallo liebe Excel-Profis,
ich habe ein kleines Problem und hoffe ihr könnt mir dabei helfen.
Ich möchte Namen, die in einem Bereich J2:Q15 verstreut stehen, in eine Zeile nebendran, sagen wir S2:Z2, schreiben.
Maximal 8 Namen sind es, aber ich bekomm es einfach nicht hin, dass jede...
28.12.2010 14:06:57
Thread-ID: 1193062
4 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
Rahmen in die nächste leere Zeile
Heinz

Hallo Leute
Habe unteres Makro das mir ab A6:L einen Rahmen setzt.
Ich möchte gerne wenn zb. in A10 ein Wert steht,das mir dann in A11:L11 der Rahmen gesetzt wird.
Also immer immer die nächste leere Zelle von A.
Könnte mir dazu bitte jemand helfen?
Gruß
Heinz
Private...
27.02.2011 19:42:52
Thread-ID: 1203245
9 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
6
7
4
2
5
3
2
8
5
6
3
18
4
20
6
1
2
2
1
2
2
2
2