Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren von ausgeblendeten Zeilen

Sortieren von ausgeblendeten Zeilen
18.09.2006 06:20:11
ausgeblendeten
Guten Morgen Leute,
wie schaffe ich es, einen Zellenbereich, welcher ausgeblendet ist, zu sortieren?
Mit ausgeblendetem Tabellenblatt ist es auch möglich,, nur das mit den Zeilen bring ich nicht hin...
Sheets("RKA").Range("J133:J152").Sort Key1:=Sheets("RKA").Range("J133"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Wo liegt denn da noch der Wurm?
Dank Euch im voraus.
Frederic

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 06:28:41
ausgeblendeten
Hallo Frederic,
was hälst du davon ? 

Sub neu()
Rows("133:152").EntireRow.Hidden = False
Sheets("RKA").Range("J133:J152").Sort Key1:=Sheets("RKA").Range("J133"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows("133:152").EntireRow.Hidden = True
End Sub

hoffe es hilft dir weiter.
Code blendet die ausgeblendeten zeilen ein und wieder aus.
gruß Chris
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 06:44:34
ausgeblendeten
Hi Chris,
danke für den Tip, daran hatte ich auch schon gedacht, geht aber nicht, da das Dokument schreibgeschützt ist und im Intranet-Browser zur Verfügung gestellt wird.
Die Sortierfunktion wird in eine ListBox übernommen, die sagt, welche Pflichtfelder zum Ausfüllen vergessen wurden.
Wenn dann in der ListBox die Eintrage an den Stellen stehen, wie sie eingelesen werden, sieht das ganze wie ein Schweizer Käse aus. Von daher möchte ich das Ganze erst sortieren und dann untereinander und lückenlos in der ListBox darstellen.
Vielleicht hast du noch nen Tip?
Frederic
Anzeige
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 06:57:31
ausgeblendeten
Dann versuchs mal hiermit.Sollte klappen.
Option Explicit
Dim arr(200)
Dim y As Integer
Dim x As Integer
Dim xx
Dim cb
Dim cb2

Sub nue()
y = 0
For x = 133 To 152
arr(y) = Cells(x, 10)
y = y + 1
Next
For xx = 0 To 20
For y = xx To 20
cb = arr(xx)
cb2 = arr(y)
If cb > cb2 Then
arr(xx) = cb2
arr(y) = cb
Else
End If
Next
Next
Range("j133:j152") = WorksheetFunction.Transpose(arr)
End Sub

gruß Chris
Rückmeldung ob erfolgreich wäre nett.
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 07:15:49
ausgeblendeten
Hi Chris,
soweit so gut, nur möchte ich spalte ja "Absteigend" sortieren...Hast du noch den Code dafür?
Danke dir bis hierher, klappt einwandfrei.
Gruß.
Frederic
Anzeige
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 07:19:40
ausgeblendeten
Hallo Frederic,
dann geht das so.
Option Explicit
Dim arr(200)
Dim y As Integer
Dim x As Integer
Dim xx
Dim cb
Dim cb2

Sub nue()
y = 0
For x = 133 To 152
arr(y) = Cells(x, 10)
y = y + 1
Next
For xx = 0 To 20
For y = xx To 20
cb = arr(xx)
cb2 = arr(y)
If cb < cb2 Then
arr(xx) = cb2
arr(y) = cb
Else
End If
Next
Next
Range("j133:j152") = WorksheetFunction.Transpose(arr)
End Sub

AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 07:37:48
ausgeblendeten
Hi Chris,
super...tausend dank...PERFEKT!!!
Schöne Woche noch.
Frederic
AW: Sortieren von ausgeblendeten Zeilen
18.09.2006 11:01:46
ausgeblendeten
Hi Chris,
bins nochmal...
Das Makro funktioniert hervorragend, aber es schmeisst meine Formeln aus dem Sortierenden Bereich raus. Wie kann ich das verhindern?
DIe Formeln MÜSSEN bestehen bleiben.
Danke nochmal und Gruß.
Frederic
Anzeige

160 Forumthreads zu ähnlichen Themen

Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 06:59:45
Thread-ID: 1024010
3 Beiträge
Anzeige
Hyperlinks von ausgeblendeten Tabellenblättern
ausgeblendeten

Hallo zusammen,
ich habe ein Excel Dokument, mit mehreren ausgeblendten Tabellenblättern. [worksheets("a").visible = false]
Auf einem (eingeblendeten) Tabellenblatt listet ein Makro alle vorhandenen Tabellenblätter auf und wandelt diese Liste in Hyperlinks um.
Wenn ich solch einen...
15.09.2009 16:50:23
Thread-ID: 1103014
4 Beiträge
find match in ausgeblendeten Zeilen
chris

Hallo Spazialisten,
ich bekomme es einfach nicht hin und bitte euch um Hilfe.
Ich habe eine Datei.In dieser sind 2 Sheets.
In dieser stehen in sheet 1 Nummen die auch in Sheet zwei auftauchen.
Ich blende jetzt alle Zeilen aus in Sheet 2
ws2.Rows("6:50000").EntireRow.Hidden =...
22.02.2010 11:14:41
Thread-ID: 1140259
10 Beiträge
Anzeige
SVERWEIS in ausgeblendeten Zellen
trompete

Hallo nochmal und alle Genie's
mit der freundlichen Unterstützung von Hary habe ich eine Code bekommen der mir, in Anbhängigkeit vom Inhalt einer bestimmten Zelle, eine Bereich vordefinierter Zeilen ausblendet. Soweit so gut, nur habe ich jetzt im dem Bereich der auszublenden Zeilen einen S...
26.09.2010 20:07:54
Thread-ID: 1179463
5 Beiträge
Problem mit ausgeblendeten Zellen
Matthias

Hallo
Ich habe einen Katalog der zum jeweiligen Artikel ein Bild läd.
Die Bildnummer steht in eimem Bereich in dem die Zellen ausgeblendet sind.
Beim Abfragen mit .Value bekomme ich die Bildnummer geliefert und .Text nicht.
Blende ich die Zellen ein geht es auch mit .Text.
W...
08.11.2010 15:14:14
Thread-ID: 1185697
3 Beiträge
Suchen in ausgeblendeten Spalten
Gregor

Hallo
Diese Frage wurde im Forum 2005 gestellt, jedoch ohne Antwort. Bei folgendem Code
Spalte_Eigner = .Rows(1).Find(What:="Eigner", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Column
...
12.04.2011 11:52:58
Thread-ID: 1209991
6 Beiträge
Suchen in ausgeblendeten Spalten
Florian

Hallo Experten,
ich suche mit VB wie folgt:
-----
With ActiveSheet.Range("b:b")
Set zelle = .Find(suchwert, lookin:=xlValues)
End With
-----
Soweit, so gut... nur leider ist bei mir die Spalte B (also der Suchbereich) eine ausgeblendete Spalte!
Das Makro...
24.05.2002 09:52:19
Thread-ID: 123347
3 Beiträge
Sicherung bei einem ausgeblendeten Tabellenblatt
chris58

Kann leider den Tread nicht mehr aufmachen. Habe daher die letzte Antwort hier reinkopiert.
Hallo Reinhard !
Wenn ich das
if Sheets(i).visible=true Then Sheets(i).copy
eingebe, dann sichert er mir zwar, aber die Datei wird geschlossen.
........................................
04.07.2011 11:10:38
Thread-ID: 1220811
9 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
9
3
4
2
5
2
8
1
14
2
6
2
5
4
10
8
12
2
4
1
2
2