Ich habe in der Exceltabelle den Spalten einen Namen zugewiesen (Spalte markiert und oben links ein Name eingegeben.
Nun möchte ich im VBA den Spaltenname abfragen in der sich die aktive Zelle befindet.
Hat jemand ein Tipp?
Vielen Dank.
Isha
Left(Activecell.Address(1,0),INSTR(Activecell.Address(1,0),"$")-1)
GreetZ Renee
Select Case column.Spaltenname '(--> von mir gesuchte Anweisung)
Case "SpalteDatum"
Case "SpalteVisum"
End select
Gruss
Isha
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If Not Application.Intersect(ActiveCell, _
Range(nm.RefersToRange.Address)) Is Nothing Then
MsgBox " die selektierte Zelle gehört, bzw." & Chr(10) & _
"die selektierten Zellen gehören zu" & Chr(10) & Chr(10) & _
Space(18) & nm.Name, _
64, " Hinweis für " & Application.UserName
Exit Sub
End If
Next nm
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich", _
48, " Hinweis für " & Application.UserName
End Sub
Sub Name_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If Not Application.Intersect(ActiveCell, Range(nm.RefersToRange.Address)) Is Nothing Then
MsgBox nm.Name
Exit Sub
End If
Next
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich"
End Sub