Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
untereinander kopieren funktioniert nicht?
zurück: Spreadsheets mit deutschen Trennzeichen weiter: Schleife um Ordner zu erstellen 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
xlPaula
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2013, 16:14
Rufname:

untereinander kopieren funktioniert nicht? - untereinander kopieren funktioniert nicht?

Nach oben
       Version: Office 2010

Hallöchen,

mit dem nachfolgenden Code soll der Bereich A4:I365 (Blatt "DBint") innerhalb einer Schleife kopiert und auf dem Blatt "ACC" untereinander eingefügt werden.

Leider werden die kopierten bereiche nicht untereinander angefügt sondern immer über den selben Bereich eingefügt.

Woran kann das liegen?

LG, Paula Smile


Code:
Sub DatenInDB()

Dim ID As Integer
Dim Spalte As Integer
Dim LZeile As Long

For ID = 1 To 3
   
   With Range("A2")
    .Value = ID
   End With

        For Spalte = 6 To 11
             
            With Range("B2")
            .Value = Spalte
            End With
   
                LZeile = Sheets("ACC").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)
                Worksheets("DBint").Range("A4:I365").Copy
                Sheets("ACC").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
               
                With Application
                .CutCopyMode = False
                End With

        Next Spalte

Next ID

End Sub


Die Variablen ID und Spalte sind Bestandteile der Formeln im Bereich der kopiert werden soll.
Nicolaus
Hobby-VBAler


Verfasst am:
22. Jan 2013, 17:44
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: untereinander kopieren funktioniert nicht? - AW: untereinander kopieren funktioniert nicht?

Nach oben
       Version: Office 2010

Hi,

bei deinem Cells fehlt die Tabellenbezeichnung
Zitat:
LZeile = Sheets("ACC").Range("A" & Sheets("ACC").Cells(Rows.Count, 1).End(xlUp).Row)
Worksheets("DBint").Range("A4:I365").Copy
Sheets("ACC").Range("A" & Sheets("ACC").Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues

aber das sollte auch reichen:
Code:
                LZeile = Sheets("ACC").Cells(Rows.Count, 1).End(xlUp).Row
                Worksheets("DBint").Range("A4:I365").Copy
                Sheets("ACC").Range("A" & LZeile + 1).PasteSpecial Paste:=xlValues


Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
xlPaula
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jan 2013, 11:25
Rufname:


AW: untereinander kopieren funktioniert nicht? - AW: untereinander kopieren funktioniert nicht?

Nach oben
       Version: Office 2010

Hallo Nic,

vielen Dank und liebe Grüße!

Paula Smile
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: Woran liegt es, dass GLÄTTEN bei mir nicht funktioniert? 6 landau666 1646 04. Sep 2005, 06:55
rainberg Woran liegt es, dass GLÄTTEN bei mir nicht funktioniert?
Keine neuen Beiträge Excel Formeln: Relativer Zellbezug - Kopieren in andere Bereiche 5 Ralf123 1458 18. Aug 2005, 18:14
fridgenep Relativer Zellbezug - Kopieren in andere Bereiche
Keine neuen Beiträge Excel Formeln: Fußzeile in mehrere Exceldateien kopieren oder übergeben ... 2 nugget 1453 02. Aug 2005, 10:53
nugget Fußzeile in mehrere Exceldateien kopieren oder übergeben ...
Keine neuen Beiträge Excel Formeln: kmpl. Zeilen aus mehrere Tab. in neue Tab. kopieren wenn.... 2 maddoc 1470 11. Jul 2005, 18:08
maddoc kmpl. Zeilen aus mehrere Tab. in neue Tab. kopieren wenn....
Keine neuen Beiträge Excel Formeln: errechneten Wert aus Zelle kopieren? 2 Markus_H 1755 06. Jul 2005, 10:25
Markus_H errechneten Wert aus Zelle kopieren?
Keine neuen Beiträge Excel Formeln: DRINGEND. Formel funktioniert nur wann sie Lust hat 5 molan 521 01. Jun 2005, 21:01
molan DRINGEND. Formel funktioniert nur wann sie Lust hat
Keine neuen Beiträge Excel Formeln: IF Verschachtelungen >7 und wie funktioniert vlookup 9 Karlito 3544 20. Mai 2005, 15:26
Gast IF Verschachtelungen >7 und wie funktioniert vlookup
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: Trotz Add-In funktioniert Funktion EDATUM nicht 5 vhet (A2K) 6316 28. Apr 2005, 20:24
Frank vhet Trotz Add-In funktioniert Funktion EDATUM nicht
Keine neuen Beiträge Excel Formeln: Zelle vergleichen und dann andere Zellen kopieren?? 7 Aleks 2283 27. März 2005, 21:59
ae Zelle vergleichen und dann andere Zellen kopieren??
Keine neuen Beiträge Excel Formeln: 2 Exel Spalten automatisch in eine kopieren 3 Steffen 2231 04. März 2005, 08:09
steffen 2 Exel Spalten automatisch in eine kopieren
Keine neuen Beiträge Excel Formeln: Autoausfüllen bzw. Kopieren von Zellen mit Formeln 3 UnitedBlue 1585 23. Feb 2005, 18:08
The BOO-M-AN Autoausfüllen bzw. Kopieren von Zellen mit Formeln
 

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