AW: Zellenwerte in neuer Datei speichern
15.06.2016 10:30:53
Daniel
Hi
das funktioniert auch ohne Schleife.
am einfachsten ist folgende Vorgehensweise:
1. neue Datei erstellen
2. werte, die in die CSV sollen, per Copy-Paste (ggf mit Transpose) in die neue Datei übertragen
3. neue Datei als CSV speichern.
Sub test()
Dim rngPos As Range
Dim rngGrp As Range
Dim rngBet As Range
Dim rngAng As Range
Dim wb As Workbook
With ActiveSheet
Set rngGrp = .Cells.Find(what:="Gruppe", Lookat:=xlWhole)
Set rngPos = .Cells.Find(what:="Pos.", Lookat:=xlWhole)
Set rngBet = .Cells.Find(what:="Betrag", Lookat:=xlWhole)
Set rngAng = .Cells.Find(what:="Angebot Nr.:", Lookat:=xlWhole)
End With
Set rngGrp = Range(rngGrp.Offset(0, 1), rngGrp.End(xlToRight))
Set rngPos = Intersect(rngPos.EntireRow, rngGrp.EntireColumn)
Set rngBet = Intersect(rngBet.EntireRow, rngGrp.EntireColumn)
With Workbooks.Add(xlWBATWorksheet)
With .Sheets(1)
rngAng.Copy
.Cells(1, 1).Resize(rngGrp.Cells.Count).PasteSpecial xlPasteValues
rngPos.Copy
.Cells(1, 2).PasteSpecial xlPasteValues, Transpose:=True
rngGrp.Copy
.Cells(1, 3).PasteSpecial xlPasteValues, Transpose:=True
rngBet.Copy
.Cells(1, 4).PasteSpecial xlPasteValues, Transpose:=True
End With
.SaveAs Filename:="hier dein Dateinname ohne Dateiendung", FileFormat:=xlCSV, local:=True
.Close False
End With
End Sub
ist jetzt nicht getestet, weil ich dein Bild nicht per Copy-Paste nach Excel übertragen kann und ich das nicht nochmal abschreiben will.
Gruß Daniel