Textboxen - HILFE - Keine Aktualisierung

Ich werde noch wahnsinnig. Habe zig Einträge durchforstet und komme einfach nicht weiter, obwohl es doch so einfach sein sollte.

Habe in mein Tabellenblatt einige Textboxen eingefügt.
Über die Ereignisprozedur Worksheet_SelectionChance sollen bestimmte Werte der aktuell ausgewälten Zelle in die Textboxen übertragen werden.
HAT AUCH ALLES FUNKTIONIERT.
Nachdem ich mich heute wieder daran machte - nichts. Die Textboxen behalten einfach einen x-beliebigen Wert. Die einzelnen Variablen im Speicher ändern sich und selbst wenn ich den Wert der jeweiligen Textbox auslese wird er korrekt genannt ...
jedoch nicht in der Textbox dargestellt.
Wenn ich eine neue Textbox erzeuge und dieser neuen Textbox den Wert zuweise funktioniert es wie es sollte. Speichere ich ab und starte Excel neu ... war es das. Auch diese Textbox verhält sich regungslos.
Habe mittlerweile 5 Stunden mit dem Problem zugebracht und komme nicht weiter.

Ich hoffe ein anderer kann mir helfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Anbei mal den mittlerweile auf das Minimalste gekürzte Code.
Eine Userform fällt bei mir weg, da noch andere Rechner im Netzwerk auf die Datei zugreifen (im schreibgeschützten Modus), welche nur über Office97 verfügen. Und da eine modale Userform hier noch nicht möglich ist, aber ein Zugriff auf die Tabelle ein Muß ist, benötige ich die Labels (die sich auch nicht aktualisieren) und Textboxen integriert in die Tabelle. Mit fixiertem Fenster sieht dies auch sehr gut aus.

Bei mir daheim verfüge ich auch nur über Office97 und dort funktioniert es reibungslos. Bei den anderen muß jeweils erst die Textbox angewählt werden, damit sie sich aktualisieren (aber nicht wenn automatisch), das gilt aber auch nicht für die Textbox_Bez1. Unter meiner dortigen Office2000 Version mag Excel erst gar nicht aktualisieren. Nur, wenn die Textbox angewählt wird, ist für diesen Zeitraum der reale Wert sichtbar.
Aargh!

Private Sub worksheet_selectionchange(ByVal Target As Range)
Dim kw, bez1, bez2, tel1, tel2, info As String
On Error Resume Next
If Not Intersect(Target, Range("B:J")) Is Nothing Then
kw = Cells(Selection.Row, 2).Value
bez1 = Cells(Selection.Row, 3).Value
bez2 = Cells(Selection.Row, 4).Value
tel1 = Cells(Selection.Row, 5).Value
tel2 = Cells(Selection.Row, 8).Value
info = Cells(Selection.Row, 9).Value
If kw <> "" Then tel1 = tel1 & " o. KW: *10 " & kw
bez1 = bez1 & " " & bez2
textbox_bez1.Text = bez1
textbox_bez1 = bez1
TextBox_Tel1 = tel1
TextBox_Tel2 = Cells(Selection.Row, 8).Value
Textbox_Info = Cells(Selection.Row, 9).Value
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Textboxen - HILFE - Keine Aktualisierung

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread