Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

Forumthread: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

01.08.2024 20:26:55

null8fuff10

Hallo,

das Forum hier ist MEGA!!! Vielen Dank für die zahlreichen Hilfestellungen, bei meinen recht simplen Problemchen. Antworten kommen gefühlt zeitgleich mit dem Absenden der Fragestellung .... WOW, kenne ich aus anderen Foren (Gaming) nicht.

Ich suche nach nem Makro-Befehl, welcher mir die letzte Zeile einer Tabelle auswählt. Unter der Tabelle befindet sich eine leere Zelle, darunter eine Zelle mit Inhalt. Nach unten ist die Spalte dann leer.

Hintergrund ist, dass ich aus einer anderen Zelle die Daten per Schaltfläche übertragen möchte und mir in der neuen Zelle aus einem Aktien-Kürzel die Aktie mit Namen ausgegeben wird.
Eingabe ist XETR:CCC3 ...... ausgespuckt werden sollte in der letzen Tabellenzeile der korrekte Name des Unternehmens (siehe Screenshot).

Es geht um diese Zeile:

Ende = Range("A65536").End(xlUp).Select

Der Befehl funktioniert nicht, da die letzte gefüllte Zelle den Text Total enthält.

Sub Transaktion_Aktie_erfassen()

   

   Dim lstrow As ListRow

   

    With Worksheets("Eingaben erfassen")

        

              

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

            

        lstrow.Range(1).Value = Worksheets("Eingaben erfassen").Range("D18")

        lstrow.Range(6).Value = Worksheets("Eingaben erfassen").Range("D19")

        lstrow.Range(8).Value = Worksheets("Eingaben erfassen").Range("D20")

        lstrow.Range(9).Value = Worksheets("Eingaben erfassen").Range("D21")

        



End With



Dim Ende As Long



Sheets("Eingaben erfassen").Range("D18:D21").ClearContents



Sheets("Aktien").Select



Ende = Range("A65536").End(xlUp).Select

Selection.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:= _

        "de-DE"

        

End Sub

Der Makro Rekorder hilft mir leider auch nicht weiter.

Userbild

Für Hilfe vielen Dank im voraus.

Liebe Grüße
null8fuff10

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

01.08.2024 21:55:22

ralf_b

du könntest die Zelle mit "Total" suchen und als Ausgangspunkt für .end(xlup) verwenden.

wenn die Tabelle mit dem Aktiennamen eine intelligente Tabelle ist , dann geht das auch bequemer.

AW: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

02.08.2024 00:23:21

Onur

"Ich suche nach nem Makro-Befehl, welcher mir die letzte Zeile einer Tabelle auswählt. Unter der Tabelle befindet sich eine leere Zelle, darunter eine Zelle mit Inhalt."
Also ist doch die Zeile, die du suchst, die vor-vorletzte Zeile - also

Ende = Range("A65536").End(xlUp).Row -2

AW: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

01.08.2024 22:38:09

Uduuh

Hallo,
was soll das mit dem Ende=....?

Cells(Rows.Count, 1).End(xlUp).End(xlUp).Select

Selection.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:= "de-DE"

Falls A ab A6 lückenlos gefüllt ist einfacher mit

Cells(6, 1).End(xlDown).Select

Selection.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:= "de-DE"

Gruß aus'm Pott
Udo

ohne Select/ Activate ...

01.08.2024 22:48:02

Uduuh

Hallo,

Sheets("Aktien").Cells(6, 1).End(xlDown).ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"

bzw. sollte auch

lstrow.Range(1).ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"

funktionieren.

AW: ohne Select/ Activate ...

02.08.2024 00:09:20

Yal

Hallo Null (man spricht sich im Forum per Vorname an ;-)

wählt dir einer daraus:

Sub test()

    With Worksheets(1).ListObjects(1).DataBodyRange

        MsgBox .Address

        MsgBox .Rows.Count

        MsgBox .Cells(1).Row + .Rows.Count - 1

        MsgBox .Cells(1).Row + .ListRows.Count - 1

        MsgBox Worksheets(1).ListObjects(1).HeaderRowRange.Row + .Rows.Count

    End With

End Sub

Was hilft, ist ein Blick im Objektkatalog (Ansicht, Objektkatalog oder F2), suchen nach ListObject.

VG
Yal

AW: ohne Select/ Activate ...

02.08.2024 01:35:12

null8fuff10

Hallo Udo, hallo Yal!

@Yal
Vielen Dank für den Tipp mit dem Objektkatalog!!!

@Udo
Tausend Dank, alle vier Möglichkeiten funktionieren prima! Letzte gefällt mir am Besten, einfach weil sie einfach einfach ist ;-)
Warum aber muss ich bei den beiden ersten den Befehl mit Select beenden und dann mit Selection weitermachen und warum bei den beiden letzteren Befehlen nicht???

Sub Transaktion_Aktie_erfassen()

   

   Dim lstrow As ListRow

   

    With Worksheets("Eingaben erfassen")

        

              

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

            

        lstrow.Range(1).Value = Worksheets("Eingaben erfassen").Range("D18")

        lstrow.Range(6).Value = Worksheets("Eingaben erfassen").Range("D19")

        lstrow.Range(8).Value = Worksheets("Eingaben erfassen").Range("D20")

        lstrow.Range(9).Value = Worksheets("Eingaben erfassen").Range("D21")

        

End With



Dim Ende As Long



Sheets("Eingaben erfassen").Range("D18:D21").ClearContents



Sheets("Aktien").Select



'1 FUNKTIONIERT -- Cells(Rows.Count, 2).End(xlUp).End(xlUp).Select

                                'Selection.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"



'2 FUNKTIONIERT -- Cells(3, 2).End(xlDown).Select

                                'Selection.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"



'3 FUNKTIONIERT -- Sheets("Aktien").Cells(3, 2).End(xlDown).ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"



'4 FUNKTIONIERT -- lstrow.Range(1).ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="de-DE"



      

End Sub

Grüße aus dem Bergischen Land
Marcus

AW: ohne Select/ Activate ...

02.08.2024 18:35:23

Uduuh

Hallo,
bei den ersten beiden wählst du ein Objekt (Range) aus und bearbeitest das ausgewählte Objekt (Selection)
Bei den anderen sprichst du das Objekt direkt an.

Select/ Activate ist in VBA meistens überflüssig.

Gruß aus'm Pott
Udo

AW: ohne Select/ Activate ...

02.08.2024 00:10:42

Yal

Sorry Udo, am falschen Posting geantwortet :-)

VG
Yal

Beliebteste Forumthreads (12 Monate)

Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

Forumthread: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

Forumthread: Makro Befehl - Letzte Zeile einer Tabelle auswählen?????

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread