Tabelle zur markierten Zelle ermitteln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabelle zur markierten Zelle ermitteln
von: TheBlueHill
Geschrieben am: 07.10.2015 14:09:00

Hallo zusammen,
ich habe mal wieder ein kleines VBA-Problem:
Auf einem Tabellenblatt liegen mehrere Tabellen (z.B. tbl_1). Es soll in VBA die Tabelle, welche zur markierten Zelle gehört, ermittelt werden und anschließend ans Ende eine neue Zeile hinzugefügt werden.
Letzteres ist weniger das Problem, aktuell fehlt mir das erkennen der Tabelle!
Kann mir hier jemand weiterhelfen?
Gruß,
TBH

Bild

Betrifft: AW: Tabelle zur markierten Zelle ermitteln
von: RolfK
Geschrieben am: 07.10.2015 14:37:52
Hallo TBH,
wie folgt....
MsgBox ActiveSheet.Name
Gruß Rolf

Bild

Betrifft: AW: Tabelle zur markierten Zelle ermitteln
von: Daniel
Geschrieben am: 07.10.2015 14:43:58
Hi
geht im Prinzip ganz einfach:

Selection.ListObject.ListRows.Add AlwaysInsert:=True
den Fehler der passiert wenn du eine Zelle ausserhalb einer Tablle selektiert hast, vermeidest du am einfachsten mit einer Kapselung in On Error Resume Next
On Error Resume Next 
Selection.ListObject.ListRows.Add AlwaysInsert:=True
On Error Goto 0
Wenn du diese Form der Fehlervermeidung nicht magst, dann ist das die stilistisch sauberer Lösung:
Dim LO As ListObject
    
For Each LO In ActiveSheet.ListObjects
    If Not Intersect(ActiveCell, LO.Range) Is Nothing Then
        LO.ListRows.Add AlwaysInsert:=True
        Exit For
    End If
Next
gruß Daniel

Bild

Betrifft: AW: Tabelle zur markierten Zelle ermitteln
von: TheBlueHill
Geschrieben am: 07.10.2015 15:22:00
Hallo Daniel,
vielen Dank, das war genau das was ich gesucht hatte! Rückblickend eine sehr einfache Lösung...
Gruß,
TBH

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabelle zur markierten Zelle ermitteln"