Office: Inhalte Einfügen VBA

Hallo alle zusammen,

Ich habe eine Frage: Wie kann ich denn nur die Inhalte einfügen anstatt meinen ganzen Bereich zu kopieren^^ wäre sehr dankbar über eine kurze Hilfe.

Bis jetzt sieht mein Code so aus:
Code:

allerdings habe ich hier in der spalte O ein Datum das mit HEUTE() beschrieben ist, und genau bei diesem möchte ich nur den Inhalt einfügen...

Allerdings wär es auch kein Problem, wenn ich den Inhalt von dem ganzen Zellenbereich einfügen kann.

Danke schon mal im Vorraus...

:)

 

Hallo Peete,

hier ein Beispiel : Bereich A4:N50 wird "normal" kopiert (also evtl. auch Formeln/Funktionen), Bereich O4:O50 wird per "Inhalte einfügen" übertragen :

VBA-Code:

Sub Schaltfläche1_KlickenSieAuf()     Dim lngZeile As Long     With Worksheets("Daten")         lngZeile = .Cells(Rows.Count, 1).End(xlUp) + 1         Worksheets("Eingabe").Range("A4:N50").Copy .Cells(lngZeile, 1) 'direkt kopieren         Worksheets("Eingabe").Range("O4:O50").Copy         .Cells(lngZeile, 15).PasteSpecial xlValues 'Werte einfügen     End With     Application.CutCopyMode = False End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

erstmal danke für die schnelle Antwort aber leider bekomme ich bei

lngZeile = .Cells(Rows.Count, 1).End(xlUp) + 1

eine Fehlermeldung. Laufeitfehler 13, Typen unverträglich

hab leider keine Ahnung an was dies liegen könnte. Vlt jemand nen Tip?

mfg

 

Hallo Pete,

das kann nur daran liegen, dass die Variable lngZeile falsch (oder gar nicht ?) deklariert ist !

Hast Du die Codezeile Dim lngZeile As Long mit in Deinen Code übernommen ?

Poste doch bitte mal Deinen gesamten Code oder hänge die Mappe als Beispiel an einen Beitrag an.

In meiner Mappe funktioniert das einwandfrei !

 

ok Asche auf mein Haupt... habe nochmal alles verglichen un nun kommt auch keine Fehlermeldung. Allerdings passiert auch kein Kopiervorgang, eigentlich sollten ja alle Daten von A4:O50 auf das zweite Tabellenblatt an die letzte Zeile angefügt werden, doch leider passiert nichts von dem...

bitte nochmals um Hilfe.

mfg

 

Hallo Peet,

...und wie DEIN Code aussieht, willst Du uns offenbar nicht verraten !?!?
Zumindest hast Du Deinen (fehlerhaften) Code trotz meiner Bitte nicht gepostet....

Ergo : Weiterhin "Asche auf DEIN Haupt" *grins

 

Ok aber ich streu se mir nich selber auf mein Haupt *wink.gif*

Code:

damit wir das auch haben *wink.gif*

denk doch das das der Gleiche ist wie deiner, deshalb habe ich Ihn nicht nochmal gepostet *wink.gif*

mfg

 

Moin Peet,

jetzt habe doch wieder ich den "schwarzen Pe(e)ter" *biggrin.gif*
Da ist mir doch tatssächlich irgendwo ein .Row verloren gegangen (Mea culpa !) :

lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1

Ich bitte vielmals um Entschuldigung, und bitte nicht zu viel Asche auf mein Haupt streuen (bin Nichtraucher !!)

 

alles klar *wink.gif* haben wir doch den Übeltäter gefunden xD

ne Spaß bei Seite, ich danke Dir vielmals für deine Mühe. Klappt alles wunderbar und auch genau so wie es seien soll!!

also nochmal:

DANKEEEEEEEEEE!!!!!!!!!!!!!!!