Excel VBA letzte Zeile ermitteln und kopieren 

Dankeschön 🤗

@@excelforyou007 Hi Moni, leider haben sich zwei Tippfehler bei dir eingeschlichen . lz , lzz und wsb sind vom Type Variant. Du wolltest bestimmt das so schreiben : Dim lz As Long , ls As Integer und Dim wsB As Worksheet, wsZ As Worksheet . Den Type einer Variablen kann man so herausfinden : 1. Variable markieren 2. Rechte Mouse Taste drücken 3. QuickInfo auswählen Mir passieren auch ständig Tippfehler 😜 Meistens benutze ich so etwas : '####################################### Type tAuto Marke As String Modell As String Farbe As String Ps As Integer Kmh As Integer End Type Sub MeinAuto() Dim NewAuto As tAuto NewAuto.Farbe = "Rot" NewAuto.Kmh = 250 NewAuto.Marke = "VW" NewAuto.Modell = "Polo" NewAuto.Ps = 500 MsgBox "Marke : " & NewAuto.Marke MsgBox "Modell : " & NewAuto.Modell MsgBox "Farbe : " & NewAuto.Farbe MsgBox NewAuto.Ps & " PS" MsgBox NewAuto.Kmh & " Km/h" End Sub '########################################################################################## Ps. Wenn es dich nervt, das hier ständig so ein Blödsinn poste, dann sage mir einfach Bescheid 🙂 LG Dirk

'Nicht getestet, da ich bei meinen Schwiegereltern bin 😞 ' Habe ich mit dem Handy eingetippt. ' Wenn diese Prozedur funktioniert , antworte mal. '################################################################################# Sub Datenkopieren() 'Definieren der Quell-Arbeitsmappe, des Tabellenblatts und des Bereichs, der kopiert werden soll Dim QuellArbeitsmappe As Workbook On Error Resume Next Set QuellArbeitsmappe = Workbooks("Name der Quell-Arbeitsmappe.xlsm") On Error GoTo 0 If QuellArbeitsmappe Is Nothing Then MsgBox "Die Quell-Arbeitsmappe ist nicht geöffnet." Exit Sub End If Dim QuellTabellenblatt As Worksheet Set QuellTabellenblatt = QuellArbeitsmappe.Worksheets("Name des Quell-Tabellenblatts") Dim QuellBereich As Range Set QuellBereich = QuellTabellenblatt.Range("A1:B10") 'Ersetze A1:B10 durch den Bereich, den Du kopieren möchtest 'Definieren der Ziel-Arbeitsmappe, des Tabellenblatts und der Zelle, in die der Bereich eingefügt werden soll Dim ZielArbeitsmappe As Workbook On Error Resume Next Set ZielArbeitsmappe = Workbooks("Name der Ziel-Arbeitsmappe.xlsx") On Error GoTo 0 If ZielArbeitsmappe Is Nothing Then Set ZielArbeitsmappe = Workbooks.Open("Pfad zur Ziel-Arbeitsmappe.xlsx") If ZielArbeitsmappe Is Nothing Then MsgBox "Die Ziel-Arbeitsmappe konnte nicht geöffnet werden." Exit Sub End If End If Dim ZielTabellenblatt As Worksheet Set ZielTabellenblatt = ZielArbeitsmappe.Worksheets("Name des Ziel-Tabellenblatts") Dim ZielZelle As Range Set ZielZelle = ZielTabellenblatt.Range("A1") 'Ersetze A1 durch die Zelle, in der Du mit dem Einfügen beginnen möchtest 'Kopieren und Einfügen des Bereichs QuellBereich.Copy Destination:=ZielZelle End Sub 'Ich hoffe, ich konnte Dir weiter helfen :-) 'Gruß 'Dirk

