Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Intelligentes Makro für Transponierung??

Intelligentes Makro für Transponierung?
14.02.2005 17:48:55
Andy
Hallo Leute...
Ich möchte ein Makro entwickeln, welches die Funktion hat, die ich in dieser Mappe beschreibe.
https://www.herber.de/bbs/user/18066.xls
Ich habs schon mit zwei Schleifen in allen möglichen Formen versucht, aber ich kriegs einfach nicht hin. Wahrscheinlich ist es garnicht so schwer, oder ich bin zu d... dafür.
Wenn mir jemand helfen kann, bin für jeden (noch so kleinen) Tipp dankbar.
Andy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Intelligentes Makro für Transponierung?
Uduuh
Hallo,
tatsächlich ziemlich einfach.

Sub andy2()
Dim iRows As Long, iRow As Long, i As Long, iSpalte As Integer
iRows = Range("b65536").End(xlUp).Row
For i = 1 To iRows
If Cells(i, 1) <> "" Then iRow = i: iSpalte = 3
Cells(iRow, iSpalte) = Cells(i, 2)
iSpalte = iSpalte + 1
Next i
End Sub

Gruß aus'm Pott
Udo

AW: Intelligentes Makro für Transponierung?
15.02.2005 09:04:34
läuft
Hey Udo,
Super...das Makro läuft einwandfrei. Nochmals vielen Dank für deine Hilfe. Warst meine Rettung:-)...
Gruß
Andy

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige