ich suche eure Hilfe, weil ich nicht mehr weiter weiß...
Also ich habe zwei Excelmappen.
Daten sollen von der einen in die andere Mappe kopiert werden, zwischendurch wird die Mappe geschlossen von der die Daten kopiert werden.
Funktioniert mit meinem VBA-Code auch super, aber das Zahlenformat der Zahlen in der Zielmappe ist dann zerstört und lässt sich nicht mehr herstellen!?!
Habt Ihr eine Idee?
Hier mein VBA-Code:
Sub BlattZuEingabe__DatenVonAndererTabelleHolenUndKopieren()
'sub1402
'mit Tastenkombination Strg+K ausführen
'funktioniert - aber keine Zahlenformate möglich
Dim Mappe As Workbook
Selection.CurrentRegion.Select
Selection.Copy
Application.DisplayAlerts = False
For Each Mappe In Application.Workbooks
If Mappe.Name ThisWorkbook.Name Then
Mappe.Close savechanges:=False
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = False
Sheets("Eingabe").Visible = True
Sheets("Eingabe").Select
Range("A3:F10000").Select
Selection.ClearContents
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
Sheets("zuEingabe").Select
Sheets("Eingabe").Visible = xlVeryHidden
Application.ScreenUpdating = True
Call PrüfenObZelleLeer
End Sub