Thema Datum  Von Nutzer Rating
Antwort
07.02.2023 09:23:34 Sven
Solved
Blau Variable Bestimmung zum Zeilenübertrag zwischen 2 Tabellen
 07.02.2023 10:42:48 Gast59981
NotSolved
07.02.2023 13:00:17 Gast39276
NotSolved

Ansicht des Beitrags:
Von:
Gast59981		 Datum:
07.02.2023 10:42:48		 Views:
481		 Rating:
     
Antwort:
  Ja
Thema:
Variable Bestimmung zum Zeilenübertrag zwischen 2 Tabellen

Option Explicit

Public Sub Example()
 
  Dim rngSource As Excel.Range
  Dim rngTarget As Excel.Range
 
  With Workbooks("Quelle.xlsx").Worksheets("Tabelle1")
    Set rngSource = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
  End With
  With Workbooks("Ziel.xlsx").Worksheets("Tabelle1")
    Set rngTarget = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
  End With
 
  Dim diff As Long
  diff = rngSource.Rows.Count - rngTarget.Rows.Count
 
  If diff <= 0 Then
    Call MsgBox("Keine neuen Daten vorhanden.", vbInformation)
    Exit Sub
  End If
 
  Dim rngSourceNew As Excel.Range
  Set rngSourceNew = rngSource.Rows(rngSource.Rows.Count).Offset(RowOffset:=-(diff - 1)).Resize(rowSize:=diff)
 
  'nur zur Veranschaulichung den Bereich anzeigen/markieren
  rngSourceNew.Activate
  rngSourceNew.Select
 
End Sub

Das Makro veranschaulicht den groben Ablauf und geht davon aus, dass ...

  • Quelle und Ziel bereits in Excel geöffnet sind
  • die Daten - in jeweils beiden Dateien - auf dem Tabellenblatt "Tabelle1" ab Zelle A1 beginnen
  • die Daten - in jeweils beiden Dateien - in Spalte A lückenlos vorkommen (also keine leeren Zellen)
    • Anmerkung: per .End(xlUp) werden so die Zeilen ermittelt

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.02.2023 09:23:34 Sven
Solved
Blau Variable Bestimmung zum Zeilenübertrag zwischen 2 Tabellen
 07.02.2023 10:42:48 Gast59981
NotSolved
07.02.2023 13:00:17 Gast39276
NotSolved