VBA - Transponieren

Forumthread: VBA - Transponieren
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: VBA - Transponieren

VBA - Transponieren

08.01.2004 12:41:31

Exilunioner

Hallo Leute,
ich schreibe ein kleines Tool, bei welchem die Werte die untereinanderstehen in Zukunft nebeneinander stehen sollen.
Meine Lösung sieht wie folgt aus:
Range("A2:A51").Select
Selection.Copy
Range("C1:AZ1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Columns("A:A").Select
Selection.ClearContents
Im (F8) Debugger-Modus läuft es einwandfrei, jedoch im normalen Modus läuft es nicht.
Für Anregungen wäre ich dankbar.
bis dann
michael

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Transponieren

08.01.2004 13:05:26

PeterW
AW: VBA - Transponieren

08.01.2004 13:13:55

Exilunioner
Das Prob besteht nur auf Deinem Rechner (oT)

08.01.2004 13:17:50

Karl-Otto Reimann
AW: VBA - Transponieren

08.01.2004 13:19:26

PeterW

AW: VBA - Transponieren

08.01.2004 13:05:26

PeterW

Hallo Michael,
ohne Select funktioniert dies einwandfrei:


Sub transpo()
Range("A2:A51").Copy
Range("C1").PasteSpecial Paste:=xlAll, Transpose:=True
Columns("A:A").ClearContents
End Sub

Gruß
Peter

AW: VBA - Transponieren

08.01.2004 13:13:55

Exilunioner

Hallo Peter,
danke für den Hinweis, die Programmierung sieht besser als meine aus, leider funktioniert es nur im Debugger-Modus auf meinem Rechner.
bis dann
michael

Das Prob besteht nur auf Deinem Rechner (oT)

08.01.2004 13:17:50

Karl-Otto Reimann

AW: VBA - Transponieren

08.01.2004 13:19:26

PeterW

Hallo Michael,
der Code war getestet, schau mal hier:
https://www.herber.de/bbs/user/2832.xls
Es wäre hilfreich zu erfahren, was nicht funktioniert, Fehlermeldung, Abbruch??
Gruß
Peter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!