Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 08:12:13
VBA - Von Word Doc in Excel Sheet schreiben
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pastespecial

Forumthread: Pastespecial

Pastespecial
05.02.2003 08:21:47
Thomas
Hallo Leute,

ich hoffe Ihr könnt mir hierbei helfen! ich will mit dem Befehl pastespecial spalten aus z.B. Tabelle1 in Tabelle2 kopieren. Das krieg ich auch soweit alles hin, allerdings will ich die Werte und die Formate mitkopieren. Ich krieg aber immer nur eins von beidem hin.

Sub
.....
Selection.pastespecial paste:=xlFormats

End Sub

wie krieg ich da noch xlvalues unter????

Danke für Eure Hilfe
Thomas

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Pastespecial
05.02.2003 08:25:19
Knud

Hi Thomas,
lass es einfach 2x laufen... ein mal mit Werten, ein mal mit Formaten.

Gruß... Knud

Re: Pastespecial
05.02.2003 08:28:10
Thomas

.....hätte ich auch selbst drauf kommen können!!!

Super, danke!!!!!!!

Re: Pastespecial
05.02.2003 08:28:36
Hajo_Zi

Hallo Thomas

in VBA kan auf Select verzichtet werden.

Gruß Hajo

Anzeige
Re: Pastespecial
05.02.2003 08:42:48
Thomas

Hallo Hajo,

warum funktioniert das bei mir nicht??? Ich muss immer alles einzeln "selecten", damit sich was tut???? Der Code unten gibt bei mir eine Fehlermeldung

If y > 0 Then

kenn.Range(Cells(2, y), Cells(200, y)).Copy
Dim B As Integer
B = B + 1
Sheets("Einträge").Activate
Range(Cells(22, B + 4), Cells(220, B + 4)).PasteSpecial (xlPasteFormats)
Range(Cells(22, B + 4), Cells(220, B + 4)).PasteSpecial (xlPasteValues)

Columns(B + 4).Select
Selection.Columns.AutoFit
y = 0
Application.CutCopyMode = False
Else
End If


kenn ist bei mir ein vorher definiertes Sheet

Danke
Thomas

Anzeige
Re: Pastespecial
05.02.2003 08:54:07
Hajo_Zi

Hallo Thomas

setze meinen Code aus dem ersten Beitrag nur um

Gruß Hajo

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige