Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
sortieren meherer spalten nachinander
zurück: Suchfunktion per Makro. Brauche Hilfe bei der Modifikation! weiter: Werte zweier Zellen in eine Zelle kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
hertingo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jan 2013, 15:05
Rufname:

sortieren meherer spalten nachinander - sortieren meherer spalten nachinander

Nach oben
       Version: Office 2007

Hallo zusammen,
sehe gerade den Wald vor lauter bäumen nicht mehr. Hier mein Problem:
ich habe eine Tabelle, iin der mehere Daten geschriben wurden. Diese können auch doppelt vorkommen.
Zuerts sollen die Daten spaltenweise von doubletten bereinigt werden (funktioniert auch schon).

Danach sollen die Daten Spaltenweise sortiert und die Zellen mit "Admin_XXX" (XXX=Text aus der 1. Reihe der aktuellen Spalte) benannt werden. Diese beiden Dinge macht er leider nicht mehr.

Hier mein bisheriger Code:

Code:

Sub Admin_Combo_erstellen(ByVal lezeile As Long)
   
    Dim i As Long
    Dim endzeile_neu As Long
   

   
    Application.ScreenUpdating = False
    On Error Resume Next
    If Err.Number <> 0 Then
      End If
   
    Sheets("AdminCombo").Activate
    Sheets("AdminCombo").Cells.Clear
    Range("B:G").NumberFormat = "@"
    Sheets("AdminCombo").Range(Cells(1, 1), Cells(lezeile, 7)).Value = Sheets("Dateiliste").Range(Sheets("Dateiliste").Cells(1, 2), Sheets("Dateiliste").Cells(lezeile, 8)).Value
   

    For i = 1 To 7 Step 1
     
        ActiveSheet.Range(Cells(2, i), Cells(lezeile, i)).RemoveDuplicates Columns:=1, Header:=xlNo
        endzeile_neu = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
       
        Range(Cells(2, i), Cells(endzeile_neu, i)).Select
        Selection.Sort.SortFields.Clear
        Selection.Sort.SortFields.Add Key:=Range(Cells(2, i)) _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With Selection.Sort
            .SetRange Range(Cells(2, i), Cells(endzeile_neu, i))
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
       
        Selection.Name = "Admin_" & Cells(1, i).Value

    Next i

    Application.ScreenUpdating = True

End Sub


Kann mir jemand helfen?

Vielen Dank im Voraus!
hertingo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2013, 21:30
Rufname:


AW: sortieren meherer spalten nachinander - AW: sortieren meherer spalten nachinander

Nach oben
       Version: Office 2007

hat sich erledigt. War ein Fehler bei den Variablen.

Trotzdem danke!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Sotierung einer Tabelle nach mehreren Spalten 3 Mentor 1566 14. Jul 2005, 14:42
Gast Sotierung einer Tabelle nach mehreren Spalten
Keine neuen Beiträge Excel Formeln: Sortieren nach vorher festgelegter Reihenfolge! 3 Gossi 1234 07. Jul 2005, 12:59
Gossi Sortieren nach vorher festgelegter Reihenfolge!
Keine neuen Beiträge Excel Formeln: Spalten abhängig von andern Spalten mit Werten füllen 3 marcus0815 1838 05. Jul 2005, 10:32
marcus0815 Spalten abhängig von andern Spalten mit Werten füllen
Keine neuen Beiträge Excel Formeln: nach neuen Eintrag in Tabelle automatisch sortieren 6 maddoc 2358 08. Jun 2005, 23:06
maddoc nach neuen Eintrag in Tabelle automatisch sortieren
Keine neuen Beiträge Excel Formeln: mit sverweis spalten verbinden die nicht nebeneinander sind 2 poison30 4378 20. Mai 2005, 14:18
poison30 mit sverweis spalten verbinden die nicht nebeneinander sind
Keine neuen Beiträge Excel Formeln: Makro fürs Sortieren 2 nhs47800 1951 11. Mai 2005, 09:47
nhs Makro fürs Sortieren
Keine neuen Beiträge Excel Formeln: Spalten Buchstarben ausgeben lassen ? 2 slicki 916 20. Apr 2005, 00:31
Hübi Spalten Buchstarben ausgeben lassen ?
Keine neuen Beiträge Excel Formeln: Vergleichen von Spalten UND Zeilen. 3 mojoe321 1836 15. März 2005, 17:14
Hübi Vergleichen von Spalten UND Zeilen.
Keine neuen Beiträge Excel Formeln: Namensliste in Tabllenblätter sortieren... 5 manfredo67er 1123 22. Jan 2005, 20:56
A.Knecht Namensliste in Tabllenblätter sortieren...
Keine neuen Beiträge Excel Formeln: Spalten von zwei Tabellen abgleichen/vergleichen 2 RolloTomasi 4374 19. Jan 2005, 16:09
Darky Spalten von zwei Tabellen abgleichen/vergleichen
Keine neuen Beiträge Excel Formeln: Will Werte addieren, in Bezug zu zwei anderen Spalten 3 Hardy_K_888 1971 02. Dez 2004, 12:00
ae Will Werte addieren, in Bezug zu zwei anderen Spalten
Keine neuen Beiträge Excel Formeln: Nummern nach Anzahl sortieren 3 Tom74 831 05. Okt 2004, 02:30
Gast Nummern nach Anzahl sortieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum