@fcs: Datenexport in anderes Tabellenblatt
23.05.2018 10:41:52
arek
auf meinen Beitrag (Ich habe einen Button mit einem Macro programmiert, welcher mir wenn man ihn drückt das Tabellenblatt kopiert und dieses in einem Ordner mit "Monat/Jahresangabe" abspeichert und zwar unter dem Dateinamen mit "Name Tabellenblatt/Datum". Jetzt würde ich gerne das Macro noch um folgendes ergänzen: Wenn der Button gedrückt wird, soll nachwievor die Kopie des Tabellenblattes erstellt werden und gleichzeitig soll aber Zelle IM11 in ein Tabellenblatt "Overview" in Zelle B3 gespeichert werden (dieses Tabellenblatt ist Teil eines Excelsheets auf meinem Desktop)...Hat hierzu jemand eine Idee?Vielen Dank!!) vom 09.05.2018 hast du mit folgenden Code geantwortet:
Option Explicit
' Button drücken und Excelsheet erstellen
Private Sub CommandButton1_Click()
Dim sWBName As String
Dim SubPathName As String
Dim NewWBName As String
Dim sh As Shape, lX As Long
GetMoreSpeed True
SubPathName = "\" & Format(Cells(1, 1), "MMMM YYYY") & "\"
NewWBName = Me.Name & "_" & Cells(1, 1).Text & ".xlsx"
UsedRange.Copy
MakeSureDirectoryPathExists (ThisWorkbook.Path & SubPathName)
Workbooks.Add
With ActiveWorkbook
With .Worksheets(1)
.Name = Me.Name
.Cells(1, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
.Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths
' Diagramme auch übernehmen
On Error Resume Next
For Each sh In Me.Shapes
If Left(sh.Name, 6) = "Chart " Then
sh.Copy
.PasteSpecial Format:="Bild (GIF)", Link:=False, DisplayAsIcon:=False
Do While Err.Number 0
Application.Wait (Now + TimeValue("0:00:01"))
Err.Clear
.PasteSpecial Format:="Bild (GIF)", Link:=False, DisplayAsIcon:=False
Loop
lX = lX + 1
.Shapes(lX).Left = sh.Left
.Shapes(lX).Top = sh.Top
End If
Next sh
On Error GoTo 0
Application.CutCopyMode = False
Call subSaveIM11(.Range("IM11").Value) '### neu ####
End With
Application.DisplayAlerts = False
Do While .Worksheets.Count > 1
.Worksheets(2).Delete
Loop
Application.DisplayAlerts = True
sWBName = ThisWorkbook.Path & SubPathName & NewWBName
.SaveAs sWBName
.Close
End With
Application.CutCopyMode = False
MsgBox "Daten gespeichert unter" & vbCrLf & _
sWBName, vbOKOnly + vbInformation
GetMoreSpeed False
End Sub
Dim wkbOverview As Workbook
Set wkbOverview = Application.Workbooks.Open(Filename:="C:\Users\arek\Desktop\Beispiel.xlsx")
wkbOverview.Worksheets("Overview").Range("B3").Value = varIM11
wkbOverview.Close savechanges:=True
End Sub Dieser funktioniert auch einwandfrei. Jetzt hätte ich gerne noch folgende Ergänzungen und hoffe du könntest mir nochmals weiterhelfen:
Ich würde gerne die Zellen IM11, IM19, IM24, IM29 in das Tabellenblatt "Overview" in dem Excel Sheet auf dem Desktop speichern und zwar IM11 in Spalte A, IM19 in Spalte B, IM24 in Spalte C und IM29 in Spalte D. Dabei soll bei jedem Drücken des Buttons dann eine neue Zeile entstehen, wo die entsprechenden Daten aus den vier Zellen übertragen werden und zu sehen sind.
Ist das realisierbar? Vielen Dank nochmal für deine Hilfe!