speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: speichern

07.11.2005 10:25:46

Erich

AW: speichern

07.11.2005 10:53:18

lisa

AW: speichern

07.11.2005 12:11:01

Erich

AW: speichern

07.11.2005 13:18:59

lisa

AW: speichern

07.11.2005 13:47:35

Erich

AW: speichern

07.11.2005 15:15:29

lisa

AW: speichern

07.11.2005 17:44:13

Erich

AW: speichern

07.11.2005 18:16:34

lisa

AW: speichern

07.11.2005 19:42:38

lisa

AW: speichern

07.11.2005 22:59:54

Erich

AW: speichern

08.11.2005 07:12:31

lisa

AW: speichern

08.11.2005 08:12:58

Erich

es funktioniert. danke recht herzlich! oT. lisa

08.11.2005 08:24:34

lisa

Danke für Info - aber: nicht mehr offen! (oT)

08.11.2005 09:31:34

Erich

Sub KopieMehrfach() Dim wb As Workbook, rng As Range, iRowZ As Integer ' neue Mappe anlegen Set wb = Workbooks.Add(xlWBATWorksheet) iRowZ = 1 ' Quellmappe aktivieren ThisWorkbook.Activate With wb.Sheets(1) ' Schleife über Bereiche For Each rng In Selection.Areas rng.Copy Destination:=.Cells(iRowZ, 1) iRowZ = iRowZ + rng.Rows.Count Next rng End With ' Quellmappe aktivieren wb.Activate ' aufräumen Set wb = Nothing Set rng = Nothing End Sub

hallo und Endschuldigung
aber ich habe nicht daran gedacht, dass ihr gar nicht wissen könnt was ich vor habe.
Endschuldigung.
Also zu meinem ersten Problem, in meiner Tabelle, in der auch mein Button ist, gebe ich Daten ein.
Da die Cellen die ich kopieren will nicht angrenzend sind, kann ich dem Recorder nicht sagen nimm zum Beispiel, a1 und a10 und c2 und kopiere die Inhalte, sondern ich kann nur Bereiche auswählen, jedenfalls mit meiner Version.
Nun habe ich noch eine zweite Tabelle, die als Datenbank dienen soll, in die dann diese Daten gespeichert werden sollen.
Wenn ich aber mit dem Recorder aufzeichne kann ich immer nur eine Celle aktivieren und nicht sagen beim nächsten mal bitte Zeile 1 dann bitte zeile 2 dann 3 usw.
Naja, das ist der Code vom Recorder, aber der Hilft hicht wirklich weiter, oder?
Wenn du/ihr nicht zu verärgert bist/seid, vieleicht könntest du/ihr es ja noch einmal versuchen.
Range("A1:C10").Select
Selection.Copy
ChDir "C:\Dokumente und Einstellungen\lisa\Desktop"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\lisa\Desktop\Datenbank.xls"
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
End Sub
mfG. lisa

Sub KopieMehrfach() Dim wb As Workbook, rng As Range, iRowZ As Integer ' Zielmappe öffnen Set wb = Workbooks.Open(Filename:= _ "C:\Dokumente und Einstellungen\lisa\Desktop\Datenbank.xls") With wb.Worksheets(1) ' erste freie Zeile des Zielblatts iRowZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Quellmappe aktivieren ThisWorkbook.Activate ' Schleife über Bereiche For Each rng In Selection.Areas rng.Copy Destination:=.Cells(iRowZ, 1) iRowZ = iRowZ + rng.Rows.Count Next rng End With ' Zielmappe schließen+sichern wb.Close SaveChanges:=tru ' Werte im selektierten Bereich löschen Selection.ClearContents ' aufräumen Cells(1, 1).Select Set wb = Nothing Set rng = Nothing End Sub

Hallo Lisa,
mit deinem Beispiel wurde es schon deutlicher.
Du willst also die zu kopierenden Bereiche in "Datenbank.xls" nebeneinander haben. Das ist klar, wenn die Bereiche wir im Beispiel jeweils aus einer Zelle bestehen, und auch dann noch, wenn jeder Bereich mehrere Spalten, aber nur eine Zeile umfasst (z. B. C3:F3).
Wenn ein Bereich mehrere Zeilen hat (z. B. A3:A5 oder C3:F7), werden "Datenbank.xls" auch mehrere Zeilen verbraucht.
Welche Bereiche kopiert werden sollen, kannst du jetzt im Makro bei den Vorgaben festlegen. Dort bestimmst du auch, ob nur Werte (mit PasteSpecial) oder auch Formate und Formeln (normales Copy) kopiert werden sollen.


Sub KopieListeBereiche()
Dim wb As Workbook, anzRg As Integer, rng() As Range, ii As Integer
Dim iRow As Long, iCol As Integer, mitFormaten As Boolean
'  #################################################  Vorgaben Anfang
anzRg = 3
ReDim rng(1 To anzRg) ' muss so bleiben
Set rng(1) = [A1]
Set rng(2) = [A10]
Set rng(3) = [c2]
mitFormaten = False
'  #################################################  Vorgaben Ende
'                                            Zielmappe öffnen
Set wb = Workbooks.Open(Filename:= _
"C:\Dokumente und Einstellungen\lisa\Desktop\Datenbank.xls")
With wb.Worksheets(1)
'                                      erste freie Zeile des Zielblatts
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
While WorksheetFunction.CountBlank(.Rows(iRow)) < Columns.Count
iRow = iRow + 1
Wend
'                                      Quellmappe aktivieren
ThisWorkbook.Activate
'                                      Kopieren in ... ab Spalte A
iCol = 1
'                                      Schleife über Bereiche
For ii = 1 To anzRg
If mitFormaten Then
rng(ii).Copy Destination:=.Cells(iRow, iCol)
Else
rng(ii).Copy
.Cells(iRow, iCol).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
iCol = iCol + rng(ii).Columns.Count
'                                   Werte in Quellbereich löschen
rng(ii).ClearContents
Set rng(ii) = Nothing
Next ii
Application.CutCopyMode = False
End With
'                                            Zielmappe schließen+sichern
wb.Close SaveChanges:=True
'                                            aufräumen
Cells(1, 1).Select
Set wb = Nothing
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread