Clever-Excel-Forum

Normale Version: Selektion Change Event Start und wert von Aktiver Celle
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Excel Profis,

ich bräuchte wieder eure Hilfe im Punkt VBA.

Ausgangs Situation:

In Spalte A ab Zeile 9 Stehen Namen auf der Vertikalen
Ab Spalte K7 bis NK7 Stehen auf der Horizontalen Datumswerte 01.01.2021 bis 31.01.2021

Jetzt möchte ich in einer Userform von markierten Zellen den ersten und den letzten wert in zwei TextBoxen ausgeben und zwar die Datums werte aus der 7 Zeile wo ich ich mich befinde. Ich bekomme es hin das er mir die Zell Adressen wieder gibt bzw. auch die Spalte angezeigt bekomme. aber ich kriege es nicht hin das er mir die werte aus der 7 Zeile statt der Zell Adresse wieder gibt.

Im Code unten stehen meine Versuche.... Kann mir einer sagen wir er dann richtig lauten müsste ??

Vielen Dank schon mal für eure Mühe

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim rngArea                   As Range
Dim firstdate                       As String
Dim lastdate                       As String
Dim name                       As String

    For Each rngArea In Selection.Areas
        firstdate = rngArea(1).Column
        lastdate = rngArea(rngArea.Cells.Count).Column
        name = rngArea(rngArea.Cells.Count).Column
    Next rngArea
   
    MAIN_Navigation.TB_Start.Text = firstdate
    MAIN_Navigation.TB_End.Text = lastdate
    MAIN_Navigation.TB_U.Value = Selection.Count
    MAIN_Navigation.TB_Name.Text = name
   
End Sub

'   MAIN_Navigation.TB_Start.Text = rngArea(1).Address(0, 0)
  '  MAIN_Navigation.TB_End.Text = rngArea(rngArea.Cells.Count).Address(0, 0)
   ' MAIN_Navigation.TB_U.Value = Selection.Count
    'MAIN_Navigation.TB_Name = rngArea(rngArea.Cells, 1)
Hi Toto,

lade doch mal bitte deine Datei hoch!

LG
Alexandra
Hi ALexandra,
danke für deine Hilfe die Datei liegt dem Anhang bei.
Aber bitte nicht zu genau hin schauen ist alles noch Unfertig :16: :16: :16:
Hallöchen,
Einen Zellinhalt bekommt man durch Ansprechen der Zelle oder Abruf einer Eigenschaft selbiger wie z. B. Value