04.01.2015, 19:23
Hallo
ich möchte Zellen mit einen bestimmten Text Transponieren. Mit der ganzen Zeile oder einzelnen Zellen klappt es. Es sind aber (schon sortiert) mehrere Zellen mit gleichen Inhalt. Wie kann ich die nebeneinder liegenden Zellen zum Transponieren markieren ?
Für einen Tip schon mal Danke
---------------------------------------------------------------------
Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
photo Raute_zps3ee56209.jpg
[Bild: smilie.php?smile_ID=1810]
ich möchte Zellen mit einen bestimmten Text Transponieren. Mit der ganzen Zeile oder einzelnen Zellen klappt es. Es sind aber (schon sortiert) mehrere Zellen mit gleichen Inhalt. Wie kann ich die nebeneinder liegenden Zellen zum Transponieren markieren ?
Für einen Tip schon mal Danke
---------------------------------------------------------------------
Code:
Sub Makro2()
Dim zeLLe As Range, Bereich As Range
Cells.Find(What:="ab", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Copy
ActiveCell.Offset(0, -21).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells.Find(What:="yz", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Copy
ActiveCell.Offset(0, -21).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
photo Raute_zps3ee56209.jpg
[Bild: smilie.php?smile_ID=1810]