Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm in Excel Zellen

UserForm in Excel Zellen
amintire
Hallo alle zusammen,
ich würde gerne aus den Textfeldern im UserForm die Eingaben bei Klick auf Button (OK) in die entsprechenden Zellen eintragen lassen.
Hat jemand evtl. ein Beispiel oder Informationen bzgl. des VBA Codes?
Die eingegebenen Daten sollen immer an die letzte freie Zeile eingetragen werden.
z.B. Textfeld1 = Tabelle B / letzte Zeile / Spalte A
Textfeld2 = Tabelle B / letzte Zeile / Spalte B..... usw.
Außerdem würde ich gerne auch eine Auswahlliste in der UserForm hernehmen, wobei hier auch andere Eingaben gemacht werden können, jedoch wenn es eine neue ist die in der Liste nicht vorhanden ist soll diese neue Eingabe auch danach in die Liste übernommen werden. z.B. eine Suchfunktion durch Eingabe von 2-3 Zeichen soll evtl. die Liste (wenn es übereinstimmt) zur Auswahl gegeben werden.
Die Liste dafür befindet sich z.B. in Tabelle C und soll immer automatisch (auch letzte freie Zeile) weitergeführt werden wenn neue Eingaben gemacht werden.
Wäre echt nett für Hilfe.
Vielen Dank.
Gruß amintire

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserForm in Excel Zellen
14.01.2010 17:47:16
ransi
HAllo Amintire
Soll das wirklich in die letzte freie Zeile oder doch in erste freie Zelle der jeweiligen Spalten ?
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
With Sheets("Tabelle2")
    .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = TextBox1.Text
    .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) = TextBox2.Text
    .Range("C" & .Rows.Count).End(xlUp).Offset(1, 0) = TextBox3.Text
End With
End Sub


ransi
Anzeige
AW: UserForm in Excel Zellen
14.01.2010 17:52:45
amintire
Hallo Ransi,
danke für deine schnelle Antwort.
Also es ist so dass alle Textfelder zusammenhängen und in der Zeile auf Entsprechende Zellen eingetragen werden sollen.
Wenn Zeile 1 - 16 schon voll ausgefüllt oder auch nur teils ausgefüllt ist soll dann nach betätigen auf OK die Daten vom UserForm in Zeile 17.
Wenn ich z.B. das UserForm nochmal aufrufe müssten die Textfelder für neue Eingaben leer sein.
Geht das irgendwie?
Gruß amintire
AW: UserForm in Excel Zellen
14.01.2010 21:53:55
Gerd
Hallo A.,
als ungetesteter Ansatz.
Private Sub CommandButton1_Click()
Dim nächste_Zeile as long
nächste_Zeile= 1 + Unterste(Sheets("Tabelle2"),1, 16)
With Sheets("Tabelle2")
.Range("A" & nächsteZeile) = TextBox1.Text
.Range("B" & nächsteZeile)  = TextBox2.Text
.Range("C" & nächsteZeile)  = TextBox3.Text
End With
End Sub


Public Function Unterste(objTabelle as Worksheet, lngSpalteEins as long, lngSpalteSchluss as  _
long)as long
Dim ct as long
For ct = lngSpalteEins to lngSpalteSchluss
if objTabelle.cells(objTabelle.rows.count,ct).Row > unterste then unterste= objTabelle.cells( _
objTabelle.rows.count, ct).Row
Next
End Function
Private UserForm_Deactivate()
TextBox1= ""
End Sub Gruß Gerd
Anzeige

301 Forumthreads zu ähnlichen 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
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
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Währungsformat in Zellen
Henner

Hi,
mit den folgenden Codes (Modul) lasse ich das Währungsformat in Zellen ändern. Einmal in EUR und einmal in CHF:
Sub EUR() Sheets("RNG.PDF").Select Range("I34:J42,J48:J51").Select Range("J48").Activate Selection.NumberFormat = "#,##0.00 $" End Sub
Sub CHF() Sheets("RNG.PDF")...
21.10.2008 17:27:54
Thread-ID: 1018098
2 Beiträge
Währungsformat in Zellen Vol.2
Henner

Hi,
leider bekomme ich keine Antwort auf mein Post:
https://www.herber.de/forum/archiv/1016to1020/t1018098.htm
Ich gehe davon aus, dass ich das Problem einfach nicht so gut beschreiben kann. Habe das ganze Szenario jetzt nochmal ganz vereinfacht nachgebaut, hoffe ich komme damit nu...
21.10.2008 21:58:00
Thread-ID: 1018178
5 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
2
4
9
13
2
4
5
1
4
10
4
5
6
2
6
2
3
5
4
2
1
5
4
5
3