Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus einer dynamischen Userform übertragen

Werte aus einer dynamischen Userform übertragen
14.03.2018 08:58:31
JayJay
Hallo zusammen,
ich habe - mit Hilfe des Forums - eine dynamische Userform erstellen können.
Diese generiert sich anhand der Eintragungen einer intelligenten Tabelle ("Tb_Einkaufsliste"). Soweit, so gut.
Über die Userform möchte ich Geldbeträge in vorgefertigte Felder eingeben. Mit einem Klick auf den "Übernehmen-Button" sollen diese Werte (in €) in eine zweite intelligente Tabelle ("Tb_Preisliste") übernommen werden.
Außerdem soll die Eingabe nur auf Zahlenwerte (mit einer Nachkommastelle) beschränkt werden - andere Formate sollen ungültig angezeigt werden.
Ich hoffe, ihr könnt mit der beigefügten Datei etwas anfangen:
https://www.herber.de/bbs/user/120399.xlsm
Das Problem ist, dass ich nicht weiß, wie ich beim Klicken auf den Button die einzelnen Textfelder ansprechen kann, um deren Value zu übertragen.
LG
JayJay

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus einer dynamischen Userform übertragen
14.03.2018 09:56:15
Luschi
Hallo JayJay,
hier mal die 1. Problem: Übertragen der Werte in die Tabelle.
https://www.herber.de/bbs/user/120401.xlsm
Gruß von Luschi
aus klein-Paris
AW: Werte aus einer dynamischen Userform übertragen
14.03.2018 10:19:15
JayJay
Hallo Luschi,
ich bin echt begeistert, dass es funktioniert.
Momentan kann ich den Code allerdings noch nicht nachvollziehen - bin noch nicht so lange in VBA unterwegs :)
Kannst du mir den kurz grob erklären? Könnte man irgendwo in deinem Code die Restriktion des Zahlenformats einbinden?
Gibt es auch die Möglichkeit, die Inhalte in die Zieltabelle zu transponieren? Das wäre nämlich der nächste Schritt..
Fragen über Fragen :O
LG
JayJay
Anzeige
AW: Werte aus einer dynamischen Userform übertragen
14.03.2018 11:15:26
Luschi
Hallo JayJay,
hier mal die selbe Datei mit ein paar Kommentaren.
https://www.herber.de/bbs/user/120406.xlsm
Gruß von Luschi
aus klein-Paris
AW: Werte aus einer dynamischen Userform übertragen
14.03.2018 13:21:17
JayJay
Hallo Luschi,
danke für deine Mühe, jetzt bin ich schon etwas schlauer.
Du überträgst die Daten ja mittels Offset. Kann man das auch eleganter lösen, indem man als Ziel direkt die Tb_Preisliste ansprechen kann?
Was noch hinzukommt: wie kann ich direkt die Spalte Preis in der Tb_Preisliste anwählen (das ist nötig, wenn die Tabelle mehrere Spalten hat)? Gleiches gilt für die Spalte Name in der Tb_Einkaufsliste.
Normalerweise müsste das doch über Tb_Einkaufsliste[Name] bzw. Tb_Preisliste[Preis] funktionieren.
LG
Anzeige
AW: Werte aus einer dynamischen Userform übertragen
14.03.2018 14:22:49
Luschi
Hallo JayJay,
die Routine kann so aussehe: 

Private Sub cmb_uebernehmen_Click()
Dim ctl As Control, lstObj_1 As ListObject, lstObj_2 As ListObject
Dim sTag As String, n As Long
Set lstObj_1 = ActiveSheet.ListObjects("Tb_Einkaufsliste")
Set lstObj_2 = ActiveSheet.ListObjects("Tb_Preisliste")
For Each ctl In Me.Controls
If Left(TypeName(ctl), 7) = "TextBox" Then
sTag = ctl.Tag
n = -1
On Error Resume Next
n = Application.WorksheetFunction.Match(sTag, lstObj_1.DataBodyRange, 0)
On Error GoTo 0
If n  -1 Then
lstObj_2.DataBodyRange.Cells(n).Value = ctl.Value
End If
End If
Next ctl
Set ctl = Nothing
Set lstObj_1 = Nothing
Set lstObj_2 = Nothing
Unload Me
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

299 Forumthreads zu ähnlichen Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzeige
Werte in Tabelle schreiben
uw

Hallo,
ich habe in einer Tabelle die Tagessummen, die in eine andere Tabelle übertragen werden sollen.
In dem Beispiel sind die Daten in dem Blatt "Ausgangstabelle".
Diese Tabelle wird jeden Tag aktualisiert.
In jedem neuen Monat steht wieder in Zelle "B2" der Monatserste.
P...
17.12.2008 16:58:50
Thread-ID: 1033661
6 Beiträge
Werte einfügen aus Array in Tabelle mehrere Rows
chris

Hallo VBA Profis,
eine frage würde mich sehr über Hilfe freuen.
Dafür bedenke ich mich im vorraus.
ich habe den Code unten und will die Daten aus dem Array meArea2
in ein Tabellenblatt einfügen ab der zeile 2 also A2
Aber irgendwie schaffe ich es nicht.
habe es schon mi...
15.01.2009 10:13:00
Thread-ID: 1039973
9 Beiträge
Anzeige
Werte in Tabelle eintragen
fred


Hallo zusammen
Ich habe eine Arbeitsmappe mit ca 50 Tabellenblättern. Im Sheet Namensliste Im Bereich C9 bis C59 sind Namen eingetragen. Jeder dieser Namen ist ein Name eines Sheets. Ich möchte jetzt gerne für meine Diagramme Werte aus diesen Sheets in Tabelle 1 eingetragen haben.
...
18.01.2009 22:23:00
Thread-ID: 1041281
3 Beiträge
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
Combobox in tabelle einfügen mit werten
chris

Hallo mal wieder,
bitte bei diesem Problem um Hilfe.
Mit dem unten stehendem Code will ich in Tabelle1 Zeile 1 Comboboxen erstellen lassen.
Das klappt auch.Nur wenn ich jetzt diese zeile mit laufen lassen
Call test
Dann kommt ein fehler.
Laufzeitfehler 9 . Index auserhal...
13.02.2009 10:35:00
Thread-ID: 1050388
7 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
alles bis auf bedingte formatierung kopieren
Tobias

Ahoi Super-Gurus!
WksRemote.Cells(i, 2).Copy Destination:=WksLocal.Cells(i, 2)
hiermit kopiere ich von zelleninhalte & kommentare von blatt 1 zu blatt 2,
bin jetzt aber draufgekommen das mir auch die bedingten formatierungen mitkopiert werden.
wie kann ich das verhindern?
13.03.2009 22:04:53
Thread-ID: 1060055
6 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
8
3
5
8
9
2
4
6
2
5
2
5
3
9
10
29
9
6
2
9
9
4
11
5
2