Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit mehreren Rows.Count Anzahl an Zeilen addieren?

Mit mehreren Rows.Count Anzahl an Zeilen addieren?
12.07.2017 10:00:24
Catha
Hallo Profis,
ich arbeite an einem relativ komplexen Code (zumindest für mich als Anfänger). Ein Teil dieses Codes soll einen Bereich aus einer anderen Datei unterhalb des gefüllten Bereichs in der Makro-Datei im aktuellen Tabellenblatt einfügen. Allerdings können beide Bereiche bei jeder Verwendung des Codes unterschiedlich viele Zeilen haben. Das heißt, der Code soll die Zeilen im aktuellen Tabellenblatt zählen, eine Zeile frei lassen und darunter den kopierten Bereich aus der anderen Datei in Spalte Q einfügen.
Wenn ich nur die erste Zelle im Code angebe, von der aus der kopierte Bereich eingefügt werden soll, dann laufe ich auf einen Fehler, da die Bereiche nicht gleich groß sind.
Ich habe für die gezählten Zeilen im aktuellen Tabellenblatt den Namen ÜVLetzte und für die gezählten Zeilen in der anderen Datei den Namen CPCZeile vergeben.
Wie kann ich die beiden so verknüpfen, dass ich unabhängig von der Größe der Bereiche, den Bereich aus der anderen Datei einfügen kann?
Grüße, Catha

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit mehreren Rows.Count Anzahl an Zeilen addieren?
12.07.2017 12:05:52
yummi
Hallo Catha,

Workbooks("Dest").Sheets("Destination").Range("A1:A" & CPCZeile).Copy
ThisWorkbook.ActiveSheet.Range("A" & ÜVLetzte + 1).Paste
Ich geh mal davon aus, dass Du die letzte Zeile schon bestimmt hast.
Gruß
yummi
AW: Mit mehreren Rows.Count Anzahl an Zeilen addieren?
12.07.2017 12:07:56
Max2
Hallo,
ohne deinen Code, kann man dir nur bedingt helfen.
Hier eine Mappe mit Beispiel Code: https://www.herber.de/bbs/user/114833.xlsm
Kommentare sind drinnen und erklären was passiert.
Der Code ist nur exemplarisch für das Problem und muss
auf deinen Code angepasst werden.
Hier nur Code:
Sub a()
Dim ws As Worksheet
Dim cRow As Long
Dim i As Long
Dim rng As Range
Set ws = ThisWorkbook.Sheets(1)
With ws
'//Letzte Zeile
cRow = .Cells(.Rows.Count, 1).End(xlUp).Row
'//Bereich der kopiert wird
Set rng = .Range(.Cells(1, 1), .Cells(cRow, 1))
rng.Copy
For i = 0 To 10
'//Alles einfügen und eine Zelle platz lassen
.Cells(cRow + 2, 1).PasteSpecial Paste:=xlPasteAll
'//Letzte Zelle neu berechnen
cRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Next i
'//kopierte Daten aus dem Zwischenspeicher entfernen
Application.CutCopyMode = False
End With
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige