|
Autor
|
Thema: VBA Daten kopieren/Einfügen (38827 mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3358
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 09. Aug. 2006 12:29  <-- editieren / zitieren -->   Unities abgeben:          
Servus Hab mir ein Excelsheet geschrieben mit Daten, Import u. Aufbereitung 740kb - 1,0MB. mein Vorhaben
2 Sheet´s erstellen
1. Sheet mit den Daten "Daten"
2. Sheet und Import u. Aufbereitung "System" Über Makroaufzeichnug hab ich mir folgendes gemacht.
- Einfügebereich wird "gesäubert"
- System öffnen
- über "externe Daten importieren" Daten importieren
- Auswahl wird gefilter
- Zellen werden kopiert
- System schliessen ohne Speichern
- in Daten die Zellen einfügen
- Fertig
Mein Problem Beim System schliessen gehen Info der kopierten Zellen verloren , so dass ich beim einfügen der Zellen nur Texte habe und die Formeln das falsche Ergebniss liefern.
Leider passiert das nur mit dem aufgezeichneten VBA-Makro, kann mir jemand helfen?
Die Daten hat einen Variablen Namen
Code:
Sub Import_Gel_3DPL()
Application.ScreenUpdating = False
Range("B6:C201").Select
Selection.ClearContents
Workbooks.Open Filename:= _
"C:\Programme\AutoCAD 2004 VZ\Excel\LS_Gelände_Sys.xlt", Origin:=xlWindows
Sheets("Import").Select
Range("B6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
Range("F6:G28").Select
Selection.Copy
Workbooks("LS_Gelände_Sys.xlt").Close SaveChanges:=False
Range("B6").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("B6").Select
End Sub
------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier Meine Lösungsvorschlag
- Daten in Variable speichern
- Einfügebereich wird "gesäubert"
- System öffnen
- über "externe Daten importieren" Daten importieren
- Auswahl wird gefilter
- Zellen werden kopiert
- zu Daten zurückkehren
- in Daten die Zellen einfügen
- System schliessen ohne Speichern
- Fertig
[Diese Nachricht wurde von Bernd P am 09. Aug. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
Beiträge: 3358
Registriert: 07.06.2001
|
erstellt am: 09. Aug. 2006 13:22 <-- editieren / zitieren --> Unities abgeben:
|
Thomas Harmening
Moderator
Arbeiter ツ
    
Beiträge: 2897
Registriert: 06.07.2001 Das Innerste geäussert
und aufs Äusserste verinnerlicht
|
erstellt am: 09. Aug. 2006 13:38 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P 
Zitat:
Original erstellt von Bernd P:
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
hmmm, erzwingst du nicht mit PasteSpecial Format:="Text" das Textformat? Ansonsten nimm nur Code:
ActiveSheet.Paste 'ist wie STRG&V
oder wenn die HerkunftWerte aus Formel herkommen Code:
Selection.PasteSpecial Paste:=xlPasteValues 'einfügen - Werte only
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
Beiträge: 3358
Registriert: 07.06.2001
|
erstellt am: 09. Aug. 2006 14:43 <-- editieren / zitieren --> Unities abgeben:
Ja hab es mit Variablen geschafft ----- Dim WB As Workbook WBname = ThisWorkbook.Name 'hole Workbooknamen ------ Workbooks(WBname).Activate 'zurück ------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
