Office: (Office 365) Intelligent eTabelle bestimmter Zellbereich markieren VBA

Hallo zusammen,
ich habe eine Intelligente Tabelle in der ein Zellbereich Markiert werden soll (A-I).
Später soll dieser Bereich in Outlook eingefügt werden. Das bekomme ich hin.
Wie und wo müsste ich den Bereich angeben.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strAuswahl As ListObject
Dim ZeileMakieren As Long

Set strAuswahl = Tabelle1.ListObjects("tbl_ÄnderungenSchaltzeiten")
'Abbruch
If Target.Rows.Count > 1 Or Intersect(Target, strAuswahl.DataBodyRange) Is Nothing Then Exit Sub
If Target.Column <> 11 Then Exit Sub
'Spalte "Senden" das Wort gesendet  und Datum reinschreiben

If Target.Column = 11 Then
     Target.Value = "gesendet am " & Date
 End If

'Zeilen Makieren
ZeileMakieren = Target.Row - strAuswahl.HeaderRowRange.Row

strAuswahl.ListRows(ZeileMakieren).Range().Select 
'Selection.Copy
'Application.CutCopyMode = False



End Sub

Den Code habe ich mir zusammen gebastelt.

Danke
Martin

 

Hallo Martin,

kopieren würde so gehen:

Code:

Sub kopieren()
    Range("tbl_ÄnderungenSchaltzeiten[[#All],[ID]:[Zurückgenomme]]").Copy
End Sub

Selektieren sollte man in Makros generell vermeiden.

 

Hi Martin,

die aktuelle Zeile wird mit deinem Code doch markiert - wo also ist das Problem?

---

 

Guten Morgen
@Klaus-Dieter
ich hatte den Code in einem Video gesehen. Klar der hat das dann, mit select gemacht so das man was sieht. Ich habe mich dann darauf versteift und nicht mehr darüber nachgedacht direkt gleich zu Kopieren.
Leider kopiert dein Code die gesamte Tabelle. Ich will aber nur die Zeile haben in der ich den Doppelklick in Spalte K gemacht habe.
wie und wo müsste ich deine Code einfügen?
@Karin
Ja aber ich will doch nur die Zellbereich A-I haben.
Grüße und einen Schönen Tag
Martin

 

Hallo Martin,

Soll der Kopiervorgang wirklich mit jeden Doppelklick (zeilenweise) passieren? Wenn ja dann so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim iZeile&
    If Not Intersect(Target, Range("tbl_ÄnderungenSchaltzeiten[Spalte11]")) Is Nothing Then ' in den eckigen Klammern die Spaltenüberschrift anpassen
        With ListObjects(1)
            iZeile = Target.Cells.Row - .HeaderRowRange.Column
            With .DataBodyRange
                .Range(.Cells(iZeile, 1), .Cells(iZeile, 9)).Copy
            End With
        End With
    End If
    Cancel = True
End Sub

Das Einfügen in Outlook hast du ja geschrieben bekommst du hin.

Gruß Uwe

 

Sorry, da war in einer Zeile was falsch - ändere diese Zeile (iZeile=...) so:

Code:

iZeile = Target.Cells.Row - .HeaderRowRange.Row - 1

Naja, man sollte es doch mal testen bevor man was reinsetzt.
Gruß Uwe

 

@Uwe,
mit deinem Code wird die falsche Zeile kopiert.

@Martin,
so sollte der korrekte Zellbereich kopiert werden:

Code:

 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim strAuswahl As ListObject
    Dim ZeileMarkieren As Long
    Set strAuswahl = Tabelle1.ListObjects("tbl_ÄnderungenSchaltzeiten")
    'Doppelklick erfolgte in in Intelligenter Tabelle
    If Not Intersect(Target, strAuswahl.DataBodyRange) Is Nothing Then
        'Zielzelle ist Zelle 11 der Intelligenten Tabelle
        If Target.Column = strAuswahl.HeaderRowRange.Columns(11).Column Then
            'Spalte "Senden" das Wort gesendet  und Datum reinschreiben
            Target.Value = "gesendet am " & Date
            With strAuswahl
                ZeileMarkieren = Target.Row - .HeaderRowRange.Row
                .DataBodyRange.Range("A" & ZeileMarkieren & ":I" & ZeileMarkieren).Copy
            End With
            Cancel = True
            Application.CutCopyMode = False
         End If
    End If
End Sub

---

 

@Uwe
Leider muss ich Karin recht geben. Es wurde die Zeile 8 aus dem Tabellenblatt Kopiert und nicht aus der Intelligenten Tabelle. Die Spalten waren richtig.
Kann es sein das bei der Code

Code:

 Dim iZeile&

