Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hallo K.Rola? Von Zeile in Spalte!

Hallo K.Rola? Von Zeile in Spalte!
03.01.2004 08:27:43
Andre
Dieser Beitrag steht bereits im Forum (u.a. zu https://www.herber.de/bbs/user/2689.xls), aber ich stell ihn nochmals rein, denn noch ist das Thema aktuell und es hat wirklich ewig gedauert jemanden zu finden der mir weiterhelfen konnte. Sollte jemand anderes von euch auch Rat wissen, nur zu! Ich bin dankbar für jede Hilfe.

Hallo K.Rola,

danke noch mal für deine Hilfe, aber die Probleme enden einfach nicht! Dein folgender Code funktioniert fantastisch, aber ich brauche ihn auch umgekehrt und einfach die entsprechende Zeile umzukehren scheint nicht hinzuhauen!

Könntest du mir noch einmal helfen?

Public

Sub t()
Dim WS As Worksheet
Dim iZeile As Long
Dim Zeile As Long, Spalte As Integer, s As Integer
Dim arr
Set WS = Worksheets("Tabelle1")
With UserForm1.Spreadsheet1.ActiveSheet
For iZeile = 1 To 38
Zeile = WorksheetFunction.RoundUp(iZeile / 38, 0) + 1
Spalte = ((iZeile * 6) + 21) - ((Zeile * 228) - 456)
For s = 1 To 6
WS.Cells(Zeile, Spalte + s) = .Cells(iZeile, s)
Next
Next iZeile
End With
End Sub


Also ich muß jetzt wieder von der Zeile in die Spalte.

Vielen Dank schon mal.

Gruß Andre

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hallo K.Rola? Von Zeile in Spalte!
03.01.2004 14:27:52
K.Rola
Hallo,

so kannst du das vom Prinzip her machen:

Option Explicit

Sub transponieren()
Dim r1 As Range, r2 As Range
Set r1 = Range(Cells(1, 2), Cells(1, 11))
Set r2 = Range(Cells(1, 1), Cells(10, 1))
r2 = WorksheetFunction.Transpose(r1)
End Sub


Gruß K.Rola
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige