Einträge von einer Zeile mit mehreren Spalten Spalten mit mehreren Zeilen zuordnen.

Hallo Stefan,



irgendwie war ich noch nicht richtig wach. Es geht auch in einer Schleife:



Sub ZeileZuSpalte()

Dim RowsC As Long

Dim i As Integer

Dim j As Integer

With Sheets("Tabelle1")

RowsC = .Cells(.Rows.Count, 1).End(xlUp).Row

j = 1

For i = 2 To RowsC

Sheets("Tabelle2").Cells(j, 1).Resize(4, 1) = .Cells(i, 1)

Sheets("Tabelle2").Cells(j, 3).Resize(4, 1) = _

WorksheetFunction.Transpose(.Cells(i, 2).Resize(, 4))

Sheets("Tabelle2").Cells(j, 2).Resize(4, 1) = _

WorksheetFunction.Transpose(.Cells(1, 2).Resize(, 4))

j = j + 4

Next

End With

End Sub



Mit freundlichen Grüßen

Claus

Hi Claus,

vielen vielen Dank!!!! Funktioniert super!!!!

Stefan.

Hallo Stefan,



deine Quelldaten in Tabellenblatt1, die transponierte Tabelle in Tabellenblatt2 (Sonst Blattnamen anpassen):



Sub ZeileZuSpalte()

Dim RowsC As Long

Dim i As Integer

Dim j As Integer

With Sheets("Tabelle1")

RowsC = .Cells(.Rows.Count, 1).End(xlUp).Row

j = 1

For i = 2 To RowsC

Sheets("Tabelle2").Cells(j, 1).Resize(4, 1) = .Cells(i, 1)

Sheets("Tabelle2").Cells(j, 2).Resize(4, 1) = _

WorksheetFunction.Transpose(.Cells(1, 2).Resize(, 4))

j = j + 4

Next

j = 1

For i = 2 To RowsC

Sheets("Tabelle2").Cells(j, 3).Resize(4, 1) = _

WorksheetFunction.Transpose(.Cells(i, 2).Resize(, 4))

j = j + 4

Next

End With

End Sub



Mit freundlichen Grüßen

Claus

ich habe für mehrere Spalten eine Dropdownliste erstellt, so dass die jeweiligen Einträge entweder in zeile A, B oder C usw. eingetragen werden können. Jetzt möchte ich nach den Einträgen so filtern, dass alle Zeilen sichtbar bleiben, die den Eintrag
in einer der Spalten führen. Wie mache ich das?

Ich versteh nur Bahnhof. Könntest Du bitte ein Beispieldatei hochladen?

Andreas.

Hallo Corinna,

angenommen Spalte A hat mehr Einträge und geht bis Zeile 20, Spalte B nur bis 10. Dann markiere die Spalte A => Bedingte Formatierung => Formel zur Ermittlung.... und gebe folgende Formel ein:

=ZÄHLENWENN($B$1:$B$10;A1)=0

und weise einen farbigen Hintergrund zu.

Damit werden dir alle Zahlen, die in Spalte B fehlen eingefärbt.

Sollte Spalte B mehr Einträge haben, markiere Spalte B und stelle die Formel entsprechend um.

Claus