VisualBasic Formel anpassen

Private Sub CommandButton1_Click() Dim rngListen As Range Set rngListen = Range("A15:AT30,A52:AT67,A89:AT104,A125:AT140") Application.ScreenUpdating = False With Application.Workbooks.Add(xlWBATWorksheet).Sheets(1) .Columns("B:AT").NumberFormat = "@" .Range("A1:AT16").Formula = rngListen.Areas(1).Formula .Range("A17:AT32").Formula = rngListen.Areas(2).Formula .Range("A33:AT48").Formula = rngListen.Areas(3).Formula .Range("A49:AT64").Formula = rngListen.Areas(4).Formula .UsedRange.Sort .Cells(1), xlAscending rngListen.Areas(1).Formula = .Range("A1:AT16").Formula rngListen.Areas(2).Formula = .Range("A17:AT32").Formula rngListen.Areas(3).Formula = .Range("A33:AT48").Formula rngListen.Areas(4).Formula = .Range("A49:AT64").Formula .Parent.Close False End With Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luc,
erstmal Danke für Deine Hilfe.
ich habe den Code in meiner Einfältigkeit mal so verändert:


Private Sub CommandButton9_Click()
Dim rngListen As Range
Set rngListen = Range("B15:AU30,B52:AU67,B89:AU104,B125:AU140")
Application.ScreenUpdating = False
With Application.Workbooks.Add(xlWBATWorksheet).Sheets(1)
.Columns("B:AU").NumberFormat = "@"
rngListen.Areas(1).Copy: .Paste (.Range("A1:AU16"))
rngListen.Areas(2).Copy: .Paste (.Range("A17:AU32"))
rngListen.Areas(3).Copy: .Paste (.Range("A33:AU48"))
rngListen.Areas(4).Copy: .Paste (.Range("A49:AU64"))
.UsedRange.Sort .Cells(1), xlAscending
rngListen.Areas(1).Formula = .Range("A1:AU16").Formula
rngListen.Areas(2).Formula = .Range("A17:AU32").Formula
rngListen.Areas(3).Formula = .Range("A33:AU48").Formula
rngListen.Areas(4).Formula = .Range("A49:AU64").Formula
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub

und zwar aus folgenden Grund. Es soll erst ab Spalte B sortiert werden, denn in Spalte A steht eine fortlaufende Numerierung welche nicht geändert werden darf. Dann habe ich noch die Spalten bis auf Au erweitert.
Mit dem jetzigen Code rutschr alles eine Zeile tiefer.
Was soll erreicht werden.
In einem Tabellenblatt sind 4 gleiche Anwesenheitslisten alle mit dem selben Kopf dort sind auch Grafiken, Datum und Wochentag drin.
In Anwesenheitsliste 1 stehen von B15:B30 die Namen der Mitarbeiter so "Franz, Sprung". Von C15:C30 wird für den jeweiligen Wochentag ein X,K,F,E oder U eingetragen. Ab AJ wird alles gezählt wieviel X hat der Mitarbeiter wieviel U und so weiter. Das geht bis Au.
Normalerweise ist das schon alles sortiert, aber wenn jetzt neue Mitarbeiter dazu kommen so werden die an das Ende der Liste eingetragen und sollen dann mit dem Sortierbutton Alphabetisch an die richtige Stelle kopiert werden und das alles Listenübergreifend.
Das ging ja bisher, denn wir hatten noch keine Formeln drin.
Vielleicht kannst du dir den Code nochmal ansehen?
gruß und danke graubart

Private Sub CommandButton9_Click() Dim rngListen As Range Set rngListen = Range("B15:AU30,B52:AU67,B89:AU104,B125:AU140") Application.ScreenUpdating = False With Application.Workbooks.Add(xlWBATWorksheet).Sheets(1) .Columns("B:AU").NumberFormat = "@" rngListen.Areas(1).Copy: .Paste (.Range("A1:AU16")) rngListen.Areas(2).Copy: .Paste (.Range("A17:AU32")) rngListen.Areas(3).Copy: .Paste (.Range("A33:AU48")) rngListen.Areas(4).Copy: .Paste (.Range("A49:AU64")) .UsedRange.Sort .Cells(1), xlAscending rngListen.Areas(1).Formula = .Range("A1:AU16").Formula rngListen.Areas(2).Formula = .Range("A17:AU32").Formula rngListen.Areas(3).Formula = .Range("A33:AU48").Formula rngListen.Areas(4).Formula = .Range("A49:AU64").Formula .Parent.Close False End With Application.ScreenUpdating = True End Sub

...erweitern, Graubart!?
Mit dem jetzigen Pgm, das alles eine Zeile tiefer rutschen lässt, meinst du das korrigierte? Übrigens fällt mir auf, dass die Spalte A in die Areas mit einbezogen ist. Hat das seine Richtigkeit, wenn diese Spalte nicht verändert wdn darf? Hier wird sie dann allerdings in Folgezeilen weitergeschrieben. Wenn da keine Formel drin ist, sondern Text oder Zahl, wird der/die exakt genauso kopiert wie er/sie dasteht. Aber ich sehe gerade, du kopierst B15:AU30 [Area(1)] nach A1:AU16 - das sind zwar auch 16 Zeilen, aber 20 in 21 Spalten, da wird Spalte B nach A kopiert und Spalte AU bleibt leer! Das ist wohl nicht in deinem Sinn! Wenn es so ist, noch die Adressen im .Paste-Befehl anpassen - B1:AU16 !
Mit dem Sortieren von Formeln ist das so eine Sache. Normalerweise sollten sie das unbeschadet überstehen, wenn sie mit den Ausgangswerten zusammen sortiert wdn. Sonst entsteht u.U. eine andere Reihenfolge bei den Bezügen ähnlich wie beim Verlagern der Ausgangsdaten.
Ich hoffe, das hilft dir weiter. Wenn da auch noch eine störende Leerzeile entsteht, müssen wohl die Areas anders gebildet werden (eine Zeile tiefer, also B16:...).
Leider habe ich nicht so viel Zeit, mich jetzt umfangreicher Arbeiten anzunehmen, arbeite an meiner eigenen Präsentation (Freelancer!). Bin deshalb auch nicht jeden Tag hier.
Viel Erfolg!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VisualBasic Formel anpassen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread