Thema Datum  Von Nutzer Rating
Antwort
Rot Transpose Makro
29.06.2016 15:19:38 sunny
NotSolved
29.06.2016 16:15:51 Gast8197
NotSolved
30.06.2016 13:07:27 sunny
NotSolved

Ansicht des Beitrags:
Von:
sunny		 Datum:
29.06.2016 15:19:38		 Views:
1314		 Rating:
     
Antwort:
  Ja
Thema:
Transpose Makro

Hi, ich hoffe jemand kann mir weiterhelfen.

Ich habe mit der Makro Aufzeichnungs Funktion ein Makro welches an sich perfekt funktioniert. Das einzige Problem ist, das es nicht dynamisch ist. Heißt, wenn ich ein Arbeitsblatt transponieren will welches mehr Zeilen hat als in dem aufgezeichneten Makro, dann wird natürlich nur ein Teil transponiert.

Wie kann ich das im Code umsetzten dass das Makro automatisch weiter ausführt bis die letzte Zeile erreicht wird? Oder das ich nur angeben muss von Zeile 2 bis x jeweils alle 15 Zeilen transponieren.

Aktuell siehts eben so aus.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Range("E2:E17").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("xy_a_Transp").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
ActiveWindow.SmallScroll Down:=93
Range("D110").Select
Sheets("xy_a").Select
ActiveWindow.LargeScroll ToRight:=-8
ActiveWindow.SmallScroll Down:=6
Range("E18:E33").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("xy_a_Transp").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
ActiveWindow.SmallScroll Down:=108
Range("D218").Select
Sheets("xy_a").Select
ActiveWindow.LargeScroll ToRight:=-8
ActiveWindow.SmallScroll Down:=15

Alles manuel sozusagen. Deswegen sind die Scroll Kommandos auch drin.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Transpose Makro
29.06.2016 15:19:38 sunny
NotSolved
29.06.2016 16:15:51 Gast8197
NotSolved
30.06.2016 13:07:27 sunny
NotSolved