Office: (Office 2010) VBA Werte & Format Kopieren in neues Workbook

aoro01234 · 7. August 2016

Hallo @all,

ich habe folgenden Code:

Code:

If blnFirst Then
Tabelle16.Range("C4").Value = strEmail
Tabelle16.Range("C5").Value = strKST
Tabelle16.Copy
Set wkbNew = ActiveWorkbook
wkbNew.Worksheets(1).Name = strKST
blnFirst = False
Else
With wkbNew
Tabelle16.Range("C4").Value = strEmail
Tabelle16.Range("C5").Value = strKST
Tabelle16.Copy After:=.Sheets(.Sheets.Count)
.Worksheets(.Worksheets.Count).Name = strKST
End With
End If

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

Hier werden Variablen in Tabelle 16 kopiert & dann Tabelle 16 in ein neues Workbook

Folgendes Problem habe ich jetzt aber:

In meiner Tabelle 16 sind Formel die sich ändern .. leider wird nun in das neue Workbook nur die Formeln übernommen.
Ich möchte aber das die Werte übernommen werden nicht die Formeln... zusätzlich dazu sollte das Format von meiner Quelle (Tabelle 16) übernommen werden.

Danke schon mal für die Hilfe *Smilie

:)

RPP63 · 8. August 2016

Moin!
Im If-Teil:
Code:

If blnFirst Then
Tabelle16.Range("C4").Value = strEmail
Tabelle16.Range("C5").Value = strKST
Tabelle16.Copy
Set wkbNew = ActiveWorkbook
With wkbNew.Worksheets(1)
.Name = strKST
.UsedRange.Copy: .cells(1).PasteSpecial xlPasteValues
End With
blnFirst = False
Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

aoro01234 · 9. August 2016

Hallo Ralf,

danke für den Code er geht soweit(fast )

Hab nur ein Problem das die Zahlen und die Formatierung nicht übernommen werden. (Siehe Word )

aoro01234 · 9. August 2016

Habe aktuell noch keine Lösung für mein Problem gefunden :/

RPP63 · 9. August 2016

Moin!
Keine Ahnung, was Du da machst.
Code:

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

erstellt eine identische Kopie des Blatts mit dem CodeName Tabelle16 in eine neue Datei.
Dabei bleiben alle Formatierungen erhalten.

Zeig mal Deine Datei (anonymisiert?).
Natürlich als .xlsm

Gruß Ralf

aoro01234 · 9. August 2016

Guten Morgen,

habe das ganze nun so fast gelöst :

Code:

If blnFirst Then

Tabelle16.Range("C3").Value = strEmail
Tabelle16.Range("C4").Value = strKST
Tabelle16.Range("B2:G33").Value = Range("B2:G33").Value
Tabelle16.Copy
Set wkbNew = ActiveWorkbook
wkbNew.Worksheets(1).Name = strKST
blnFirst = False
Else
With wkbNew
Tabelle16.Range("C3").Value = strEmail
Tabelle16.Range("C4").Value = strKST
Tabelle16.Copy After:=.Sheets(.Sheets.Count)
.Worksheets(.Worksheets.Count).Name = strKST
End With
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe jetzt " Tabelle16.Range("B2:G33").Value = Range("B2:G33").Value" eingefügt.
Wie kann ich den das .Value wieder umkehren das die Formel in jeder Zelle steht ?

RPP63 · 9. August 2016

Ich hatte Dir in #2 einen funktionierenden Code gepostet.
Warum der bei Dir nicht funktionieren sollte, kann ich nur anhand einer Datei sehen.
Dein "von hinten durch die Brust ins Auge" ist …
Wenn Dein Bereich erst in B2 beginnt, dann so:
Code:

If blnFirst Then
With tabelle16
.Range("C4").Value = strEmail
.Range("C5").Value = strKST
.Copy
End With
With ActiveSheet
.Name = strKST
.Cells(2, 2).CurrentRegion.Copy
.Cells(2, 2).PasteSpecial xlPasteValues
End With
blnFirst = False
Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

RPP63 · 9. August 2016

Nochmal überarbeitet, da Deine Tabelle nicht den Grundsätzen einer ordnungsgemäßen Liste entspricht:
Code:

If blnFirst Then
With Tabelle16
.Range("C4").Value = strEmail
.Range("C5").Value = strKST
.Copy
End With
With ActiveSheet
.Name = strKST
.Range("B2:G33").Value = .Range("B2:G33").Value
End With
blnFirst = False
Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Info zu einer korrekten Liste findest Du hier:
Online - Excel: Listen (Tabellen)

Gruß Ralf

aoro01234 · 9. August 2016

Hallo Ralf,

ich kann dir meine Datei leider nicht senden deswegen versuche ich mal die Situation zu beschreiben:

Durch das eintragen der KST in der Tabelle16 werden anhand von S-Verweisen Daten aus anderen Tabellen gezogen und in die Tabelle16 eingetragen.
Das Ergebnis soll dann in eine neue Datei kopiert werden.
Das funktioniert auch soweit ABER mit der Funktion .Copy kopiert er nur die Formel und nicht die Ergebnisse.

Code:

If blnFirst Then

Tabelle16.Range("C3").Value = strEmail
Tabelle16.Range("C4").Value = strKST
Tabelle16.Range("B2:G33").Value = Range("B2:G33").Value
Tabelle16.Copy
Set wkbNew = ActiveWorkbook
wkbNew.Worksheets(1).Name = strKST
blnFirst = False
Else
With wkbNew
Tabelle16.Range("C3").Value = strEmail
Tabelle16.Range("C4").Value = strKST
Tabelle16.Copy After:=.Sheets(.Sheets.Count)
.Worksheets(.Worksheets.Count).Name = strKST
End With
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit ist der Fehler fast behoben ABER jetzt werden die Formeln in Tabelle16 überschrieben mit den Werten der ersten KSt die eingetragen wird ... und wenn nun eine weitere KST eingetragen wird passiert nichts (logisch ohne Formel) es wird nur KST und EMail geändert.

Ich hoffe es ist so verständlicher.

RPP63 · 9. August 2016

Da Du meinen obigen Code #8 offensichtlich nicht ausprobieren willst, bin ich raus!
Wenn Du Deine Datei nicht anonymisieren kannst/willst, brauchst Du auch keine weitere Hilfe zu erwarten.

Vorschlag zur Güte:
Probiere #8 aus und melde Dich noch mal.

Gruß Ralf

aoro01234 · 9. August 2016

Hallo,

den Code den du mir bei #8 geschickt hast bringt mir Folgenden Fehler:

Codezeile :

Code:

Tabelle16.Copy after:=.Sheets(.Sheets.Count)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Laufzeitfehler "91":

Objektvariable oder With-Blockvariable nicht festgelegt.

Vorher hat diese Zeile aber funktioniert ?

RPP63 · 9. August 2016

Ohne weiteren Text, ist lesenswert:
Upload nicht möglich | Excel ist sexy!

Gruß Ralf

aoro01234 · 9. August 2016

Hoffe das hilft dir

aoro01234 · 11. August 2016

Hier der fertige Code mit dem das geht:

Code:

If blnFirst Then

Tabelle16.Range("C4").Value = strEmail
Tabelle16.Range("C5").Value = strKST
Tabelle16.Range("B2:G33").Value = Range("B2:G33").Value
Range("B3:G33").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Set wkbNew = ActiveWorkbook
wkbNew.Worksheets(1).Name = strKST
Workbooks("Kopie von SAP User PROD3.xlsm").Activate
Sheets("Übersicht Backup").Select
Range("B3:G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übersicht").Select
Range("B3").Select
ActiveSheet.Paste
blnFirst = False
Else
With wkbNew

Tabelle16.Range("C4").Value = strEmail
Tabelle16.Range("C5").Value = strKST
Tabelle16.Range("B2:G33").Value = Range("B2:G33").Value
Range("B3:G33").Select
Selection.Copy
wkbNew.Activate
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = strKST
Workbooks("Kopie von SAP User PROD3.xlsm").Activate
Sheets("Übersicht Backup").Select
Range("B3:G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Übersicht").Select
Range("B3").Select
ActiveSheet.Paste
End With
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook

VBA Werte & Format Kopieren in neues Workbook - Similar Threads - VBA Werte Format

VBA Code ohne ergebnis

VBA Code Anpassen "Wert Einfügen statt Formel"

Werte per VBA automatisch übertragen und fortlaufend speichern

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Pluszeichen bei pos. Werten mit benutzerdef. Formaten in markiertem Bereich voranstellen

Zeilen mit bestimmten Wert in andere Tabelle (VBA Makro)

Sperren von Zellen basierend auf Werten in einer anderen Zelle