Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox Eintrag in Tabelle

Textbox Eintrag in Tabelle
13.03.2003 00:03:44
Markus
Hi Leute

Habe in der Rechersche folgenden Code gefunden. Geht soweit ganz gut... aber wie bekomme ich es hin das
1. ich nicht immer mit klick bestätigen muß sondern mit Enter
2. das automatisch erkannt wird das A1 schon gefüllt ist und weiter in A2,A3,A4 usw. eingetragen wird
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A1").Value = TextBox1
End Sub

Brauch ich bestimmt einen extra Code für oder???

Gruß und Danke

Markus

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Textbox Eintrag in Tabelle
13.03.2003 00:13:50
heinz

hi
zu 1: du kannst einem steuerelement den focus zuweisen, dann wird das ereignis - bei buttons das klick ereignis - ausgeführt. mehr dazu in der hilfe unter command button oder focus

zu 2: mit do loop oder find kannst du die erste freie zelle in spalte (zb) a finden und dann einfügen.
z.b.

Sub ...()
Dim i as Integer
i=1
Do Until IsEmpty(Cells(i,1))
Sheets("Tabelle1").Range("A1").Value = TextBox1
i=i+1
Loop
...

gruß, heinz

Re: Textbox Eintrag in Tabelle
13.03.2003 00:26:02
Markus

Hallo Heinz

Erst einmal Danke für deine Antwort aber so richtig hab ichs noch nicht. das funzt nicht.
Der Wert der Textbox wird zwar eingetragen aber auch nur jeweils in A1??

Woran liegst... hab ich einen Fehler gemacht?

Gruß
MArkus

Anzeige
Re: Textbox Eintrag in Tabelle
13.03.2003 01:12:37
heinz

a ja - fehler

Dim i as Integer
i=1
Do Until IsEmpty(Cells(i,1))
i=i+1
Loop
Sheets("Tabelle1").Range("A1").Value = TextBox1

Re: Textbox Eintrag in Tabelle
13.03.2003 01:26:08
heinz

also, jetzt noch genauer mit beispiel:
hier muss man zb auf ein textfeld der userform doppelklicken (gibt auch andere ereignisse) um fortlaufend in spalte a zeugs einzutragen:

zuerst im editor auf die userform doppelklicken und dann:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = TextBox1
End Sub


Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = TextBox2
End Sub


Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = TextBox3
End Sub

Anzeige
Re: Textbox Eintrag in Tabelle
13.03.2003 01:45:12
heinz

ach ja,
wenn du sehr viele textboxen hast, dann rentierts ein unterprogramm zu machen, allerdings muss man dann, so viel ich weiss, die textboxen, um sie variabel ansprechen zu können, in einer NewCollection zusammenfassen. rentiert aber nur wenns viele sind.

sieht ca. so aus:

sub userform initialize
dim texte as NewCollection
texte(1).AddControl("TextBox1")
end sub

und ca. so

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

x = 1
Call unterprogramm
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

x = 2
Call unterprogramm
End Sub

und ca. so:

sub unterprogramm
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = texte(x)
End Sub

mit find geht das leere zelle suchen viel schneller - verwend ich aber nur wenn in der erste spalte beschriftungen stehen - dieses find funzt so komisch - fängt in der 2ten zeile an und hört in der ersten auf und so kas

Anzeige
Re: Irgendwie falsch verstanden oder ausgedrückt
13.03.2003 09:39:00
Markus

Hallo Heinz

War vieleicht auch schon etwas spät heute Nacht... Habe allerdings was anderes gemeint als das was du mir vorgeschlagen hast. Schade um die ganze Arbeit war allerdings nicht ganz umsonst irgendwann kann man das immer mal brauchen. Werde es auf jeden Fall einmal archivieren.

Was ich aber gerne gehabt hätte!
Ich benutzte nur eine Textbox in die ich einen Namen eingeben möchte dieser Name erscheint dann in Tabelle1 A1, Eingabe wird bestätigt. Der Name verschwindet aus der Textbox. Nun gebe ich den zweiten Namen in die selbe Textbox ein - allerdings ist A1 schon beschrieben Excel soll nun erkennen das diese Zelle schon einen Namen enthält und die nächstfolgende also A2 anspringen und eintragen. Und das selbe mit A3,A4,A5 usw.

Sorry das ich mich vieleicht ein wenig umständlich ausgedrückt habe.

Anzeige
Re: Irgendwie falsch verstanden oder ausgedrückt
13.03.2003 11:53:40
heinz

aso

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = TextBox1
TextBox1.Text = ""
End Sub

so gehts wenn noch ein anderes steuerelement auf der form ist - sonst kann die textbox den focus nicht abgeben und das eingeben funktioniert nicht. wenns prizipiell klappt, dann stell doch eine neue frage: wie bekomme ich nach eingabe in eine textbox den focus gleich wieder zurück um ohne unterbrechung eine neue eigabe machen zu können.
aber wie gesagt: wenn dus jetzt nur mal auf einer testform ausprobierts dann brauchst du zb eine zweite textbox damit die erste den focus abgeben kann

gruß, heinz

Anzeige
Re: Irgendwie falsch verstanden oder ausgedrückt
13.03.2003 12:28:40
heinz

aso

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Sheets("Tabelle1").Cells(i, 1).Value = TextBox1
TextBox1.Text = ""
End Sub

so gehts wenn noch ein anderes steuerelement auf der form ist - sonst kann die textbox den focus nicht abgeben und das eingeben funktioniert nicht. wenns prizipiell klappt, dann stell doch eine neue frage: wie bekomme ich nach eingabe in eine textbox den focus gleich wieder zurück um ohne unterbrechung eine neue eigabe machen zu können.
aber wie gesagt: wenn dus jetzt nur mal auf einer testform ausprobierts dann brauchst du zb eine zweite textbox damit die erste den focus abgeben kann

gruß, heinz

Anzeige
Re: Textbox Eintrag in Tabelle
13.03.2003 17:38:40
Carsten

Hi ganz einfach


Set Frm = dein Tabellenname
Sheets("dein Tabellenname").Activate
Range("A65535").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .TextBox1
End With

der Carsten

Re: Danke vielmals, Gruß Markus o. T.
13.03.2003 18:09:19
Markus

o. T.

299 Forumthreads zu ähnlichen Themen

Textbox sperren/ entsperren in tabellenblatt?
max

guten abend zusammen
habe leider ein problem mit einer textbox in einem tabelleblatt. durchsuchte das forum aber leider nichts gefunden !
in einer userform kann ich ja mit locked=true eine textbox sperren gegen eingabe von daten.
wie aber muss ich dies machen wen sich diese in einem...
06.10.2008 21:50:00
Thread-ID: 1014568
3 Beiträge
Anzeige
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
TextBox in Tabelle Schützen
Georg

Hallo,
in meiner Tabelle habe ich 3 TextBoxen eingefügt wo man Text frei schreiben kann. Außerdem habe ich 3 CheckBoxen. Kann man das Blatt so schützen, dass die TextBoxen und CheckBoxen beschrieben bzw. angeklickt aber nicht gelöscht werden(der Inhalt darf aber gelöscht werden aber die...
20.12.2008 15:30:53
Thread-ID: 1034397
3 Beiträge
Anzeige
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Eindeutige Texte in einer Tabelle zählen
Thomas

Hallo,
ich möchte in einer Tabelle, die in einer der Spalten (B) Vor- und Zunamen enthält, zählen, wieviele Einträge es mit einem bestimmten Vornamen gibt.
Ich verwende dazu z.B. für den Vornamen "Alex" die folgende Formel:
=ZÄHLENWENN($B$2:$B$10000;"*"&Alex&"*")
Das fun...
18.02.2009 20:15:00
Thread-ID: 1051902
14 Beiträge
Bereich Einfügen als HTML in andere Tabelle
Karel

Hallu zusammen,
Ich (Markieren)kopieren aus Tabelle1 Range B1:K300 füge diese in Outlook body ein dan wieder neu heraus kopieren nach Excel in Tabelle 2, und über Inhalt einfügen einfügen als HTML kopieren ich alles wieder ab Zelle B10 in Tabelle2. ich habe dann ein Kopie von Tabelle 1 nur...
08.03.2009 11:55:19
Thread-ID: 1057829
6 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
230 textboxen in Tabelle übertragen
erich

Hallo Excelprofis,
habe wieder ein problem,
ich möchte aus meiner Useform in der ich 230 Textboxen habe (in die zahlen eingetragen werden)
in meine Tabelle daten eintragen angefangen von der Spalte G bis x
jeder neue Datensatz soll eine zeile darunter eingetragen werden
wie...
07.04.2009 10:13:39
Thread-ID: 1067286
19 Beiträge

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