Excel

Re(7): Excel

hariw — Wed, 12 Jun 2002 13:27:05 GMT

hi,

bist keinesfalls lästig

so nimmts M28 ab sheet 3 bis ende...

Sub mappe()

    Dim Number As Integer
    Dim Counter As Integer

    Number = ActiveWorkbook.Sheets.Count

    For Counter = 3 To Number
        Cells(Counter - 2, 1) = ActiveWorkbook.Sheets(Counter).Name
        Cells(Counter - 2, 2) = ActiveWorkbook.Sheets(Counter).Cells(28, 13)
    Next

    Range("B1").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

...und fügt es ab A1 im ersten sheet ein..., hast das vielleicht geändert, dann könnts beim sortierkriterium (Range("B1").Select; Selection.Sort Key1:=Range("B1"), ...) noch zu problemen kommen...

lg,
hariw

Re(6): Excel

Sputum — Wed, 12 Jun 2002 13:01:54 GMT

ich weiss langsam werde ich lästig, aber ich bin echt zu dumm!

Ich wollte das Ding abändern und zwar: Er soll erst ab dem 3. Sheet anfangen zu zählen und die Zelle M28 den Namen gegenüberstellen, aber er meldet immer wieder einen sortier fehler!

was mach ich falsch?

Re(5): Excel

hariw — Wed, 12 Jun 2002 12:28:09 GMT

hi,

Sub mappe()

    Dim Number As Integer
    Dim Counter As Integer

    Number = ActiveWorkbook.Sheets.Count

    For Counter = 2 To Number
        Cells(Counter - 1, 1) = ActiveWorkbook.Sheets(Counter).Name
        Cells(Counter - 1, 2) = ActiveWorkbook.Sheets(Counter).Cells(1, 1)
    Next

    Range("B1").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

...übernimmt den inhalt der zelle A1 aus jedem sheet (s. ...Cells(1, 1) )
...sortiert am ersten blatt, die höchsten punkte oben
(...erstes sheet ist "ausgenommen", dh. beginnt erst bei sheet2 )

lg,
hariw

Re(4): Excel

Sputum — Wed, 12 Jun 2002 11:47:03 GMT

he super, ist es noch möglich aus einer Arbeitsmappe ein feld mitzunehmen?

Folgende Ausgangslage:

Ich habe 16 Arbeitsblätter die jeweils den Namen des "Besitzers" tragen innerhalb jedes Arbeitsblattes ist ein Feld (überall das gleiche) mit einem Punktestand. Ich hätte nun gerne eine Liste aus den Namen (Arbeitsblätter) plus den dazugehörigen Punkten, am besten nach Punktestand geordnet....

Fällt dir dazu was ein????????
BITTTE BITTE BITTE!

Re(3): Excel

hariw — Wed, 12 Jun 2002 10:34:50 GMT

hi,

makro:

Sub mappe()

    Dim Number As Integer
    Dim Counter As Integer

    Number = ActiveWorkbook.Sheets.count

    For Counter = 1 To Number
        Cells(Counter, 1) = ActiveWorkbook.Sheets(Counter).Name
    Next

End Sub

...beschreibt ab A1 abwärts...
lg,
hariw

Re(2): Excel

Sputum — Wed, 12 Jun 2002 10:17:36 GMT

hast recht! Arbeitsblätter!
sorry!

Re: Excel

Tigerlady — Wed, 12 Jun 2002 10:02:14 GMT

meinst du wirklich Arbeitsmappen und nicht Blätter?

Excel

Sputum — Mon, 10 Jun 2002 17:22:01 GMT

Wie bekomme ich den Namen (Wert) einer Arbeitsmappe in eine Zelle?

Hnitergrund: Ich habe mehrere Arbeitsmappen, diese tragen immer einen Vornamen , ich möchte jetzt eine Liste mit allen Vornamen ohne die Vornamen nochmals eintippen zu müssen!
(war das Deutsch?)