Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenköpfe als Zeilen in Listenfeld

Spaltenköpfe als Zeilen in Listenfeld
29.11.2004 17:27:10
Kevin
Hallo Leute,
ich hab wiedermal ein kleines Problemchen, das aber von euch Profis sicherlich jemand lösen kann.
Ich habe eine Tabelle mit ca.50 Spalten in denen jeweils ein Datum eine Spaltenüberschrift ist.
Also: 01.01.01 | 08.01.01 | 12.04.02 | usw.
Ich möchte nun diese Daten (also die Spalten überschriften) in ein Listen- oder ComboFeld bringen, jedoch untereinander aufgelistet.
Ich hoffe ihr könnt mir weiterhelfen
Kevin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenköpfe als Zeilen in Listenfeld
29.11.2004 18:55:23
GraFri
Hallo


      
' ----------------------------------------------------
' In 'DieseArbeitsmappe'
' Die Daten befinden sich im Tabellenblatt 'Tabelle1',
' Zeile 1, Spalte A(1) bis Spalte AX(50)

' Anpassen
Const BegSpalte As Integer = 1    ' Spalte A
Const EndSpalte As Integer = 50   ' Spalte AW
Const Zeile As Integer = 1        ' 1. Zeile

Private Sub Workbook_Open()
Dim n   As Integer
For n = BegSpalte To EndSpalte
  Worksheets("Tabelle1").cmbDatum.AddItem _
  Worksheets("Tabelle1").Cells(Zeile, n).Value
Next n
Mit freundlichen Grüßen, GraFri
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige