Datenfelden in Excel auf Seite schreiben.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub transp() Dim lngC As Long, arrA, rng As Range, ii As Long lngC = Cells(1, Columns.Count).End(xlToLeft).Column arrA = Application.Transpose(Cells(1, 1).Resize(, lngC)) For Each rng In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1) ii = ii + 1 Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "Vorgang" & ii Cells(1, 1).Resize(lngC) = arrA Cells(1, 2).Resize(lngC) = Application.Transpose(rng.Resize(, lngC)) Next rng End Sub

Sub transp() Dim lngC As Long, rngA As Range, rng As Range, ii As Long lngC = Cells(1, Columns.Count).End(xlToLeft).Column Set rngA = Cells(1, 1).Resize(, lngC) For Each rng In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1) ii = ii + 1 Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "Vorgang" & ii rngA.Copy Cells(1, 1).PasteSpecial xlPasteAll, Transpose:=True rng.Resize(, lngC).Copy Cells(1, 2).PasteSpecial xlPasteAll, Transpose:=True Cells(1, 2).Select Next rng Application.CutCopyMode = False End Sub

Danke,
also, Du kannst Dich doch sicher noch an Dein Beispiel erinnern, wo die Datensätze von Queerformat in Längsformat auf jeweils ein Scheet pro datensatz) geschrieben wurden:


Sub transponieren()
Dim lngC As Long, rngA As Range, rng As Range, ii As Long
lngC = Cells(1, Columns.Count).End(xlToLeft).Column
Set rngA = Cells(1, 1).Resize(, lngC)
For Each rng In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1)
ii = ii + 1
Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "Vorgang " & ii
rngA.Copy
Cells(1, 1).PasteSpecial xlPasteAll, Transpose:=True
rng.Resize(, lngC).Copy
Cells(1, 2).PasteSpecial xlPasteAll, Transpose:=True
Cells(1, 2).Select
Next rng
Application.CutCopyMode = False
End Sub

Bevor ich nun ausführlich dauf eingehe, vorab die Frage: wäre es möglich, wenn ich in meine bestehende Mappe sozusagen ein Template einzufügen, (wo schon die ganzen Formatierungen drauf sind), dass sich der Code, bevor er ein neues Sheet anlegt, sich praktisch das Template als Vorlage holt, die Daten da reinkopiert und als neues Sheet ("Vorgang 01") abspeichert. Sich für den nächsten Datensatz wieder das Template holt und die nächsten daten abspeichert..u.s.w
Ich hoffe Du verstehtst, was ich meine.
Wenn Du die Frage mit Ja beantworten kannst, schreibe ich Dir genau, um was es geht.
Gruss
Joachim

Option Explicit Sub transp() Dim lngC As Long, rngA As Range, rng As Range, ii As Long lngC = Cells(1, Columns.Count).End(xlToLeft).Column Set rngA = Cells(1, 1).Resize(, lngC) For Each rng In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1) ii = ii + 1 Worksheets("Muster").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = "Vorgang" & Format(ii, " 00") rngA.Copy Cells(1, 1).PasteSpecial xlPasteValues, Transpose:=True rng.Resize(, lngC).Copy Cells(1, 2).PasteSpecial xlPasteValues, Transpose:=True Cells(1, 2).Select Next rng Application.CutCopyMode = False End Sub

Hallo Erich,
Hui, das geht ja prima. Ich wollte Dir aber noch kurz was erklären, auf was ich hinaus wollte:
das mit dem Mitnehmen der Vorlage aus dem Muster-Tabellenblatt funktioniert je schon. Ich wollte dich fragen, wie kann ich die Anordung der Felder , bzw das Ziel, wo die Daten reingeschrieben werden sollen, selbst bestimmen.
Ich habe Dir Dein Beispiel noch mal verändert und ist hier dabei. Schau Dir bitte noch mal das MUSTER Tabellenblatt an.
https://www.herber.de/bbs/user/53755.xls
mir wäre es lieb, wenn die Daten nicht einfach beginnend von der ersten Spalte und Zeile nacheinander eingetragen werden, sondern dass ich selbst Bestimmen kann, wohin die daten geschrieben werden.
So soll z.B. der Inhalt ID immer in die Zelle C/ geschrieben werden (siehe rote Felder in der xls) und die Einträge aus der Spalte Code sollen immer nach G11 geschrieben werden.
Wie muss ich das machen ? So wäre mein Template sehr flexibel und ich könnte es schön gestalten. Bei ca. 20 Spalten, die ich nachher habe, könnte ich die Datenfelder schön anordnen.
Könntest Du mir bitte noch EINMAL zeigen, was ich da ändern muss.
Danke
Gruss
Joachim

Option Explicit Sub transp() Dim rng As Range, lngC As Long lngC = Cells(1, Columns.Count).End(xlToLeft).Column For Each rng In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1) Worksheets.Add after:=Sheets(Sheets.Count) Range(Cells(1, 1), Cells(lngC, 1)) = Application.Transpose(rng.Resize(, lngC)) Next rng End Sub

Beliebteste Forumthreads (12 Monate)

Datenfelden in Excel auf Seite schreiben.

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread