mit VBA aus anderen Tabellen kopieren

Hallo EXCEL-Experten,
ich brauche eure Hilfe!!!
Ich will gern über einen BUTTON bestimmte Zellbereiche aus verschiedenen Tabellen mit verschiedenen Tabellenblättern kopieren.
BUTTON 1
--------
Aus der Tabelle "Labor- Rea 2006 NEU.xls" im Tabellenblatt "GiSu-Schl 2006" möchte ich die Zeilenbereiche E3:E367, G3:G367, I3:I367, J3:J367, K3:K367, L3:L367, M3:M367, N3:N367 und O3:O367 (=Quellbereich in der Reihenfolge wie ich ihn aufgeschrieben habe)
kopieren in die Tabelle "REA Bilanz 2006.xls" ins Tabellenblatt "Tmw PE 1-9" in den Zellbereich DO7:DO371, DO:DQ371, DS7:DS371, EC7:EC371, EE7:EE371, DU7:DU371, DW7:DW371, DY7:DY371 und EA7:371EA. (=Zielbereich in der Reihenfolge wie ich ihn aufgeschrieben habe).
Außerdem will ich über einen weiteren Button aus der Tabelle "REA Bilanz 2006" in die Tabelle "REA Bilanz 2006 SAVE" bestimmte Daten überschreiben bzw. eintragen lassen (Wichtig! Ich darf hier keine Formeln übernehmen, sondern nur die Werte!).
BUTTON 2
--------
Quelle Tabelle: REA Bilanz 2006.xls
Quelle Tabellenblätter: Tmw 1-126, Tmw 127-252, Tmw 253-378, Tmw 379-502 und Tmw 503-590
Quellbereich der Tabellenblätter nach obiger Reihenfolge: C7:IP371, C7:IP371, C7:IP371, C7:IP371 und C7:FV371
Ziel Tabelle: REA Bilanz 2006 SAVE.xls
Quelle Tabellenblätter: Tmw 1-126, Tmw 127-252, Tmw 253-378, Tmw 379-502 und Tmw 503-590
Quellbereich der Tabellenblätter nach obiger Reihenfolge: C7:IP371, C7:IP371, C7:IP371, C7:IP371 und C7:FV371
Wie müßte der VBA CODE dafür ausschauen? BIN FÜR JEDE HILFE SUPER DANKBAR!!!
Mfg,
Ein nach Hilfe SUCHENDER EXCEL USER!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ronny!
Hier ne kleien Musterlösung, aber unvollständig. Die Bereiche mußt du halt fortsetzen.
Du mußt halt hier deinen Pfad verändern und die Lösung funktioniert dann, wenn dein Button in der Datei "REA Bilanz 2006.xls", die als ThisWorkbook auftaucht, ist.Hier werden nur die Werte importiert/kopiert. Keine Formeln.Wenn du auch die Formeln kopieren willst, mußt du .Values einfach weglassen.


Private Sub CommandButton38_Click()
Dim DateiName As Variant
Dim Quelldatei As String
Dim Frage As String
Rem Dateiname der zugehörigen Präsentation bestimmen
DateiName = 'Z.B.' "C:\Labor- Rea 2006 NEU.xls"
Frage = MsgBox("Wollen Sie wirklich neue Daten exportieren? Alle bestehenden Daten werden aktualisiert!", [vbYesNo])
If Frage = vbNo Then
Exit Sub
Else
Workbooks.Open DateiName
Quelldatei = ActiveWorkbook.Name
ThisWorkbook.Worksheets("Tmw PE 1-9").Range("DO7:DO371").Value = _
Workbooks(Quelldatei).Worksheets("GiSu-Schl 2006").Range("E3:E367").Value
ThisWorkbook.Worksheets("Tmw PE 1-9").Range("DQ7:DQ371").Value = _
Workbooks(Quelldatei).Worksheets("GiSu-Schl 2006").Range("G3:G367").Value
ThisWorkbook.Worksheets("Tmw PE 1-9").Range("DS7:DS371").Value = _
Workbooks(Quelldatei).Worksheets("GiSu-Schl 2006").Range("I3:I367").Value
ThisWorkbook.Worksheets("Tmw PE 1-9").Range("EC7:EC371").Value = _
Workbooks(Quelldatei).Worksheets("GiSu-Schl 2006").Range("J3:J367").Value
etc.
Workbooks(Quelldatei).Close
End If
End Sub

Gruß Martin

Beliebteste Forumthreads (12 Monate)

mit VBA aus anderen Tabellen kopieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit VBA aus anderen Tabellen kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread