Hallo nette Leute im Forum,
wer kann helfen:
1. möchte mehrere Spalten eines sheets in eine UserForm, allerdings sind die Spalten nicht durchgehend (z.B. C3:C & F3:F & N3;N & P3:P usw.)
2. eine weitere Userform, in die vom sheet("01") die Spalten B3:C (als Zeilentitel quasi) & N3:N & P3:P plus die Spalten N3:N & P3:P aus den weiteren sheets("02" bis "12") rein sollen. Die Spalten N3:N & P3:P sind aus allen 12 sheets gleich, nur aus dem 1. sheet kommt als Zeilentitel (in Spalte B ist der gemeinsame Begriff für alle identischen sheets. Begriff ist ein eindeutiger string.
Wie schreibt man das? Wie muss ich das abändern? Kann mir jemand bitte behilfich sein? Rückantwort wäre prima! Gruß Hotte
&ltpre&gt
Private Sub UserForm_Activate() ' Kann man da eine Schleife einbauen?
Dim z As Long, lz As Long, rc As Long
rc = Rows.Count
lz = IIf(Cells(rc, 1) &lt&gt "", rc, Cells(rc, 1).Row)
lb1.RowSource = Range("C3:C" & lz).Address ' Wie anders?
lb1.ColumnWidths = "15cm" 'alle restlichen Spalten 4 cm
End Sub&lt/pre&gt