Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA ListRow Eingabe in Tabelle übernehmen mit Button

Forumthread: VBA ListRow Eingabe in Tabelle übernehmen mit Button

VBA ListRow Eingabe in Tabelle übernehmen mit Button
16.07.2024 19:17:09
null8fuff10
Hallo,

ich möchte einen Text aus einem Feld per Button in eine intelligente Tabelle übernehmen.
Das funktioniert auch ..... füge ich allerdings eine neue Spalte in die Tabelle ein, wird der Text in der neuen Spalte übernommen nicht in der ursprünglichen.
Kann ich im Makro definieren, dass immer in "SpalteC" eingefügt wird und nicht in Spalte 3 des Arbeitsblatts? 

Sub Test()



   

   Dim lstrow As ListRow

   

    Set lstrow = Worksheets("Tabelle1").ListObjects(1).ListRows.Add

         

        lstrow.Range(3).Value = Worksheets("Tabelle1").Range("B3")

        

        

End Sub


https://www.herber.de/bbs/user/171042.xlsm

Userbild Userbild



Für Tipps vielen Dank im voraus.

Viele Grüße
null8fuff10


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA ListRow Eingabe in Tabelle übernehmen mit Button
16.07.2024 21:45:06
ralf_b
das gute an intelligenten Tabellen, man muß die nicht auf dem Blatt suchen und deren Elemente sind zugreifbar ohne das man weis wo sie auf dem Blatt liegen.
der Code macht genau das was du willst. Einfügen in die 3. Spalte des Listobjects.
wenn du aber in die verschobene Spalte einfügen willst. dann spricht sie mit ihrem Namen an. Listcolumns("Name").databodyrange.range(lstrow.index)
das wäre quasi von oben nach unten referenziert und nicht wie bei Listrows, von unten nach rechts.
Listcolumns haben Überschriften, deshalb die databodyrange noch dazwischen, um die Überschriften auszugrenzen.
Anzeige
AW: VBA ListRow Eingabe in Tabelle übernehmen mit Button
16.07.2024 22:52:10
Kuwer
Hallo null8fuff10 ,

z.B. so:
Sub Test_Kuwer()

  With Worksheets("Tabelle1").ListObjects(1)

    With .Parent.Range(.Name & "[[Tabelle SpalteC]]")

      .Cells(.Cells.Count).Offset(1).Value = .Parent.Range("B3").Value

    End With

  End With

End Sub
Gruß, Uwe
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige