Liebe Community...
ich habe eine copy paste Problematik... weiß aber eigentlich nicht warum...
es soll etwas in ein anderes tabellenblatt, das neu erstellt wird "zwischenkopiert" werden und dann von dort wieder später ins alte Arbeitsblatt zurückkopiert werden...
mit all den Formatierungen (auch Spaltenbreiten....)
habe mir Haltepunkte gesetzt um zu schauen.. ob Excel tatsächlich das in das "Zwischenarbeitsblatt" einfügt... weil... kopieren tut ers... (also es ist im speicher dann vorhanden... -> habe ich geprüft, da ich an dieser stelle händisch, pers maus eingefügt habe...) aber, Excel selbst, fügt es dann mit PasteSpecial nicht ein!! und ich weiß nicht warum...
mein code:
Könnt ihr mir da vl. weiterhelfen?? woran könnte das liegen?
Vielen Dank,
LG Tim
ich habe eine copy paste Problematik... weiß aber eigentlich nicht warum...
es soll etwas in ein anderes tabellenblatt, das neu erstellt wird "zwischenkopiert" werden und dann von dort wieder später ins alte Arbeitsblatt zurückkopiert werden...
mit all den Formatierungen (auch Spaltenbreiten....)
habe mir Haltepunkte gesetzt um zu schauen.. ob Excel tatsächlich das in das "Zwischenarbeitsblatt" einfügt... weil... kopieren tut ers... (also es ist im speicher dann vorhanden... -> habe ich geprüft, da ich an dieser stelle händisch, pers maus eingefügt habe...) aber, Excel selbst, fügt es dann mit PasteSpecial nicht ein!! und ich weiß nicht warum...
mein code:
Visual Basic-Quellcode
- Private Sub CommandButton1_Click()
- Dim wksa As Worksheet
- Dim wksn As Worksheet
- Set wksa = Worksheets("6 - Gesamt-Bestellungen") 'Active Worksheet entspricht "Tabelle1"
- Set wksn = Worksheets.Add(After:=Worksheets("Tabelle1"))
- wksn.Name = "Zwischenablage"
- wksa.Select
- wksa.Range("AF2:AG32").Copy
- wksn.Select
- wksn.Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- wksa.Select
- CODE DAZWISCHEN.... andere Sachen werden ausgeführt...
- wksn.Select
- wksn.Range("A1:B31").Copy
- wksa.Select
- wksa.Range("AF2").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Application.CutCopyMode = False
- Application.DisplayAlerts = False 'Fehlermeldungen (Abfrage ob Tabellenblatt wirklich gelöscht werden soll) werden deaktiviert
- 'wksn.Delete '"Hilfstabellenblatt" wird gelöscht
- 'Application.DisplayAlerts = True
- 'wksa.Select
- 'Range("AF2").Select
- End Sub
Könnt ihr mir da vl. weiterhelfen?? woran könnte das liegen?
Vielen Dank,
LG Tim