Thema Datum  Von Nutzer Rating
Antwort
14.10.2018 00:41:31 hutman73
NotSolved
Blau Dynamisches Hinzufügen von Zeilen aus verschieden Workbooks
 14.10.2018 17:30:03 Ulrich
NotSolved
16.10.2018 12:41:44 hutman73
NotSolved

Ansicht des Beitrags:
Von:
Ulrich		 Datum:
14.10.2018 17:30:03		 Views:
643		 Rating:
     
Antwort:
  Ja
Thema:
Dynamisches Hinzufügen von Zeilen aus verschieden Workbooks

Hallo,

manchmal ist es wesentlich einfacher, eine Zelle mit Cells( Zeilennummer , Spaltennummer) anzusprechen, als mit Range(....).

Dennoch habe ich beide Varianten drin gelassen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub GetMeasurementDataFromClosedBook_2()
Dim src As Workbook
Dim lr As Long          'Quelle
Dim lrZiel As Long      'Ziel
Dim WsZiel As Worksheet
 
    Set WsZiel = ThisWorkbook.Worksheets("GesamtData")
     
'erste Datei
    Set src = Workbooks.Open("C:\Users\YL\Desktop\Testumgebung\Quellmappe1.xlsx", True, True)
     
    lr = src.Worksheets("Tabelle1").Range("A" & src.Worksheets("Tabelle1").Rows.Count).End(xlUp).Row
     
    lrZiel = WsZiel.Cells(WsZiel.Rows.Count, 1).End(xlUp).Row
    If lrZiel <> 1 Then lrZiel = lrZiel + 1
     
    src.Worksheets("Tabelle1").Range("A1:N" & lr).Copy Destination:=WsZiel.Cells(lrZiel, 1)
     
    src.Close False
 
 
'zweite Datei
    Set src = Workbooks.Open("C:\Users\YL\Desktop\Testumgebung\Quellmappe2.xlsx", True, True)
 
    lr = src.Worksheets("Tabelle1").Range("A" & src.Worksheets("Tabelle1").Rows.Count).End(xlUp).Row
     
    lrZiel = WsZiel.Cells(WsZiel.Rows.Count, 1).End(xlUp).Row + 1
     
    src.Worksheets("Tabelle1").Range("A1:D" & lr).Copy Destination:=WsZiel.Cells(lrZiel, 1)
 
    src.Close False
 
Set src = Nothing
Set WsZiel = Nothing
  
End Sub

Dieser Code ist nicht getestet (das überlasse ich dir ;-) ).

 

Grüße, Ulrich

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
14.10.2018 00:41:31 hutman73
NotSolved
Blau Dynamisches Hinzufügen von Zeilen aus verschieden Workbooks
 14.10.2018 17:30:03 Ulrich
NotSolved
16.10.2018 12:41:44 hutman73
NotSolved