Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox wird nicht aus Tabelle geladen

Textbox wird nicht aus Tabelle geladen
15.09.2017 18:23:08
VpG
Hier wieder ein kleines Problem mit meinem Userform.
Ich wähle über die 3 Comboboxen einen Datensatz aus, trage die Bemerkungen ein und speichere das in die Tabelle, was
auch funktioniert.
Da ich mich vertippt habe, ändere ich das z.B. 3. BemerkungsTextfeld ab und speichere wieder, auch das wird in die Tabelle eingetragen.
Jetzt ist mir aufgefallen, wenn ich den Datensatz verlasse und dann z.B. zur Überprüfung zu diesem zurückkehre, dann wird mir wieder der ursprüngliche Wert im 3. Bemerkungsfeld angezeigt und nicht der, den in zuletzt gespeichert habe, obwohl er in der Tabelle steht.
Das Feld wird also, so meine Idee, aus dem Cache geladen oder woher auch immer, so dass mir hier ein falscher Wert angezeigt wird.
Schließe ich das Formular und rufe es komplett neu auf, werden die korrekten Werte aus der Tabelle angezeigt, also auch der, der nach der Korrektur
gespeichert wurde.
Das gilt übrigens für alle 3 Bemerkungstextboxen, also nicht nur für die 3.
Ein "Unload Me" in der Prozedur ist nicht so passend, dann muss ich jedes mal über alle 3 Comboboxen den Datensatz wieder neu laden. Es sollen also nur die die 3.Bemerkungstextfelder wirklich jedes mal aus der Tabelle geladen werden.
Anbei die Datei
https://www.herber.de/bbs/user/116278.xlsm
Hat jemand eine Lösung?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox wird nicht aus Tabelle geladen
15.09.2017 18:46:42
Matthias
Hallo
Könnte man z.B. so lösen:
Private Sub ComboBox1_Change()
'Kategorien auswählen
Dim temp
Dim kat As String
UserForm_Initialize
kat = Me.ComboBox1.Value
Dim lngZaehler As Long
Dim varVorhanden As Variant
ReDim temp(0)
If Me.ComboBox1.ListIndex  -1 Then
Me.ComboBox2.Clear
Me.ComboBox3.Clear
For zeile = 2 To letzte
If werte(zeile, 1) = kat Then
varVorhanden = Application.Match(werte(zeile, 2), temp, 0)
If IsError(varVorhanden) Then
ReDim Preserve temp(0 To lngZaehler)
Me.ComboBox2.AddItem werte(zeile, 2)
temp(lngZaehler) = werte(zeile, 2)
lngZaehler = lngZaehler + 1
End If
End If
Next zeile
End If
End Sub
Allerdings sollte man auch die Inhalte der Textbox-Objekte löschen,
wenn man eine andere "Kat" wählt
Gruß Matthias
Anzeige
AW: Textbox wird nicht aus Tabelle geladen
15.09.2017 18:59:57
Luschi
Hallo VpG,
Du muß beim Speicher nicht nur die Werte in die Tabelle schreiben, sondern auch auch das Array
'werte' aktualisieren, denn daraus holst Du ja die Informationen: 

If Cells(zeile, CInt(Me.Controls("TextBox" & intZaehler).Tag)).NumberFormat = "0.00%" Then
Me.Controls("TextBox" & intZaehler) = Format(werte(zeile, CInt(Me. _
Controls("TextBox" & intZaehler).Tag)), "0.00%")
Else
Me.Controls("TextBox" & intZaehler) = werte(zeile, CInt(Me.Controls(" _
TextBox" & intZaehler).Tag))
End If
Außerdem solltest Du noch etwas einbauen, das die Chance()-Routinen der Comboboxen 2 & 3 nicht reagieren bzw. diese sofort wieder verlassen, wenn ComboBox1_Change() diese Befehle aufruft:
Me.ComboBox2.Clear
Me.ComboBox3.Clear
Das kann man mit boolschen Variablen realisiere. Beim Durchsteppen mit F8 im Quellcode wirst Du merken was ich meine - setze einen Breakpoint auf
Me.ComboBox2.Clear und drücke dann per F8 step by step den Code durch.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Textbox wird nicht aus Tabelle geladen
15.09.2017 21:38:38
VpG
Danke für Eure Infos, aber ich komme da irgendwie nicht nach.
Das Leeren der TextBoxen reicht nicht, auch wenn ich den Value auf " " setze, sobald ich durch die CoboBox3 den Datensatz aufrufe, kommt nicht der neue Wert aus der Tabelle sondern der ursprüngliche.
Mir fehlt eine Idee, wie ich die Userform komfortabel leeren kann. Ändere ich die Combobox1, sollen alle Elemente, also Combobox 2 und 3 und alle TextBoxen geleert werden. Ändere ich die Combobox2, soll nur die Combobox3 und alle TextBoxen geleert werden.
AW: Textbox wird nicht aus Tabelle geladen
16.09.2017 00:24:07
Luschi
Hallo VpG,
im Ereignis 'UserForm_Initialize()' ladest Du mit diesem Befehl 'werte = Tabelle1.UsedRange' die Tabellenwerte in ein Array mit dem Namen 'werte'. Dieses Array wird aber nie wieder!!! aktualisiert.
Alle Informationen für die 3 Combo- und den 9 Textboxen holst Du immer wieder aus dem Array aber nicht aus den aktualisierten Tabellenwerten, wie z.B. hier: Me.ComboBox3.AddItem werte(zeile, 3)
Schreibe als letzten Befehl in der Speichern-Routine:
werte = Tabelle1.UsedRange
und Alles wird gut, denn jetzt wird der Inhalt des Arrays 'werte' aktualisiert mit dem Inhalt der soeben aktualisierten Tabellenwerten.
Anzeige

308 Forumthreads zu ähnlichen Themen

Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Anzeige
Makros werden nicht übertragen
Bernd


Hallo, liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe. Nachstehendes Makro - das ich mit Hilfe dieses Forum erstellt habe - aktualisiert alle Blätter einer Abteilung mittels Sverweis und kopiert diese mit neuen Datei-Namen in ein Verzeichnis.
Leider kopiert das Makro dabei keine...
07.01.2009 13:21:00
Thread-ID: 1037520
2 Beiträge
Schaltflächen werden nicht mehr angezeigt
Karsten

Hallo...
bei mir werden die Schaltflächen nicht mehr angezeigt bzw. aus der Formularleiste lassen sich auch keine neuen hinzufügen. Sie scheint deaktiviert zu sein. Ich weiß aber auch nicht, was ich verändert habe.
In DieseArbeitsmappe steht bei mir folgender code:
Private Sub Wo...
21.06.2010 11:14:11
Thread-ID: 1163084
3 Beiträge
Anzeige
Addin wird nicht geladen
Klaus

Hallo,
wer kann mir weiterhelfen.
Ich habe inzwischen Excel 2010 (wird in der Auswahl nicht angeboten). Habe mir mit diesem RibbonCreator eine Symbolleiste erstellt und dieser dann oft benötigte eigene Makros zugewiesen. Das ganze hab ich dann als Excel-Addin gespeichert und dessen Lade...
27.12.2010 10:44:41
Thread-ID: 1192526
2 Beiträge
Addin wird nicht geladen
Klaus

Hatte eine Frage gestellt:
https://www.herber.de/forum/archiv/1192to1196/t1192526.htm
Jürgen hat geantwortet. Dafür vielen Dank.
Ich exportiere sehr oft aus meinem Onlinebanking Programm (Quicken) Berichte. Daher wäre es schon eine Erleichterung, wenn meine Makros automatisch verfüg...
26.01.2011 14:53:35
Thread-ID: 1197445
10 Beiträge
Messagebox öffnet sich nicht
Thomas

Hallo!
Ich habe folgendes Problem, dass sich in meiner Tabelle die Messagebox nicht öffnet, wenn ein bestimmter Wert einen anderen überschreitet. Das Problem liegt wahrscheinlich daran, dass der Wert nicht direkt in der Zelle steht sondern nur als Funktion dargestellt wird.
Ich möchte...
31.05.2011 06:44:14
Thread-ID: 1216766
12 Beiträge
personl.xls wird nicht mehr geladen
Burkhard

Ich hatte auf einem bisher genutzten PC mit Windows XP und Microsoft Office XP mir einer Makrodatei geschrieben/ aufgezeichnet.
Ich bin jetzt auf einen PC mit Windows 7 gewechselt, die Officeversion ist die gleiche geblieben. Die Datei personl.xls habe ich analog dem PC mit Windows XP in da...
15.01.2013 00:14:28
Thread-ID: 1294274
4 Beiträge
Werte werden nicht angezeigt
Galvagno

Ausgangslage:
ich hab in Excel2010 eine Exceldatei mit 2 Blättern (Kurzbericht und Layout KB). In Blatt Layout KB wird über eine Formel (=WENN(ISTLEER(Kurzbericht!B18);"";VERKETTEN(Kurzbericht!N18;" ";Kurzbericht!M18)) auf einen Wert im versteckten Blatt Kurzbericht (verbundene Zellen) zuge...
18.01.2013 12:13:38
Thread-ID: 1294936
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox 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
4
1
1
2
1
1
9
11
3
4
4
2
3
3
11
4
5
3
1
1
5
3
5
5
1