Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aus Zusammenfassung in verschiedene Tabellenblätter kopieren
zurück: Chart Problem : unerwünschte Reihe enthalten,woher? weiter: dreimal "if" Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ein Gastnoob
Gast


Verfasst am:
04. Feb 2011, 16:28
Rufname:

Aus Zusammenfassung in verschiedene Tabellenblätter kopieren - Aus Zusammenfassung in verschiedene Tabellenblätter kopieren

Nach oben
       Version: Office 2003

Hallo Zusammen,
ich habe ein Tabellenblatt, in das per Button aus ca. 100 anderen Blättern eine Zusammenfassung entsteht. Nun möchte ich das Prinzip umkehren. Ich möchte, das per Knopdruck die Daten zurück in die entsprechenden Tabellenblätter zurückkopiert werden. So können Änderungen in der Zusammenfassung gemacht werden und die anderen Tabellenblätter quasi aktualisiert werden. Mein bisheriger Ansatz:
Dim j As Integer
Dim mop As Worksheet




For Each mop In Worksheets

j = Worksheets("Zusammenfassung").Range("A10000").End(xlUp).Row + 1
If Worksheets("Zusammenfassung").Cells(j, 24) = mop.Name Then
Worksheets("Zusammenfassung").Cells(j, 1).Copy Destination:=mop.Range("c2")
Worksheets("Zusammenfassung").Cells(j, 2).Copy Destination:=mop.Range("c4")
Worksheets("Zusammenfassung").Cells(j, 3).Copy Destination:=mop.Range("c5")
Worksheets("Zusammenfassung").Cells(j, 4).Copy Destination:=mop.Range("c8")
Worksheets("Zusammenfassung").Cells(j, 5).Copy Destination:=mop.Range("c9")
Worksheets("Zusammenfassung").Cells(j, 6).Copy Destination:=mop.Range("c10")
Worksheets("Zusammenfassung").Cells(j, 7).Copy Destination:=mop.Range("c11")
Worksheets("Zusammenfassung").Cells(j, 8).Copy Destination:=mop.Range("c12")
Worksheets("Zusammenfassung").Cells(j, 9).Copy Destination:=mop.Range("c13")
Worksheets("Zusammenfassung").Cells(j, 10).Copy Destination:=mop.Range("c14")
Worksheets("Zusammenfassung").Cells(j, 11).Copy Destination:=mop.Range("c15")
Worksheets("Zusammenfassung").Cells(j, 12).Copy Destination:=mop.Range("c16")
Worksheets("Zusammenfassung").Cells(j, 13).Copy Destination:=mop.Range("c17")
Worksheets("Zusammenfassung").Cells(j, 14).Copy Destination:=mop.Range("c18")
Worksheets("Zusammenfassung").Cells(j, 15).Copy Destination:=mop.Range("c19")
Worksheets("Zusammenfassung").Cells(j, 16).Copy Destination:=mop.Range("c20")
Worksheets("Zusammenfassung").Cells(j, 17).Copy Destination:=mop.Range("c21")
Worksheets("Zusammenfassung").Cells(j, 18).Copy Destination:=mop.Range("c22")
Worksheets("Zusammenfassung").Cells(j, 19).Copy Destination:=mop.Range("c23")
Worksheets("Zusammenfassung").Cells(j, 20).Copy Destination:=mop.Range("c24")
Worksheets("Zusammenfassung").Cells(j, 21).Copy Destination:=mop.Range("c25")
Worksheets("Zusammenfassung").Cells(j, 22).Copy Destination:=mop.Range("c26")
Worksheets("Zusammenfassung").Cells(j, 23).Copy Destination:=mop.Range("c27")
Else
End If
Next mop

Er soll im Prinzip das zugehörige Tabellenblatt finden und dann die Werte hineinkopieren.
Besten Dank schon mal an alle die mir helfen können.
MFG
St.
Gast



Verfasst am:
06. Feb 2011, 21:24
Rufname:


AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi - AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi

Nach oben
       Version: Office 2003

Hi,

wenn ich deinen Codeschnipsel richtig verstehe, hast du in der ersten leeren Zeile der Spalte A der Tabelle "Zusammenfassung" den Namen der Tabelle in Spalte x stehen, in die du die Werte aus eben jener Zeile, Spalte A -Spalte W wieder "zurückkopieren" willst.
Damit ist denn aber auch Schluß oder stehen dann in den Folgezeilen ggfs weitere Tabellennamen???

in deinem geposteten code mußt du zumindest hinter destination:= worksheets(mop.name).Range.... einfügen, um zumindest das erste Tabellenblatt abzuarbeiten.

Darüber hinaus gehört noch eine Prüfung zu for each mop in worksheets dazu, die das Sheet "Zusammenfassung" unberücksichtigt läßt.

Am besten, du lädst einen Teil deines sheets Zusammenfasssung hoch.

Grüßli
ein Gastnoob
Gast


Verfasst am:
07. Feb 2011, 17:47
Rufname:

AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi - AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi

Nach oben
       Version: Office 2003

Hallo,

also in Spalte 24 jeder Zeile stehen die einzelnen Namen der Tabellenblätter und in den Spalten davor die Daten der einzelnen Tabellenblätter. Er soll quasi für jede Zeile zu Spalte 24 (Name) das zugehörige Tabellenblatt finden und dann die anderen Zellen der Zeile hineinkopieren.

Bspw. Wenn Zeile (irgentwas) Spalte 24 gleich Tabellenblattname dann kopiere.
nächste zeile, wenn Zeile (irgentwas+1) Spalte 24 gleich...

Hatte es mittlerweile mit zweimal (mop, j als range) "for each next" versucht
aber irgentwie noch nicht hinbekommen

Hoffe so ist es verständlicher
Gruß
St.
ein Gastnoob
Gast


Verfasst am:
08. Feb 2011, 17:41
Rufname:

AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi - AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi

Nach oben
       Version: Office 2003

So, ich komme der Lsg immer näher, habe jetzt als code:

for each zeile in worksheets
j = worksheets("Zusammenfassung").range("a1").end(xldown).row + 1
for each mop in worksheets

if worksheets("Zusammenfassung").cells(j,24) = mop.name then
.
.
.
else
end if
next mop
next zeile

Er kopiert jetzt die erste Zeile in das entsprechende Tabellenblatt, aber geht die nächste zeile nicht durch bzw kopiert diese nicht mehr.
Falls jemand weiter weiß, schon einmal danke
St.
ein Gastnoob
Gast


Verfasst am:
08. Feb 2011, 17:58
Rufname:

AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi - AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi

Nach oben
       Version: Office 2003

Hab die Lsg gefunden,

j = ... vor das "for each zeile..." gezogen und zwischen next mop und next zeile einfach: j = j + 1 gesetzt, schon funktioniert es.
hab gleich schluss, werde morgen mal den vollständigen code posten, für alle die es interessiert.
Gruß
St.
ein Gastnoob
Gast


Verfasst am:
21. Feb 2011, 17:31
Rufname:


AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi - AW: Aus Zusammenfassung in verschiedene Tabellenblätter kopi

Nach oben
       Version: Office 2003

Hallo zusammen,
ich war noch den kompletten Code schuldig, also für alle, die das selbe Problem mal haben.

Application.ScreenUpdating = False

Dim j As Integer
Dim mop As Worksheet

If MsgBox("Die Tabellenblätter wirklich anpassen?", vbInformation + vbYesNo) = vbYes Then

On Error GoTo verdammt
j = Worksheets("Zusammenfassung").Range("A1").End(xlDown).Row + 1
For Each zeile In Worksheets

For Each mop In Worksheets


If Worksheets("Zusammenfassung").Cells(j, 24) = mop.Name Then
Worksheets("Zusammenfassung").Cells(j, 1).Copy
mop.Range("c2").PasteSpecial Paste:=xlPasteValues
Worksheets("Zusammenfassung").Cells(j, 2).Copy
mop.Range("c4").PasteSpecial Paste:=xlPasteValues
.
.
.
Worksheets("Zusammenfassung").Cells(j, 23).Copy
mop.Range("c27").PasteSpecial Paste:=xlPasteValues
If Worksheets("Zusammenfassung").Cells(j, 25) <> "" Then
mop.Name = Worksheets("Zusammenfassung").Cells(j, 25)
Else: End If

Else
End If
Next mop
j = j + 1
Next zeile
Application.ScreenUpdating = True

End
verdammt:
MsgBox ("Excel sagt: Hm, ein Fehler, P(Excel-Fehler=0,000001%), P(Anwender-Fehler=99,999999%) Fazit: Anwender-Fehler: Überprüfe mal deinen neuen Tabellennamen. Also, keine Dopplung, keine Sonderzeichen, nur max 31 Zeichen, Ok?!")

Else
End If

Gruß
St.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel in Schritten Kopieren 1-2-3-Frei-4-5-6-Frei 15 Gast 1295 20. Sep 2005, 09:40
Gast Formel in Schritten Kopieren 1-2-3-Frei-4-5-6-Frei
Keine neuen Beiträge Excel Formeln: Hilfe! Zelleninhalte in andere Tabellen kopieren. 2 erdboy 1490 17. Sep 2005, 13:25
Gast Hilfe! Zelleninhalte in andere Tabellen kopieren.
Keine neuen Beiträge Excel Formeln: Verschiedene Versteuerungen - was für eine Formel benutzen? 1 gino 1095 15. Aug 2005, 18:35
etron795 Verschiedene Versteuerungen - was für eine Formel benutzen?
Keine neuen Beiträge Excel Formeln: Datum aus Steuerelment Kombinationsfeld in Zelle kopieren? 2 lemmi-g 675 02. Aug 2005, 19:18
Loomex Datum aus Steuerelment Kombinationsfeld in Zelle kopieren?
Keine neuen Beiträge Excel Formeln: Runden über Tabellenblatt kopieren 2 CK_one_Gast 1489 27. Jul 2005, 10:01
CK_one_Gast Runden über Tabellenblatt kopieren
Keine neuen Beiträge Excel Formeln: "Auto"-Zusammenfassung 2 Jens-man 1180 27. Jun 2005, 12:14
Jens-man "Auto"-Zusammenfassung
Keine neuen Beiträge Excel Formeln: Verknüpfte Tabellenblätter 1 Melsta 583 22. Jun 2005, 14:33
Willie Verknüpfte Tabellenblätter
Keine neuen Beiträge Excel Formeln: Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren! 1 8Ball 1994 02. Jun 2005, 14:42
mruettler Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren!
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Muß Daten kopieren mit Bezug auf mehrer Zeilen 3 Anke 1487 07. Apr 2005, 10:54
Anke Muß Daten kopieren mit Bezug auf mehrer Zeilen
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2731 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum