Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Label immer aktualisieren

Betrifft: Label immer aktualisieren von: Eberhard
Geschrieben am: 26.09.2020 09:13:50

Guten Tag
Ich habe da ein Problem. Ich möchte ein Label füllen, welches den Wert aus einer Zelle im Tabellenblatt "Rechner" anzeigt.
In der Zelle steht folgende Rechnungsformel =SUMME(G4:G5)+G6.

So rufe ich das Label auf (Dies steht im Tabellenblatt "Rechner")

Private Sub Worksheet_Change(ByVal Target As Range)
    UserForm1.Label20.Caption = Worksheets("Rechner").Range("G7").Value
End Sub
Doch leider zeigt es mir nun im Label #WERT! an.

Denke da kann mir jemand helfen!

Gruss Daniel

Betrifft: AW: Label immer aktualisieren
von: Hajo_Zi
Geschrieben am: 26.09.2020 09:20:21

Hallo Daniel,

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

http://www.excel-ist-sexy.de/bilder-statt-datei/

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

GrußformelHomepage

Betrifft: Funktioniert ohne Probleme ...
von: Matthias L
Geschrieben am: 26.09.2020 09:28:02



Gruß ...

Betrifft: AW: Label immer aktualisieren
von: GerdL
Geschrieben am: 26.09.2020 09:39:45

Moin Daniel!
'Modul der Tabelle
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show False
Cancel = True
End Sub
'Modul der Tabelle
Private Sub Worksheet_Calculate()
UserForm1.Label1.Caption = Cells(7, 7).Value
End Sub

'Modul des Userform
Private Sub UserForm_Initialize()
Label1.Caption = Worksheets("Rechner").Cells(7, 7).Value
End Sub

Gruß Gerd

Betrifft: AW: Label immer aktualisieren
von: Eberhard
Geschrieben am: 26.09.2020 22:08:58

Hallo Daniel & Gerd
Vielen Dank Euch beiden! Ich habe beide getestet und hat mein Wunsch erfüllt.
Besten Dank.

Gruss Daniel

Betrifft: AW: Label immer aktualisieren
von: Daniel
Geschrieben am: 26.09.2020 10:45:04

Hi

Verwende statt dem Label eine Listbox und verknüpfe diese über die Eigenschaft "Rowsource" mit der Zelle (Zelladresse bei Rowsource eintragen)

Die Listbox zeigt immer den aktuellen Zellwert, ohne das du was programmieren musst (abgesehen vom Aufruf der Userform).

Mit den richtigen Einstellungen in der Eigenschaftsliste (z.B. SpecialEffects) sieht die Listbox dann auch aus wie ein Label.

Gruß Daniel