Kommandos zusammenbasteln
23.11.2022 11:54:47
Harald
ich versuche gerade mir eine ausführbare Zeile zusammen zu basteln:
Public Sub Prop_Application()
Dim LoTab As ListObject
Set LoTab = ActiveSheet.ListObjects(1)
MsgBox LoTab.Application & "." & Range("C4").Value '-- der ausgewählte Text ib C4 lautet "ActivCell"
MsgBox LoTab.Application.ActiveCell '-- nur zur Kontrolle
End Sub
Ich möchte mir so, einfach zum üben, alle Eigenschaften zu ListObjekten abrufen.Hierbei gebe ich LoTab.Application vor und möchte mir die jeweilige Eigenschaft aus einem DropDown in Zelle C4 holen.
Die erste MessageBox gibt aber "Microsoft Excel.ActiveCell" aus.
Eigentlich sollte aber, wie in der 2. MessageBox der Inhalt der aktuellen Zelle angezeigt werden.
Kann mir jemand sagen, was ich falsch mache?
Vielen Dank schon einmal