was fehlt? Und es deshalb nicht funktioniert
@Karin
Dein Code funktioniert prächtig
Danke
Gruß
Martin

 

Hallo @Cherished,

die Zeile "Dim iZeile&" und die Zeile "Dim iZeile As Long" sind für den VBA-Compiler völlig identisch. Da kann nichts "fehlen".

 

Ach so
da ich nicht so tief in VBA bin, wusste ich das nicht.
Gruß
Martin

 

ja ich habs grad selbst festgestellt. Aber warum dieses seltsame Verhalten im Listobjekt, wenn man den Range von Zelle zu Zelle festlegt. Eine einzelne Zelle wird ja auch korrekt zugewiesen.

Das muss mir mal einer erklären.

Wenn ich eine neue Zeile mit:

Code:

ListRow.Add.Range(ubound(arr,1),ubound(arr,1))=arr anlege (sind ja auch nur Nummern(Zeile Spalte)) 

passiert dieses Verhalten nicht.
Gut, so was mach ich immer mit Arrays, da mir das gewurste durch die Tabellen zu lahm ist. Daher ist mir dieses Verhalten nie aufgefallen.

Gruß Uwe

 

Hi Uwe,

es gibt da wohl Excel-intern einen Konflickt zwischen der Ansprache der Zeilen in Bezug auf die intelligente Tabelle und der Zeilen im Tabellenblatt - Excel versteht quasi die Zeilennummer der intelligenten Tabelle als Zeilennummer des Tabellenblattes. Deshalb darf man in einer With-Anweisung auf die intelligente Tabelle die Cells-Ansprache nicht auf die intelligente Tabelle beziehen. Dein Code funktioniert wie folgt:

Code:

        With ListObjects(1)
            iZeile = Target.Row - .HeaderRowRange.Row
            With .DataBodyRange
                .Range(Cells(iZeile, 1), Cells(iZeile, 9)).Copy
            End With
        End With

---

 

Hallo Karin,

Ich denke auch, dass da irgendwas nicht so ist wie es sein soll.
Da muss damit es funktioniert muss zwar der Range dem Listobjekt zugewiesen sein, aber die Zellen dem Tabellenblatt.
Man kann sich das halt merken, aber irgendwie ist es nicht logisch, da es mit dem Range via Resize im Listobjekt ja klappt. Das sind ja letztendlich auch Zeilen-/Spaltenkoordinaten. hmm
Danke für die Info.

Schönes Wochenende
Gruß Uwe

 

Hi Uwe,

mit ListRows.Add muss nicht auf eine bestimmte Zeile innerhalb der intelligenten Tabelle zugegriffen werden sondern Excel kennt ja den Gesamt-Bereich der intelligenten Tabelle und weiß, dass ausgehend von der 1. Zeile unterhalb die vorgegebene Anzahl an Zeilen hinzugefügt werden muss - es kann im Code also gar nicht erst Konflikt zwischen Zeilen der intelligenten Tabelle und Zeilen des Tabellenblattes auftreten.

---

 

Hallo Karin,
das mit dem doppelklick hat sich in der Praxis nicht bewährt, da ich nur eine Zeile Kopieren kann.
Ich habe jetzt ein Userform gemacht in dem ich bis zu 4 Zeilen auswählen kann.
Meine Tabelle wird auch gefiltert nur dann bekomme ich ein Fehler.
Weiter möchte ich nur die ersten 9 spalten (A:I) Kopieren
Mein zusammengebastelter Code

Code:

Dim strAuswahl As ListObject
    Dim ZeileMarkieren As Long
    Set strAuswahl = Tabelle1.ListObjects("tbl_ÄnderungenSchaltzeiten")

Dim rngBereich As Range
strAuswahl.AutoFilter.ShowAllData
   
 With strAuswahl
      .Range.AutoFilter Field:=1, Criteria1:=Array(Senden.ID_1.Value, Senden.ID_2.Value, Senden.ID_3.Value, Senden.ID_4.Value), Operator:=xlFilterValues
'    Set rngBereich = .DataBodyRange
    Set rngBereich = Intersect(rngBereich, .Range.SpecialCells(xlCellTypeVisible))
   
'Bis dahin funktioniert der Code

  With strAuswahl
'                ZeileMarkieren = Target.Row - .HeaderRowRange.Row
                .DataBodyRange.Range("A" & rngBereich & ":I" & rngBereich).Copy
            End With
            Cancel = True
            Application.CutCopyMode = False
 

 
End With

End Sub

Kannst du mir nochmals helfen?
Verzeih den Durcheinandern Code, habe herumprobiert und haben dann den letzten Stand hier eingefügt
Danke
Gruß
Martin