Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Selektion Change Event Start und wert von Aktiver Celle
#1
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)


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
Hi Toto,

lade doch mal bitte deine Datei hoch!

LG
Alexandra
Antwortento top
#3
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


Angehängte Dateien
.xlsm   Urlaub Beta versionen 1.0.xlsm (Größe: 352,62 KB / Downloads: 2)
Antwortento top
#4
Hallöchen,
Einen Zellinhalt bekommt man durch Ansprechen der Zelle oder Abruf einer Eigenschaft selbiger wie z. B. Value
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste