Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren
11.04.2005 19:38:16
Frank
Hallo,
ich habe mal eine Makro siehe unten gefunden mit dem ich einen nicht zusammenhängenden Bereich in ein anderes Tabellenblatt kopieren kann was auch super geht, nun versuche ich aber diesen nicht zusammenhängen Bereich in eine andere Arbeitsmappe zu kopieren und bekomme das einfach nicht hin, kann mir da bitte einer einen Tipp geben wie ich das anstelle. 

Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("DATA")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Range("AA1,AC1,AC2,AC3,J2,J4,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,D23,G26,G27,G28,G29,G31,G32,G33,G34,AA7").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
Application.CutCopyMode = False
End Sub

Vielen Dank schon mal im Voraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich in andere Arbeitsmappe kopieren
11.04.2005 21:30:24
Ramses
Hallo
probier mal

Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("Tabelle1")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Range("AA1,AC1,AC2,AC3,J2,J4,G7:G18,D23,G26:G34,AA7").Cells
intCol = intCol + 1
rngAct.Copy Worksheets("Tabelle2").Cells(intRow, intCol)
Next rngAct
End With
Application.CutCopyMode = False
End Sub

Gruss Rainer
AW: Bereich in andere Arbeitsmappe kopieren
11.04.2005 21:38:40
Beni
Hallo Frank,
Gruss Beni

Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
Dim wb As Workbook
Set wb = Workbooks("Test.xls") ' anpassen
With wb.Worksheets("DATA")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Range("AA1,AC1,AC2,AC3,J2,J4,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,D23,G26,G27,G28,G29,G31,G32,G33,G34,AA7").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
End Sub

Anzeige
AW: Bereich in andere Arbeitsmappe kopieren
12.04.2005 09:16:04
Frank
Hallo Benni,
vielen Dank für Deine Hilfe funktioniert so auch prima wenn Test.xls schon geöffnet ist.
Nun möchte ich aber dies über einen CommandButton aufrufen und Test.xls soll geöffnet, Daten hineinkopiert, gespeichert und wieder geschlossen werden.
Gruß und Dank
Frank
AW: Bereich in andere Arbeitsmappe kopieren
13.04.2005 11:22:48
Beni
Hallo Frank,
Gruss Beni

Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
Dim actwb, wb As Workbook
Dim sPath, sFile As String
actwb = ActiveWorkbook.Name
sFile = "Test.xls" ' anpassen
sPath = ThisWorkbook.Path & "\" & sFile
Workbooks.Open sPath
ActiveWindow.ActivateNext
Set wb = Workbooks(sFile)
With wb.Worksheets("DATA")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Range("AA1,AC1,AC2,AC3,J2,J4,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,D23,G26,G27,G28,G29,G31,G32,G33,G34,AA7").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
wb.Close savechanges:=True
End Sub

Anzeige
AW: Bereich in andere Arbeitsmappe kopieren
15.04.2005 18:45:23
Frank
Hallo Benni,
ich bin begeistert funktioniert fantastisch wenn es jetzt noch gehen würde wenn
Test.xls gerade in Bearbeitung ist das dann die Speicherung in Test1.xls oder Test2.xls zu erfolgen hat wäre das natürlich das Sahnehäubchen vom ganzen.
Viele Grüße
Frank

305 Forumthreads zu ähnlichen Themen

Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Anzeige
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Datenübernahme in andere Arbeitsmappe
Uwe

Guten Morgen,
In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "...
13.03.2009 08:28:55
Thread-ID: 1059736
2 Beiträge
Anzeige
Zeilen in andere Arbeitsmappe lkopieren
jinx
Moin, Elmar,Du solltest den Bereich ansprechen, in den Du die Werte einfügen möchtest...Deine Schleife läuft bei mir bis ans Blattende - ich habe es mit folgendem Code getestet (hier werden die Zeilen im zweiten Blatt direkt untereinander geschrieben):

16.04.2002 20:42:49
Thread-ID: 113862
3 Beiträge
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Spalten in andere Arbeitsmappe kopieren
Olli

Hallo,
Ich bin absolut unerfahren im Umgang mit Excel und VBA. Jetzt steh ich vor einem Problem und komm nicht weiter.
Und zwar will ich über Formeln errechnete Werte durch ein Makro in eine andere Arbeitsmappe übertragen.
Hab im Forum zwar schon einen Ansatz gefunden, ich schaff es...
02.06.2010 15:58:25
Thread-ID: 1160038
6 Beiträge
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
Daten in Tabelle einer anderen Arbeitsmappe
Stefan

Hallo,
sorry, aber ich habe schon wieder ein Problem:
Nachfolgender Code wurde mir hier zur Verfügung gestellt und funktioniert auch. Nur hat sich jetzt an der Struktur der Zieltabelle etwas geändert. Private Sub CommandButton1_Click() Dim lRow As Long Dim sRow As Long Dim myWks As Str...
06.04.2011 22:11:52
Thread-ID: 1209357
14 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
1
3
2
1
5
7
13
1
9
1
8
2
1
6
2
2
1
15
12
6
5
1