'Ich benutze für dynamische Daten das ListObject. 'Kopiere diese Prozedur in eine !!! Neue !!! .xlsm Arbeitsmappe . 'Getestet und läuft 🙂 Sub ErstelleUndFuelleTabelle() ' Variablen definieren Dim tbl As ListObject Dim ws As Worksheet Dim neueZeile As ListRow Dim NameInput As String Dim AlterInput As Variant Dim StadtInput As String ' Bezug auf Arbeitsblatt setzen Set ws = ThisWorkbook.Sheets("Tabelle1") ' Tabelle überprüfen, ob vorhanden, andernfalls neue Tabelle mit 3 Spalten erstellen und "Name", "Alter" und "Stadt" als Spaltenüberschriften setzen On Error Resume Next Set tbl = ws.ListObjects("tblFrankSeineDaten") If tbl Is Nothing Then Set tbl = ws.ListObjects.Add(xlSrcRange, Range("A1:C1"), , xlYes) tbl.Name = "tblFrankSeineDaten" tbl.HeaderRowRange(1) = "Name" tbl.HeaderRowRange(2) = "Alter" tbl.HeaderRowRange(3) = "Stadt" tbl.ListRows.Add tbl.ListRows.Add tbl.ListRows.Add tbl.DataBodyRange(1, 1) = "Frank" tbl.DataBodyRange(1, 2) = 35 tbl.DataBodyRange(1, 3) = "Berlin" tbl.DataBodyRange(2, 1) = "Dirk" tbl.DataBodyRange(2, 2) = 43 tbl.DataBodyRange(2, 3) = "Lüneburg" tbl.DataBodyRange(3, 1) = "Moni" tbl.DataBodyRange(3, 2) = 47 tbl.DataBodyRange(3, 3) = "Salzgitter" On Error GoTo 0 End If Eingabe: ' Benutzereingabe für neue Zeile abfragen NameInput = InputBox("Gebe einen Namen ein:") KeineZahl: AlterInput = InputBox("Gebe das Alter ein:") ' Fehlerbehandlung für AlterInput - sicherstellen, dass es sich um eine Zahl handelt If Not IsNumeric(AlterInput) Then MsgBox "Das Alter muss eine Zahl sein." GoTo KeineZahl End If StadtInput = InputBox("Gebe die Stadt ein:") ' Neue Zeile zur Tabelle hinzufügen Set neueZeile = tbl.ListRows.Add neueZeile.Range(1, 1).Value = NameInput neueZeile.Range(1, 2).Value = AlterInput neueZeile.Range(1, 3).Value = StadtInput End Sub 'Viel Spaß beim testen 🙂 ' Gruß 'Dirk

Hallo Markus, vielen Dank für deinen Hinweis. Mit Kempten lagst du gar nicht so schlecht...🙂 Ich wünsche dir auch ein schönes Wochenende. Viele Grüße Moni

@@excelforyou007 Danke Dir. Wie zuverlässig klappt diese Methode bei Dir? Ich durfte schon öfters feststellen, dass Excel, offensichtlich Schwierigkeiten hat die letze befüllte Zeile herauszufinden... Ich behelfe mir im Moment so, dass ich zum einen über "find" und "usedrange" einen Wert ermittle und danach nochmal spaltenweise mit "deiner" Methode den jeweils größten Wert für die letzte Zeile ermittle und schließlich den insgesamt größten Wert nehme. Hat Excel evtl. ein Problem damit, dass die Tabelle rund 120 Spalten und fast 18.000 Zeilen hat? (Tendenz steigend, da fast täglich neue Datensätze dazu kommen) Hast Du sonst noch eine Idee, wie ich zuverlässig die letze Zeile und Spalte einer Tabelle ermitteln kann, in der ein Wert (egal ob String oder numerisch) drin steht. Leider ist der Umstieg auf Access keine Option. Dank schee schomohl. LG nomohl ge Kempda. Markus

@@markusnoller275 bisher hatte ich mit dieser Methode keine Probleme. Aktuell fällt mir keine Alternative ein. Vielleicht hat die Community eine Idee. Viele Grüße Moni

@@excelforyou007 Hallo Moni, guten Morgen, Danke Dir LG Markus

Anbei eine Möglichkeit: et wsB = Sheets("Beispiel") '

Vielen lieben Dank für die Information.