Zellen kopieren und in bestimmtes Format bringen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Application.ScreenUpdating = False Columns(2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 2).Copy With Sheets(2).Cells(1, 1) .PasteSpecial Paste:=xlValues, Transpose:=True .PasteSpecial Paste:=xlFormats, Transpose:=True End With Columns(2).SpecialCells(xlCellTypeFormulas).ClearContents End Sub

Sub GanzOhneSchleifen() Const TabInput As String = "Tabelle1" Const TabOutput As String = "Tabelle3" Const AnzahlSpalten As Long = 2 Dim lRow As Long With Sheets(TabInput) lRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Spalte A bis zum Ende befüllt! .Range("A1").Resize(lRow, AnzahlSpalten).Copy End With With Sheets("Tabelle3") .Range("A1").PasteSpecial Transpose:=True .Columns("A:A").Insert Shift:=xlToRight .Range("A1:A" & AnzahlSpalten).FormulaR1C1 = "=row()" .Range("A1:A" & AnzahlSpalten).Value = .Range("A1:A" & AnzahlSpalten).Value .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("A1:A" & AnzahlSpalten), SortOn:=xlSortOnValues, Order:= _ xlDescending, DataOption:=xlSortNormal .Sort.SetRange .Range("A1").Resize(AnzahlSpalten, lRow) With .Sort .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With .Columns("A:A").Delete Shift:=xlToLeft End With End Sub

Sub aaa() Application.ScreenUpdating = False Columns(2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 2).Copy With Sheets(2) With .Cells(1, 1) .PasteSpecial Paste:=xlValues, Transpose:=True .PasteSpecial Paste:=xlFormats, Transpose:=True End With .Rows(2).Cut .Rows(1).Insert End With Columns(2).SpecialCells(xlCellTypeFormulas).ClearContents End Sub

Hallo Franz,
es ist müßig, wenn sich die Aufgabenstellung mittendrin ändert. Bereits erstellte Lösungen (die ja auch Zeit gekostet haben) wandern dann unbeachtet auf den Müll. Mir ist auch unverständlich, warum jemand eine Musterdatei hochlädt die elementar anders ist als sein Master.
In der Originaldatei befinden sich die Daten in Spalte 1 und 9.
Bevor ich jetzt weiter mache:
sind die Spalten IMMER 1 + 9 ? Und sind es IMMER 2 Spalten? Im ersten Posting hast du noch von variablen Spaltenanzahlen gesprochen, jetzt sind sie fix.
Falls es nicht immer 1+9 sind, woran "erkennt" man die zu verschiebenden Spalten?
Die Bereiche dazwischen sind immer leer? In der Musterdatei sind sie leer.
Die Spalten haben tatsächlich keine Überschriften?
Die seltsamen Formatierungen in Tabelle 2 (die nicht mit Tab1 übereinstimmen!!!) sind Teil der Aufgabe, oder egal?
Dass in deiner Musterdatei der Inhalt von Tab2 nichts mit dem von Tab1 transponiert zu tuen hat sondern völlig zufällig ist (und aus irgendeinem Grund in Spalte F anfängt statt in Spalte A) ist Absicht? Dass Zeile 2 versetzt zu Zeile 1 in G anfängt und "Löcher" hat auch?
Ohne zuverlässige Musterdatei erarbeite ich hier keine weitere Lösung, dafür ist mir meine Zeit zu schade! Es würde auch helfen, wenn du weniger abstrakte (A, 1) Inhalte verwendest. Vielleicht sogar die Inhalte aus deinem Master, falls die nicht ganz geheim sind? Wenn wir verstehen was du bezwecken möchtest, ist es vielleicht einfacher über die vielen Logikfehler in der Aufgabenstellung und Musterdatei zu steigen.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Zellen kopieren und in bestimmtes Format bringen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen kopieren und in bestimmtes Format bringen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread