Suche Aktive Zelle Spaltenüberschrift name mit VBA in excel

Ich habe eine Tabelle erstellt aus der Liste der Daten. Wie finden Sie den text für die Kopfzeile der jeweiligen Spalte

Suche Aktive Zelle Spaltenüberschrift name mit VBA in excel

Wenn ich wählen Sie die activecell-header ist beleuchtet zu orange, aber ich abrufen möchten, die den Wert mithilfe von visual basic.
Ich bin in der Lage zu finden, die excel-Tabelle, die die Adresse, aber ich brauche in der Tabelle, Spalte header

   Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      MsgBox Target.Value 
      MsgBox ActiveCell.Address
   End Sub

InformationsquelleAutor kinkajou | 2011-10-04

  1. 4

    Dann kommt wieder die Kopfzeile der Spalte, wenn die übergebene Zelle in einer Tabelle

    Function TableHeader(cl As Range) As Variant
    Dim lst As ListObject
    Dim strHeading As String

    Set lst = cl.ListObject

    If Not lst Is Nothing Then
        TableHeader = lst.HeaderRowRange.Cells(1, cl.Column - lst.Range.Column + 1).Value
    Else
        TableHeader = ""
    End If
End Function
    Danke, funktioniert gut 🙂

    InformationsquelleAutor chris neilsen

  2. 2
    strCurrentColName = Cells(ActiveCell.ListObject.Range.Row, ActiveCell.Column).Value
    Können Sie das noch näher erläutern?

    InformationsquelleAutor Mauro Haller

  3. 1

    Wenn durch die Spaltenüberschrift, du meinst die Zelle in der ersten Zeile in der gleichen Spalte, in der eine änderung vorgenommen wurde, dann bauen Sie die header-Zellen, dh

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    MsgBox Target.Value
    MsgBox ActiveCell.Address & vbNewLine & "Column header is " & Cells(1, Target.Column)
End Sub

    Wenn Ihr Kopf war in Zeile 2 würden Sie Cells(2, ActiveCell.Column) etc

    [Aktualisiert nach dem Kommentar unten]

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng1 As Range
Set rng1 = Target.End(xlUp)
MsgBox "First value before a blank cell/top of sheet is " & rng1.Value
End Sub
    +1Thanks ist es, was ich will, aber wenn die Tabelle in der Mitte des Blattes würde es nicht funktionieren !!
    Wenn Ihre Tabelle ist kontinuierlich, dann könnten Sie meine aktualisierte obigen code zu finden, der header
    Danke, aber mein Tisch ist nicht kontinuierlich, aber die erste Lösung funktioniert, da ich meine Tabelle immer an der Spitze 😉 😀
    Keine probs 🙂 Wenn es einen Weg gibt, um zu bestimmen, der oben in der Tabelle, dann kann es leicht angepasst werden (dh finden und verwenden Sie ein bestimmtes Wort "Entwicklung der Region", wenn es immer an der oberen linken Seite , verwenden Sie eine Reihe Namen zu "markieren" die Spitze der Tabelle etc)

    InformationsquelleAutor brettdj

  4. 0

    War ich online auf der Suche für einen guten Weg, um die header-Wert einer bestimmten Zelle in der Tabelle, und nach ein bisschen brainstorming kam mit dieser funktionierende Lösung, die ich dachte, ich würde teilen.

        Target.Offset(1 - Target.Row).Value

    In dem Fall, dass deine Header sind nicht in Zeile 1 ändern Sie dann die 1 zu welcher Zeile Sie sich befinden.

    InformationsquelleAutor Eric D.

Schreibe einen Kommentar