Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zellposition, Zeile-Spalte, in Textbox zeigen
22.03.2018 15:57:51
Dieter(Drummer)
Guten Tag, VBAler/innen,
der folgende Code zeigt mir die aktuelle Zellposition:
- die Zeilennummer, die Spaltennummer und die Spaltenbuchstaben, an.
Die funktioniert, allerdings nur als MsgBox.
Wie muss der Code lauten, wenn die Angaben in der Textbox1, der Userform1, mit Klick auf Commandbutton1, erscheinen sollen. Statt MsgBox nur Textbox1 anzugeben, geht nicht.
Funtionierender Code für MsgBox:
  • 
    Sub ZeileSpalte()
    MsgBox "Zeile: " & ActiveCell.Row & vbLf & "Spalte: " & ActiveCell.Column & " ( " & Split( _
    ActiveCell.Columns.Address, "$")(1) & " )"
    End Sub
    

  • Musterdatei anbei: https://www.herber.de/bbs/user/120612.xlsm
    Mit der Bitte um Hilfe, grüßt
    Dieter(Drummer)

    7
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Zellposition, Zeile-Spalte, in Textbox zeigen
    22.03.2018 16:05:27
    ChrisL
    Hi Dieter
    Private Sub CommandButton1_Click()
    TextBox1 = "Zeile: " & ActiveCell.Row & vbLf & "Spalte: " & _
    ActiveCell.Column & " ( " & Split(ActiveCell.Columns.Address, "$")(1) & " )"
    End Sub
    
    TextBox-Eigenschaft Multiline = True aktivieren
    cu
    Chris
    AW: Danke Chris u. Robert Werner. Perfekt. owT
    22.03.2018 16:17:58
    Dieter(Drummer)
    AW: Zellposition, Zeile-Spalte, in Textbox zeigen
    22.03.2018 16:08:29
    Robert
    Hallo Dieter,
    Private Sub CommandButton1_Click()
    TextBox1.Value = "Zeile: " & ActiveCell.Row & vbCrLf & "Spalte: " & ActiveCell.Column & " ( " &  _
    Split(ActiveCell.Columns.Address, "$")(1) & " )"
    End Sub
    
    Außerdem muss die MultiLine-Eigenschaft der Textbox auf True eingestellt werden, damit mehrere Zeilen dargestellt werden.
    Gruß
    Robert
    Anzeige
    AW: Zur allgem. Info: Code etwas ergänzt ...
    22.03.2018 16:33:29
    Dieter(Drummer)
    Hallo Chris und Robert Werner,
    habe den Code noch etwas geändert und geht wie gewünscht mit eurer Hilfe:
    Private Sub CommandButton1_Click()
    TextBox1 = "Heute ist der: " & Date & vbLf & "Zeile:    " & ActiveCell.Row & vbLf & "Spalte: " & _
    _
    ActiveCell.Column & " ( " & Split(ActiveCell.Columns.Address, "$")(1) & " )"
    End Sub
    

    Evtl. ist es auch für andere Mitleser/innen interessant.
    Gruß, Dieter(Drummer)
    genial........ kwT
    22.03.2018 17:04:39
    robert
    AW: Werr braucht schon Ihre dusseligen Kommentare!
    22.03.2018 17:16:41
    Dieter(Drummer)
    und "werr" braucht das was Du brauchst? grrrrrrrr
    23.03.2018 19:08:38
    robert

    315 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige