Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zelle an das Ende einer Tabelle Kopieren und dann sortieren
zurück: Diagrammreihen mit VBA ändern weiter: Unable to set the default property of the PivotItemClass!?!? 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
Neulinh
Gast


Verfasst am:
29. Jan 2009, 15:59
Rufname:

Zelle an das Ende einer Tabelle Kopieren und dann sortieren - Zelle an das Ende einer Tabelle Kopieren und dann sortieren

Nach oben
       Version: Office 2007

Hallo Excel und vorallem VBA Freunde!

Ich bin absoluter Neuling und bräuchte mal eure Hilfe. Ich habe zwei Spalten:
In Spalte A beliebige Zahlen und in B zugeordnete Namen. Nun habe ich mir einen Button erstellt, bei dessen klicken eine neue Zahl mit zugeordnetem Namen an das Ende der Tabelle kopiert und dann einsortiert werden soll.

Der Code sieht wiefolgt aus:
Code:

Sub Schaltfläche2_KlickenSieAuf()
'

    Range("D5").Select
    ActiveCell.FormulaR1C1 = "44"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "Lukas"
    Range("D5:E5").Select
    Selection.Copy
    Range("A65000").Select
    ActiveSheet.Paste
    Range("A1:B65000").Select
    Range("A11").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A65000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").Sort
        .SetRange Range("A1:B65000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Ich habe dieses Makro aufgenommen und würde nun gerne wissen, wie man das so umschreiben kann, dass man eine beliebige Zahl und einen beliebigen Namen eintragen kann? Momentan klappt es ja nur mit "44" und "Lukas"!

Vielen Dank schonmal
Grüße

Neuling
-Dani-
Gast


Verfasst am:
29. Jan 2009, 16:21
Rufname:


AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie - AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie

Nach oben
       Version: Office 2007

Hallo,
ich hab da mal ne Mini-Version gebastelt....
fügt die Nummer in Spalte A und den Namen in Spalte B ein:

Code:

Sub test()
    Dim i                     As Integer

    i = 1
    Do Until Len(Worksheets(1).Cells(i, 1).Value) = 0
        i = i + 1
    Loop

    Worksheets(1).Cells(i, 1).Value = InputBox("Bitte geben sie die Zahl ein:", "Zahl")
    Worksheets(1).Cells(i, 2).Value = InputBox("Bitte geben sie den Namen ein:", "Name")

    Worksheets(1).Range("A1:B" & i).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
                                         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                                         DataOption1:=xlSortNormal

End Sub


anstatt der Inputbox kann natürlich auch woanders ausgelesen werden.
neuling1
Gast


Verfasst am:
29. Jan 2009, 16:57
Rufname:

AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie - AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie

Nach oben
       Version: Office 2007

Super, vielen Dank Dani! Das ging ja echt schnell und es klappt echt gut!
-Dani-
Gast


Verfasst am:
29. Jan 2009, 17:54
Rufname:


AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie - AW: Zelle an das Ende einer Tabelle Kopieren und dann sortie

Nach oben
       Version: Office 2007

HAlte dir aber eins im Hinterkopf...

Solltest du irgendwann auch die Zweite Spalte sortieren wollen...
Also z.B. bei gleichen Zahlen, die Namen nochmal sortieren...

dann mussu hinten anfangen, also erst C, dann B, dann A.
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: Zelle mit 3-stelliger Zahl separieren in 3 Zellen 2 MarkusMarkus 2486 18. Aug 2004, 11:31
MarkusMarkus Zelle mit 3-stelliger Zahl separieren in 3 Zellen
Keine neuen Beiträge Excel Formeln: Suche Zelle nach einem ähnlichem Wert ab... (wildcart) 2 Ranzi 2538 09. Aug 2004, 18:22
icke Suche Zelle nach einem ähnlichem Wert ab... (wildcart)
Keine neuen Beiträge Excel Formeln: Zellenbezug kopieren (Formel) 1 Thompsen 1064 03. Aug 2004, 16:36
peb Zellenbezug kopieren (Formel)
Keine neuen Beiträge Excel Formeln: Kopieren für Anfänger 3 taraniel 2021 29. Jul 2004, 20:36
fl618 Kopieren für Anfänger
Keine neuen Beiträge Excel Formeln: Ein Betrag soll in eine andere Zelle übern. und beibehalten 3 Dennis1000 1368 28. Jul 2004, 15:38
xpecidy Ein Betrag soll in eine andere Zelle übern. und beibehalten
Keine neuen Beiträge Excel Formeln: Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren. 1 MariaMagda 1606 28. Jul 2004, 14:14
Thomas Ramel Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren.
Keine neuen Beiträge Excel Formeln: Inhalte einer unsort. Tabelle in e. weiter. Tabelle sort.anz 1 lorenz.bruederlein 1057 08. Jun 2004, 15:33
steve1da Inhalte einer unsort. Tabelle in e. weiter. Tabelle sort.anz
Keine neuen Beiträge Excel Formeln: Textaussage mit Wertangabe aus einer Zelle? 2 hugox 946 21. Mai 2004, 22:35
hugox Textaussage mit Wertangabe aus einer Zelle?
Keine neuen Beiträge Excel Formeln: "Neue" Zellen der letzten Zeile kopieren 1 thcolonia 538 03. Mai 2004, 17:53
peb "Neue" Zellen der letzten Zeile kopieren
Keine neuen Beiträge Excel Formeln: Teilergebnisse errechnen und sortieren lassen 7 Chinchi18 5701 19. Apr 2004, 08:05
Chinchi18 Teilergebnisse errechnen und sortieren lassen
Keine neuen Beiträge Excel Formeln: zaehlen wenn zelle farbig ist 3 Natalino 1437 10. März 2004, 09:06
xpecidy zaehlen wenn zelle farbig ist
Keine neuen Beiträge Excel Formeln: Excel Tabelle filtern 4 Gast 825 20. Feb 2004, 15:49
peb Excel Tabelle filtern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage