Thema Datum  Von Nutzer Rating
Antwort
Rot  Kleine Codeergänzung Zellen Kopieren/Transponieren
22.07.2014 23:27:31 Alex_1982
NotSolved
23.07.2014 23:26:31 Gast94057
NotSolved
23.07.2014 23:48:10 Gast98099
NotSolved

Ansicht des Beitrags:
Von:
Alex_1982
Datum:
22.07.2014 23:27:31
Views:
1123
Rating: Antwort:
  Ja
Thema:
Kleine Codeergänzung Zellen Kopieren/Transponieren

Hallo,

ich hoffe Ihr könnt mir vba Anfänger bei dieser kleinen Aufgabe helfen. Ich habe schon angefangen.

So wie unten zu sehen, wird und soll im Tabellenblatt "Quelldaten" ein Bereich von A1:A31 kopiert und in Tabellenblatt "Zieldaten" transponiert in die erste Zeile eingefügt werden. Dies funktioniniert soweit. Ich würde diese Vorgang jetzt gerne wiederholen, also das wieder aus Tabellenblatt "Quelldaten" jetzt die Zeilen A32:A62 kopiert und in die zweite Zeile in Tabelllenblatt "Zieldaten" transponiert eingefügt werden. Dies könnte zB bis Zeile 1000 in den Quelldaten geschehen oder bis keine Werte mehr in den zu kopierenden Zellen sind, das is egal. Vielen Dank schon einmal.

 

Code: Alles auswählen
Option Explicit

Sub Transponiere()
Dim z As Long 'Spaltenversatz
Dim i As Long
Dim msg As String

Application.ScreenUpdating = False
z = 1

For i = 1 To Sheets("Quelldaten").UsedRange.Count
Sheets("Quelldaten").Range(Cells(1, i), Cells(31, i)).Copy
Sheets("Zieldaten").Cells(z, 1).PasteSpecial transpose:=True
z = z + 31
Next i

msg = MsgBox("Es wurden " & Sheets("Quelldaten").UsedRange.Rows.Count & " Zieldaten")
Application.ScreenUpdating = True
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot  Kleine Codeergänzung Zellen Kopieren/Transponieren
22.07.2014 23:27:31 Alex_1982
NotSolved
23.07.2014 23:26:31 Gast94057
NotSolved
23.07.2014 23:48:10 Gast98099
NotSolved