Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten in Zeilen

Spalten in Zeilen
16.09.2003 15:49:26
Robert
Ich habe folgenden VBA-Code als Vorlage :


Sub Übernahme_Arbeitsplan()
Dim lgRowZiel As Long
Dim lgRowQuelle As Long
lgRowZiel = 12
Sheets("Arbeitsplan").Select
For lgRowQuelle = 4 To Range("H65536").End(xlUp).Row Step 36
If Cells(lgRowQuelle, 8) <> "" Then
Sheets("Auswertung").Cells(lgRowZiel, 1) = Cells(lgRowQuelle, 8)
lgRowZiel = lgRowZiel + 1
End If
Next
End Sub


Nun möchte ich die Werte aber nicht nacheinander in einer Spalte, sondern nebeneinander in einer Zeile übernehmen.

Wer kann bei der Anpassung helfen ???

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten in Zeilen
16.09.2003 20:37:43
Josef Ehrensberger
Hallo Robert,

so müsste es klappen.


Sub Übernahme_Arbeitsplan()
Dim lgColZiel As Long
Dim lgRowQuelle As Long
lgColZiel = 1
With Sheets("Arbeitsplan")
For lgRowQuelle = 4 To .Range("H65536").End(xlUp).Row Step 36
If .Cells(lgRowQuelle, 8) <> "" Then
Sheets("Auswertung").Cells(1, lgColZiel) = .Cells(lgRowQuelle, 8)
lgColZiel = lgColZiel + 1
End If
Next
End Sub


Dieses Makro Schreibt dir alle Werte nacheinander in die Zellen der ersten Spalte.

Ich habe den Code nicht getestet sonder direkt umgestellt.
Aber es sollte funktionieren.

Gruß Sepp
Anzeige
AW: Spalten in Zeilen
17.09.2003 16:06:42
Robert
Danke Sepp !

Es funktioniert.

Robert
Danke für die Rückmeldung! o.T.
17.09.2003 19:16:18
Josef Ehrensberger
o.T.

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige