Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1096to1100

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Tabellen nach Inhalt von Zelle A2 sortieren

Forumthread: Tabellen nach Inhalt von Zelle A2 sortieren
10 Beiträge zu diesem Forumthread
Anzeige
338 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Zelle

Liebes Forum
Ich möchte gerne eine grosse Anzahl Tabellen nach der Zelle "A2" sortieren. Auf http://www.schmittis-page.de/index.html?/excel/vba/t56.htm habe ich einen Code gefunden, der die Sortierung anhand der Tabellennamen vornimmt. Ich habe nun .name mit .Cells("A2").Value ersetzt.
Doch bei der Zeile If Worksheets(y).Cells("A2").Value Was ist noch falsch?
Danke und Gruss, Peter

Sub Worksheets_Sortieren()
'nach dem Wert aus Zelle A2
Anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To Anzahl
For y = x To Anzahl
If Worksheets(y).Cells("A2").Value

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Tabellen nach Inhalt von Zelle A2 sortieren

Zelle
AW: Tabellen nach Inhalt von Zelle A2 sortieren

Zelle
AW: Tabellen nach Inhalt von Zelle A2 sortieren

Zelle
AW: Tabellen nach Inhalt von Zelle A2 sortieren

Zelle
nur zur Info

Adelhorst
AW: DANKE!! owT

Peter
.Cells(2,"A") ist "Pidgin-VBA"! Gruß owT

Luc:-?
...und noch dazu : Manchmal UNVERSTÄNDLICH

NoNet
Da wird aus irgendwelchen Gründen die...

Luc:-?
AW: Da wird aus irgendwelchen Gründen die...

Daniel

AW: Tabellen nach Inhalt von Zelle A2 sortieren

22.08.2009 16:14:58

Zelle

Hallo Peter.
Probier dies mal aus.

Sub Worksheets_Sortieren()
'nach dem Wert aus Zelle A2
Anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To Anzahl
For y = x+1 To Anzahl
If Worksheets(y).Cells("A2").Value

Ohne x+1 vergleichst du ja sonst ein Tabellenblatt mit sich selbst!
Gruß Adelhorst

AW: Tabellen nach Inhalt von Zelle A2 sortieren

22.08.2009 16:20:25

Zelle

Hallo Adelhorst
Die Fehleranzeige auf Zeile If Worksheets(y).Cells("A2").Value Gruss, Peter
PS: wenn nach Name sortiert wird, funktioniert der Code!

Sub Worksheets_Sortieren2()
'nach Name
Anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To Anzahl
For y = x To Anzahl
If Worksheets(y).Name

AW: Tabellen nach Inhalt von Zelle A2 sortieren

22.08.2009 16:21:36

Zelle

Hallo Peter
Verwende Range

Sub Worksheets_Sortieren()
'nach dem Wert aus Zelle A2
Anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To Anzahl
For y = x To Anzahl
If Worksheets(y).Range("A2").Value

Gruß Adelhorst

AW: Tabellen nach Inhalt von Zelle A2 sortieren

22.08.2009 16:24:09

Zelle

Hallo Adelhorst
Das wars!
Vielen Dank und Grüsse,
Peter

nur zur Info

22.08.2009 16:42:10

Adelhorst

Hallo Peter.
Du hättest auch mit Cells arbeiten können, aber dann hättest du folgende Form anwenden müssen:
".Cells(2,1)" bzw ".Cells(2,"A")"
Mein erster Einwand mit "For y=x+1..." ist nicht entscheidend, da die Abfrage ja auf "<" lautet.
Du würdest dir mit "For y=x+1..." aber unnötige Abfragen ersparen.
Wenn du z.B. 20 Tabellenblätter hast, dann würdest du dir auch 20 unnötige Abfragen ersparen.
Gruß Adelhorst

AW: DANKE!! owT

22.08.2009 17:53:59

Peter

.Cells(2,"A") ist "Pidgin-VBA"! Gruß owT

22.08.2009 18:17:08

Luc:-?

:-?

...und noch dazu : Manchmal UNVERSTÄNDLICH

23.08.2009 01:42:59

NoNet

Hey Luc,
in einem meiner Projekte (das bereits seit Monaten auf dem Kunden-PC lief !), trat eines Tages eine Fehlermeldung auf (ich weiß leider nicht mehr welche :/ )
Ich konnte im Code (und in den Verweisen !) keinen echten Fehler finden, allerdings funktionierte der Code wieder, nachdem ich lediglich die VBA-Anweisungen von "Pidgin" nach "Oxford" geändert hatte (also alle Cells(lngZ,"A") und Cells(lngZ,"B") nach Cells(lngZ,1) und Cells(lngZ,2) etc.).
Logisch erklärbar erschien mir das nicht (es war auch keine Z1S1-Bezugsart aktiviert !), aber es bewog mich immerhin dazu, seit diesem Zeitpunkt die alphanumerische Spaltenangabe zu vermeiden (obwohl besser lesbar) und stattdessen auf die numerische Angabe zu wechseln.
Kurios, oder ?
Gruß, NoNet

Da wird aus irgendwelchen Gründen die...

23.08.2009 14:31:44

Luc:-?

...rechenzeitintensivere automatische Umwandlung versagt haben, NoNet... ;-)
Wie Leute nur auf so etwas verfallen können! In der VBE-Hilfe steht jedenfalls nichts davon...
Gruß+schöSo
Luc :-?

AW: Da wird aus irgendwelchen Gründen die...

23.08.2009 14:57:33

Daniel

HI
ich habe die Pidgin-Schreibweise auch zum ersten Mal hier im Forum gesehen.
Allerdings hab ich auch nicht immer Lust nachzuzählen, welche Nummer z.B. die Spalte V hat.
Gruß, Daniel