Makro läuft nicht Parametern (nur
19.02.2004 12:28:43
Eugen Schwarz
stehe an. brauche hilfe. denke es ist ein datenformat problem, aber ich kriegs nicht hin.
Frage: wie muss der code ausschauen, damit er auch parameter läuft.
wer kann mir helfen, wäre dankbar
gruss eugen
Sub ListeTabellenBlätterErstellen(Optional OffsetZelle)
'datendefinition
Dim x
Dim ListenEinträge
'wenn kein param
If IsMissing(OffsetZelle) Then OffsetZelle = ActiveCell.Address
'einlesen, ausgeben, ab current Zelle
For Index = 1 To ActiveWorkbook.Sheets.Count
ActiveCell.Value = ActiveWorkbook.Sheets(Index).Name
ActiveCell.Offset(1, 0).Activate
ListenEinträge = ListenEinträge + 1
Next Index
'bereich selektieren
Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-ListenEinträge, 0)).Select
'sort
Selection.sort Key1:=Range(OffsetZelle), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Anzeige