Office: (Office 2010) Kopieren nur mit Inhalt ohne Formatierung via VBA

SileNT443 · 24. Juli 2014

Ich hab da schon was hinbekommen :P
Ob es elegant gelöst ist weiß ich nicht xD

Liste kopiert und Liste2 erstellt
VBA Code für Sortieren in Liste 2 gelöscht.
Änderbare Inhalte von Liste werden über eine "wenn" Abfrage in Liste2 abgeglichen.
und folgenden Code mit dem Makro-Recorder aufgenommen, um die Formatierung zu übertragen von Liste2 zu Liste.

Sub Makro2()
'
' Makro2 Makro
'

'
Sheets("Liste2").Select
Range("D11:AH26").Select
Selection.Copy
Sheets("Liste").Select
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Liste2").Select
Range("A1").Select
Sheets("Liste").Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist für nur für den Januar und funktioniert bis jetzt tadellos.
Muss ich jetzt das Makro für jeden Monat kopieren und die Bereiche anpassen oder gibt es da was eleganteres ?
Achja wie geht das das der das beim Schließen und Speichern das Makro durchführt ?

Mc Santa · 24. Juli 2014

Hallo,

der aufgenommene Code ist schon gut, aber du solltest diesem immer noch aufbereiten und Select/Activate eliminieren.
Etwa so:
Code:

Sub Makro2()

Sheets("Liste2").Range("D11:AH26").Copy
Sheets("Liste").Range("D11").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG

Mc Santa · 24. Juli 2014

Hallo,

kopiere einmal das folgende Makro in das Modul "DieseArbeitsmappe" und ergänze noch die Bereiche für Monate Mrz - Dez.
Das Makro wird immer vor dem Schließen der Datei ausgeführt (Du kannst auch auf das X klicken und dann abbrechen, das Makro wurde dann schon ausgeführt)
Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim arStrBer, i As Integer
arStrBer = Array("D11:AH26", "D32:AH47")

For i = LBound(arStrBer) To UBound(arStrBer)

Sheets("Liste2").Range(arStrBer(i)).Copy
Sheets("Liste").Range(arStrBer(i)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next i
Application.CutCopyMode = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hilft dir das weiter?

VG

SileNT443 · 25. Juli 2014

Gerade etwas weniger Zeit :P
Hab jetzt erstmal den März noch hinzugefügt funktioniert genau so wie ich es mir vorstelle ! Besten Dank !

Eine kleinigkeit habe ich noch :P
Wenn das Makro ausgeführt wurde ich die Datei also geschlossen habe.
Das beim wieder öffnen kein Bereich (oder nur A1) markiert ist ?
Weil beim öffnen jetzt der letzte übertragene Bereich markiert ist und ich schiss habe das dann aus versehen einer mehr löscht ^^
Ich würde einfach am ende des Makro folgendes einfügen:

Range("A1").Select
Sheets("Liste").Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum sollte man das eliminieren ?
Zu mächtig oder ?

Mc Santa · 25. Juli 2014

Hallo,

am Ende eines Makros kannst du solche Befehle nutzen, in genau dieser Situation machen sie auch Sinn.
Du solltest Select vermeiden, wenn du erst ein Blatt selektierst. dann einen Bereich selektierst und dann die Selektion kopierst. Du solltest stattdessen den Bereich auf dem Blatt direkt kopieren. Macht das für dich Sinn? *Smilie

Nutze zum Verschieben der Nutzeransicht am besten folgenden Code:
Code:

Application.Goto Sheets("Liste").Range("A1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG

SileNT443 · 25. Juli 2014

Hallo

Japs, hab ich verstanden *mrcool *Smilie
Und es funktioniert *tongue.gif*
Vielen Dank für deine Mühe *Smilie
Ich melde mich natürlich falls es irgendwie Fehler geben sollte.^^

Schönes Wochenende !

Office: (Office 2010) Kopieren nur mit Inhalt ohne Formatierung via VBA

Kopieren nur mit Inhalt ohne Formatierung via VBA

Kopieren nur mit Inhalt ohne Formatierung via VBA

Kopieren nur mit Inhalt ohne Formatierung via VBA

Kopieren nur mit Inhalt ohne Formatierung via VBA - Similar Threads - Kopieren Inhalt Formatierung

VBA: 2 Tabellenblätter Inhalte kopieren und in eine Excelmappe einfügen und als .xlsm speichern

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Zeile mit weniger Inhalt in andere Spalte kopieren

Inhalte vertikal kopieren

[EILT] Bestimmte Inhalte einer Zelle in eine andere Zelle kopieren und die Anzahl ausrechnen

Inhalt einer formatierten Tabelle kopieren

rechte Zelle kopieren wenn Zelle bestimmten Inhalt hat