Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Text aus anderem Tabellenblatt an bestimmter Stell einfügen
zurück: Bedingte Formatierung für Excel 2003 weiter: Daten suchen und zuordnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
loopsy
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Jun 2010, 14:08
Rufname:

Text aus anderem Tabellenblatt an bestimmter Stell einfügen - Text aus anderem Tabellenblatt an bestimmter Stell einfügen

Nach oben
       Version: Office 2007

Hallo

Aus einem Hilfstabellenblatt möchte ich ausgewählte Daten aus mehreren
Spalten in das Haupttabellenblatt per Makro kopieren.

Dazu setze ich den Cursor an die gewünschte Stelle und starte das Makro:

Code:
Sub Makro7()
'
' Makro7 Makro
'

'
    Sheets("Hilfstabelle").Select
    Range("A2:B61").Select
    Selection.Copy
    Sheets("Haupttabelle").Select
    Set Position = Selection
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-6
    Sheets("Hilfstabelle").Select
    Range("E2:F61").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Haupttabelle").Select
    ActiveWindow.SmallScroll Down:=9
    Range("G2481").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=39
End Sub



Mein Problem ist nun, daß ich den Inhalt aus der zweiten Kopieraktion (Range("E2:F61").Select) zwar in meinem Beispiel an "G2481" kopiert habe,
ich es aber eigentlich dynamisch an die Position 4 Spalten NEBEN der ursprünglichen
Curserposition kopiert haben muss.

Oder einfacher ausgedrückt:

Bereich 1 an Cursurposition kopieren,
Bereich 2 in die 4. Spalte rechts neben der Cursorposition
Bereich 3 in die 6. Spalte rechts neben.....usw.

Wie bekomme ich das hin ?

DANKE !!
Nicolaus
Hobby-VBAler


Verfasst am:
30. Jun 2010, 14:59
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: Text aus anderem Tabellenblatt an bestimmter Stell einfü - AW: Text aus anderem Tabellenblatt an bestimmter Stell einfü

Nach oben
       Version: Office 2007

Hi,

probiers mal so:
Code:
Sub Makro7()
    Dim Position As Range
    Set Position = ActiveCell
   
    Sheets("Hilfstabelle").Range("A2:B61").Copy
    Position.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Sheets("Hilfstabelle").Range("E2:F61").Copy
    Position.Offset(0, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Gruss
Nic

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


Verfasst am:
02. Jul 2010, 22:51
Rufname:


AW: Text aus anderem Tabellenblatt an bestimmter Stell einfü - AW: Text aus anderem Tabellenblatt an bestimmter Stell einfü

Nach oben
       Version: Office 2007

Offset....coole funktion, funktioniert ! Danke !
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: Formulartextfelderinhalt per Button in anderes Tabellenblatt 3 Blubberbernd 1232 10. Apr 2005, 10:49
fl618 Formulartextfelderinhalt per Button in anderes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Excel Daten in Word an eine bestimmte stelle einfügen 7 Anne 2260 04. März 2005, 13:10
The BOO-M-AN Excel Daten in Word an eine bestimmte stelle einfügen
Keine neuen Beiträge Excel Formeln: Zeile einfügen mit Formel oder Makro? 2 original-m 2246 21. Feb 2005, 08:09
original-m Zeile einfügen mit Formel oder Makro?
Keine neuen Beiträge Excel Formeln: einfügen 5 traum1954 817 18. Feb 2005, 23:38
traum1954 einfügen
Keine neuen Beiträge Excel Formeln: unterscheidung zwischen text und zahlen in einer Zelle 5 hmmmmm??? 1166 02. Feb 2005, 12:13
hmmmmm??? unterscheidung zwischen text und zahlen in einer Zelle
Keine neuen Beiträge Excel Formeln: WENN DANN mit Text und Zahlen.... 2 Gast 1978 11. Jan 2005, 16:06
pega_de WENN DANN mit Text und Zahlen....
Keine neuen Beiträge Excel Formeln: Nur addieren wenn ein bestimmter Wert in einer Bereich 4 Aloha 2956 18. Nov 2004, 22:44
Aloha Nur addieren wenn ein bestimmter Wert in einer Bereich
Keine neuen Beiträge Excel Formeln: Bestimmter Zeileninhalt in eine andere Zeile kopieren 2 Gast 2585 04. Nov 2004, 14:52
jpx10 Bestimmter Zeileninhalt in eine andere Zeile kopieren
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: Namen mit HLOOKUP (VERWEIS) in ein anderes Sheet einfügen 2 Aloha 917 03. Okt 2004, 08:08
Aloha Namen mit HLOOKUP (VERWEIS) in ein anderes Sheet einfügen
Keine neuen Beiträge Excel Formeln: E2k: Zählen bei bestimmter Hintergrundfarbe 22 SAMsTag 2751 16. Aug 2004, 13:07
SAMsTag E2k: Zählen bei bestimmter Hintergrundfarbe
Keine neuen Beiträge Excel Formeln: Extrahieren von Text bis zum ersten Semikolon einer Zelle 8 Gast 2949 13. Jul 2004, 18:59
Arnim Extrahieren von Text bis zum ersten Semikolon einer Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen