Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
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
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Aktive Zelle in Userform ausgeben


Betrifft: Aktive Zelle in Userform ausgeben von: Silvan
Geschrieben am: 06.12.2017 20:19:35

Hallo Peter, Hallo andere VBA-Cracks,

bin immer noch an meinem Problem mit der Ausgabe der aktiven Zelle in einer Userform. Dank Peter funktioniert es wie gewollt in einer Messagebox.
Kann mir jemand erklären wie ich den funktionierenden Code einzusetzen habe, dass dieser in der Userform statt der Messagebox funktioniert?

Original Code für Messagebox:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strMeldung As String, i As Integer
On Error Resume Next
If Target.Column = 35 Then
    If Target.Row >= 56 Then
        If Rows.Rows(ActiveCell.Row - 1).EntireRow.Hidden = True Then
            For i = ActiveCell.Row To 56 Step -1
                If Cells(i - 1, 37).EntireRow.Hidden = False Then
                    If Cells(i - 1, 37).Value <> 0 Then
                        strMeldung = Cells(i - 1, 37).Value
                    End If
                    Exit For
                End If
            Next i
        End If
        If ActiveCell.Offset(-1, 2) <> "" And ActiveCell.Offset(-1, 2) <> 0 Then
           strMeldung = ActiveCell.Offset(-1, 2).Value
        End If
        If strMeldung <> "" Then
            MsgBox "Du hast den " & strMeldung & " richtig und sauber fertiggestellt.",  _
vbInformation, "Meldung"
        End If
    End If
End If
End Sub

https://www.herber.de/bbs/user/118153.zip

Gruss Silvan

  

Betrifft: AW: Aktive Zelle in Userform ausgeben von: Crazy Tom
Geschrieben am: 06.12.2017 22:31:44

Hallo

wo in der Userform soll es denn dargestellt werden?
in einer Textbox? in einem Label?

MfG Tom


  

Betrifft: AW: Aktive Zelle in Userform ausgeben von: Peter (hpo)
Geschrieben am: 07.12.2017 08:45:53

Hallo Silvan

Vieleicht dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strMeldung As String, i As Integer
On Error Resume Next
If Target.Column = 35 Then
    If Target.Row >= 56 Then
        If Rows.Rows(ActiveCell.Row - 1).EntireRow.Hidden = True Then
            For i = ActiveCell.Row To 56 Step -1
                If Cells(i - 1, 37).EntireRow.Hidden = False Then
                    If Cells(i - 1, 37).Value <> 0 Then
                        strMeldung = Cells(i - 1, 37).Value
                    End If
                    Exit For
                End If
            Next i
        End If
        If ActiveCell.Offset(-1, 2) <> "" And ActiveCell.Offset(-1, 2) <> 0 Then
           strMeldung = ActiveCell.Offset(-1, 2).Value
        End If
        If strMeldung <> "" Then
            UserForm1.TextBox1.Value = "Artikel: " & Chr(10) & Chr(10) & strMeldung & Chr(10) &  _
Chr(10) & "gemäss Vorgaben fertiggestellt."
            UserForm1.Show
        End If
    End If
End If
End Sub
Viele Grüße
Peter (hpo)


  

Betrifft: AW: Aktive Zelle in Userform ausgeben von: Peter (hpo)
Geschrieben am: 07.12.2017 08:57:48

Hallo Silvan,

hier nochmals als Datei.

https://www.herber.de/bbs/user/118158.zip

Viele Grüße
Peter (hpo)


Beiträge aus den Excel-Beispielen zum Thema "Aktive Zelle in Userform ausgeben"