Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbxänderung in Tabelle zurückschreiben

Textbxänderung in Tabelle zurückschreiben
15.08.2018 09:23:32
Brigitte
Hallo Forum,
ich bin immer noch neu hier und immer noch VBA-Anfänger.
Ich bekomme in einer Datenmaske in einer Listbox Daten angezeigt. Bei Markierung eines Datensatzes, werden die entsprechenden Daten in TextBoxen angezeigt.
Wie kann ich jetzt Änderungen, die ich in den TextBoxen getätigt habe, wieder in die Tabelle zurückschreiben und zwar genau da, wo sie hin sollen?
Besteht außerdem die Möglichkeit über das Suchfeld in einer Art LiveVorschau die Datensätze so zu reduzieren, dass bei einem Eintrag z.b. eines Buchstabens M, die Datensätze so zu reduzieren, dass nur alle Kunden angezeigt werden, die mit M beginnen. Beim Eintrag des zweiten Buchstabens z.b. Me wieder zu reduzieren usw.?
Da ich Anfängerin bin, wäre eine Erläuterung für Lösung für mich sehr hilfreich. Danke
Brigitte
https://www.herber.de/bbs/user/123340.xlsm

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 09:57:53
ChrisL
Hi Brigitte
Für Teil 1 die Lösung.
Public b As Boolean
Private Sub cmdAendern_Click()
If ListBox1.ListIndex >= 0 Then
With ActiveSheet
b = True
.Cells(ListBox1.ListIndex + 2, 1) = TextBoxPin.Value
.Cells(ListBox1.ListIndex + 2, 2) = TextBoxName.Value
'usw.
b = False
End With
Else
MsgBox "es wurde keine Auswahl getroffen"
End If
End Sub
Private Sub ListBox1_Click()
If b Then Exit Sub
With ListBox1
UserForm1.TextBoxPin = .List(.ListIndex, 0)
UserForm1.TextBoxName = .List(.ListIndex, 1)
UserForm1.TextBoxVorname = .List(.ListIndex, 2)
UserForm1.TextBoxGeb = .List(.ListIndex, 3)
UserForm1.TextBoxSex = .List(.ListIndex, 4)
UserForm1.TextBoxAbteilung = .List(.ListIndex, 5)
End With
TextBoxSuch.SetFocus
End Sub

Teil 2: Wenn du eine ComboBox anstelle einer ListBox verwendest, dann erhältst du Textvorschläge.
Wenn du in der ListBox filtern willst, dann wird es relativ kompliziert und du müsstest grundlegend umbauen. Als VBA-Einsteiger würde ich mich auf die anderen Herausforderungen konzentrieren (z.B. Format(Geburtsdatum, "DD.MM.YYYY")).
cu
Chris
Anzeige
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 10:30:33
Brigitte
Hallo Chris,
dein Code funktioniert einwandfrei. Vielen Dank. Du hast mir sehr geholfen.
Gibt es denn eine andere Möglichkeit eine Suchfunktion einzubauen?
Danke
Brigitte
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 11:13:09
ChrisL
Hi
Danke für die Rückmeldung.
Eine ComboBox scheint mir das einfachste.
Ansonsten kennzeichne die Frage wieder als offen. Vielleicht hat jemand Zeit/Lust etwas für dich zu bauen.
cu
Chris
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 11:14:15
Brigitte
Hallo Chris, hallo Forum,
da ich Anfängerin bin folgende Frage:
Was macht die Variable b?
Warum ListIndex +2 im Code?
.Cells(ListBox1.ListIndex + 2, 1) = TextBoxPin.Value
Ich versuche die Lösung nachzuvollziehen und habe dort noch Klärungsbedarf. Danke
Brigitte
Anzeige
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 11:17:29
Brigitte
Hi Forum,
Sorry, aber ich habe vergessen das Häkchen bei Nichtbeantwortung der Frage, (wobei das ja so nicht stimmt) zu setzen.
Brigitte
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 12:28:38
ChrisL
Hi
ListIndex 0 = 1. Wert = 2. Zeile
ListIndex 1 = 2. Wert = 3. Zeile
darum Index + 2
Das Ändern der Zelle führt automatisch das ListBox Click Ereignis aus, was dazu führt, dass die ListBox gleich wieder neu geladen wird und die Werte wieder überschrieben werden. Mit der Variable setzt du kurzfristig ein Kennzeichen, welches im Click abgefragt wird.
In anderem Kontext würde man die Ereignisse kurzfristig mit EnableEvents abschalten, aber das geht hier nicht. Darum die Umgehungslösung mit der Variable.
cu
Chris
Anzeige
AW: Textbxänderung in Tabelle zurückschreiben
15.08.2018 12:43:01
Brigitte
Hallo Chris,
vielen Dank für die Infos. Danke
Brigitte

303 Forumthreads zu ähnlichen Themen

Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellengröße automatisch anpassen
DockM@ster

Hallo,
über ein Tabellenblatt hole ich mir mit der Funktion "sverweis" die Daten. Dabei gibt es auch ein Feld "Langtext". Hier möchte ich, dass sich die Zelle automatisch an den Text anpasst. Mit den normalen Formatierungsfunktionen geht es nicht. Hat dazu jemand eine Lösung (VBA)?
Dock...
06.11.2008 19:55:00
Thread-ID: 1022412
8 Beiträge
Anzeige
Zelleninhalte verschieben, dann Zeilen löschen?
Selma

Hallo Leute,
wenn...
in Zelle der Spalte E dies "Applikation"
in Zelle der Spalte F dies "Version"
in Zelle der Spalte G dies "Computername"
in Zelle der Spalte H dies "Zuletzt genutzt am"
steht,
dann möchte ich die Zelleninhalte von Spalte A bis Spalte D eine Zei...
06.03.2009 19:02:21
Thread-ID: 1057433
6 Beiträge
Zellinhalt rechts von benannter Zeile abfragen
benannter

Guten Abend
Ich verschiedenen Tabellen hat es benannte Zellen. Rechts von diesen Zellen steht manchmal eine gerade Zahl. Nun möchte ich mit einer Funktion, der ich den String des Namens übergebe, die positive gerade Zahl zwischen 1 und 20 zurückerhalten, falls eine solche in der Zelle recht...
14.03.2009 22:27:08
Thread-ID: 1060299
3 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 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
3
8
1
7
7
5
2
2
3
6
3
1
5
19
5
2
2
5
4
11
2
12
3
2
2