nochmal arbeitsblatt mit kriterium
31.08.2004 11:25:25
Conrad
die listung geschieht ja mit dem von euch erstellten code
Sub Inhalt_der_Mappe()
Dim i As Integer, n As Integer
n = 1
Sheets("Inhalt").Select
For i = 1 To Sheets.Count
If UCase(Left(Sheets(i).Name, 1)) = "C" Then
Cells(n, 1).Value = Sheets(i).Name
n = n + 1
End If
Next
End Sub
kann man dies auch noch automatisieren, d.h. wenn ich ein neues tabellenblatt einfüge und dieses entspricht den gestellten anforderungen, dass die liste automatisch aktualisiert wird.
dazu gleich noch was anderes.
ich füge die tabellenblätter über ein makro ein, wie bekomme ich das hin, dass sich dann automatisch eine userform einblendet, in welcher ich einen tabellenblattnahme vergeben kann.
mit dank an das forum
conrad
Anzeige