In einer Excel-UserForm, wie aktualisiere ich eine Beschriftung?

Erstellt habe ich meine erste nicht-modale UserForm in Excel und legen Sie ein ActiveX-label auf. Wie kann ich die Beschriftung des Labels, so dass es zeigt, was in Sheet1.Range("A1"), und aktualisiert sich selbst, wenn der Wert in Zelle A1 ändert?

Grundsätzlich möchte ich die Userform's label immer aktualisiert werden, der zweite etwas in der Excel-Zelle ändert. Danke!

InformationsquelleAutor phan | 2011-07-28

  1. 5
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Cells(1, 1), Target) Is Nothing Then
        Exit Sub
    End If
    UserForm1.Label1.Caption = Sheet1.Range("A1").Value
End Sub

    Den sub Change aufgerufen wird, wird jedesmal, wenn eine Zelle geändert wird. Der code ist dieser: wenn A1 geändert wurde, ändern Sie die Beschriftung des Label1 auf UserForm1. Das Formular muss geöffnet wurden, nicht modal (vbModeless).

    UserForm1.Show vbModeless
    Hallo cularis, vielen Dank für die unglaublich schnelle Antwort! Dieser arbeitete für mich.

    InformationsquelleAutor Jacob

  2. 1

    Dieser Arbeitete für mich.

    Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"

    InformationsquelleAutor moberme

Schreibe einen Kommentar