Hallo,
wer kann mir helfen?
Ich habe ein Kalkulationsformular(Tabelle1) aus dem bestimmte Daten kopiert und auf diesen Blatt gesammelt werden. (Formatierung??)Diese Daten werden im Block in eine ander Mappe(Datensammlung) kopiert.(Formatierung??)
Bei den Formaten handelt es sich um Text,Zahl ohne Komma, Zahl mit Komma und Benutzerdefiniert "t="0,00"mm"
Die Formatierung ist wichtg da die Datensammlung in eine Text-Datei gewandelt wird, um die Daten in ein anders Programm zu importieren.
Ich glaube Value ist der springente Punkt.
schon mal Danke
Gruß
Ulle
Sub TESTGIVspeichern()
Dim verz, dname As String
verz = Cells(5, 7)
dname = Cells(6, 3) & ".xls"
'Achtung richtiges Laufwerk eintragen!!
'ActiveWorkbook.SaveAs Filename:=("G:\" & verz & "\" & dname) ', FileFormat:=xlNormal
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.SaveAs Filename:=("C:\" & verz & "\" & dname) ', FileFormat:=xlNormal
Application.ScreenUpdating = False
Range("B200").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("C6").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("C5").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("G5").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 1) = ActiveSheet.Range("C10").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 2) = ActiveSheet.Range("E10").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 3) = ActiveSheet.Range("C42").Value
ActiveSheet.Range("B30:B40").Copy
Range("b200").End(xlUp).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 4).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("b200").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("E60").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("B58").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = "."
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q128").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q129").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q130").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q131").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q132").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q133").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q134").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q135").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q136").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q137").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q138").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q139").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q140").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q141").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q142").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q143").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q144").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q145").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q146").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q147").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q148").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q149").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q150").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q151").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q152").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q153").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q154").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q155").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q156").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q157").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q158").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q159").Value
Range("B65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("Q160").Value
Cells(ActiveCell.Row + 2, ActiveCell.Column + 0) = ActiveSheet.Range("Q161").Value
Cells(ActiveCell.Row + 3, ActiveCell.Column + 0) = ActiveSheet.Range("Q162").Value
Cells(ActiveCell.Row + 4, ActiveCell.Column + 0) = ActiveSheet.Range("Q163").Value
ActiveSheet.Range("B128:P169").Copy
Windows("Datensammlung.xls").Activate
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A65536").End(xlUp).Select
Application.CutCopyMode = False
Range("a65536").End(xlUp).Select
Windows(dname).Activate
ActiveSheet.Range("B128:P169").Select
Selection.ClearContents
Application.CutCopyMode = False
Range("C5").Select
End Sub