Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Letzte Zeile von Tabelle an letzte Zeile einer ...

Betrifft: Letzte Zeile von Tabelle an letzte Zeile einer ... von: Atze
Geschrieben am: 15.08.2004 15:50:00

Hallo,
ich möchte zwei Tabellen zusammenführen.
Nach folgendem Muster:
die letzte Zeile der einen Tabelle soll an die letzte Zeile
der anderen Tabelle kopiert bzw. verschoben werden.
Ich komme aber mit meinen bescheidenen VBA-Kentnissen nicht weiter.

Im voraus schon einmal vielen Dank...................................

MfG
Atze

  


Betrifft: AW: Letzte Zeile von Tabelle an letzte Zeile einer von: harry
Geschrieben am: 15.08.2004 23:19:23

Hallo!

Hier findest du ein kleines Makro das dir weiterhelfen wird, versuch es einfach aus. Das Makro kopiert einfach die letzte Zeile der Tabelle1 in die letzete Zeile der Tabelle2.
Ich hoffe, dass ich dir helfen konnte.

mfg

Harry

Sub kopieren()

Sheets("tabelle1").Activate
Range("a1").End(xlDown).EntireRow.Copy

Sheets("Tabelle2").Activate
Range("a1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial

End Sub



  


Betrifft: AW: Letzte Zeile von Tabelle an letzte Zeile einer von: Atze
Geschrieben am: 16.08.2004 14:04:30

Hallo,

vielen Dank für deine Antwort.
Ich habe im Archiv ein Beispiel gefunden und für meine Bedürfnisse ein Wenig angepasst.
Ist nicht elegant funktioniert aber:

Sub DatenKopie()
Dim wks
Dim x
Dim iRow As Integer
Dim iRowS As Integer
Dim sfile As String

Application.ScreenUpdating = False
sfile = ThisWorkbook.Path & "\test1.xls"
        If Dir(sfile) = "" Then
        Beep
        MsgBox "Testdatei wurde nicht gefunden !"
        Exit Sub
        End If
x = 0
Set wks = ActiveSheet
  Workbooks.Open Filename:=sfile
  Worksheets(1).Select
        While x = 0
        iRowS = Workbooks("Ausgang.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        If iRowS = 1 Then x = 1
        iRow = Workbooks("test1.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
        Workbooks("Ausgang.xls").Worksheets(1).Rows(iRowS).Copy Workbooks("test1.xls").Worksheets(1).Rows(iRow)
        Workbooks("Ausgang.xls").Worksheets(1).Rows(iRowS).Clear
        Wend
  ActiveWorkbook.Close savechanges:=True
  Application.ScreenUpdating = True
End Sub




MfG
Atze


 

Beiträge aus den Excel-Beispielen zum Thema "Letzte Zeile von Tabelle an letzte Zeile einer ..."