Microsoft Excel

Herbers Excel/VBA-Archiv

Letzte freie Zelle ohne Select markieren | Herbers Excel-Forum


Betrifft: Letzte freie Zelle ohne Select markieren von: Josef
Geschrieben am: 02.02.2012 08:39:31

Guten Morgen!

Ich möchte Datensätze von einer Arbeitsmappe in eine andere geöffnete Arbeitsmappe mittels VBAS kopieren.
Die Markierung würde bis zum Kopieren der Datensätze klappen:

Sub Test()
Dim bereich As Range
Dim wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Tabelle1")
Set wks1 = Workbooks("Mappe2.xls").Worksheets("Tabelle1")
Set bereich = wks.Range("A2:DO" & wks.Range("DO65536").End(xlUp).Row)

bereich.Copy
......................................
....................................
End Sub
Wie füge ich nun die kopierten Datensätze in eine andere geöffnete Arbeitsmappe (Mappe2.xls) in der Tabelle1 ab der letzten freien Zelle in der Spalte A ohne Select ein ?

Wie würde hier bitte eine VBa Lösung aussehen?

Danke

Josef

  

Betrifft: AW: Letzte freie Zelle ohne Select markieren von: Josef Ehrensberger
Geschrieben am: 02.02.2012 09:01:56


Hallo Josef,

Sub Test()
  Dim bereich As Range
  Dim wks As Worksheet, wks1 As Worksheet
  
  Set wks = ActiveWorkbook.Worksheets("Tabelle1")
  Set wks1 = Workbooks("Mappe2.xls").Worksheets("Tabelle1")
  Set bereich = wks.Range("A2:DO" & wks.Range("DO65536").End(xlUp).Row)
  
  bereich.Copy wks1.Cells(wks1.Rows.Count, 1).End(xlUp).Offset(1, 0)
  
  Set bereich = Nothing
  Set wks1 = Nothing
  Set wks = Nothing
End Sub






« Gruß Sepp »



  

Betrifft: AW: Letzte freie Zelle ohne Select markieren von: Josef
Geschrieben am: 02.02.2012 09:17:01

Hallo Sepp!

Danke für Deine Antwort. Werde es gleich probieren. Melde mich kurz nochmal.

Danke


Josef


  

Betrifft: AW: Letzte freie Zelle ohne Select markieren von: Josef
Geschrieben am: 02.02.2012 11:22:16

Hallo Sepp!

Ich habe es jetzt durchgetestet.

Es wird jedoch in der Mappe2.xls kopiert und nicht von der Tabelle 1. der aktiven Arbeitsmappe.

Ich möchte jedoch den Teil der in der aktiven Arbeitsmappe koopiert wird in der Mappe 2.xls in der Tabelle 1 ab der nächsten freien Stelle in der Spalte A einfügen.


Josef


  

Betrifft: AW: Letzte freie Zelle ohne Select markieren von: Josef
Geschrieben am: 02.02.2012 11:48:43

Hallo Sepp!

Ich habe den Fehler gefunden, den ich machte. Danke für Deine Hilfe. Dürfte jetzt passen.

Schönen Tag noch.

Josef


Beiträge aus den Excel-Beispielen zum Thema "Letzte freie Zelle ohne Select markieren"