Office: Werte sortieren, bearbeiten, einfügen

DDorian · 14. Januar 2018

Guten Abend zusammen,

für ein Projekt in meinem Studium, möchte ich mir mit VBA das Leben erleichtern. Für diese Arbeit brauche ich pro Versuch sonst mindestens einen Tag.

Aber nun zu meiner eigentlichen Frage, bzw. meinem Problem:

In einer Excel-Tabelle, werden zum Beisiel in Spalten A bis G Werte eingetragen. Diese Werte weden unabhängig von Excel ermittelt. Durch die Art der Versuche, kann es sein, dass manchmal 10 Zeilen, oder manchmal 20 Zeilen vorhanden sind.

Jetzt möchte ich zum Beispiel die Werte aus Zeile 2, also von "x" bis Wert "Wert 5" durch eine Formel schmeißen (Summe, Multiplikation, etc.) und gleichzeitig als "Sicherung" in eine komplett neue Zeile kopieren. Wir nehmen jetzt mal an, dass aufgrund der Formel zwei Ergebnisse rausgekommen.

Der nächste Schritt wäre die Erstellung einer felxiblen, dynamischen Tabelle, welche sich an die Anzahl der Versuchswerte anpasst (und sortiert ist).

In dieser Tabelle soll dann das "Ergebnis 1" und "Ergebnis 2" einsortiert werden.

Auf diesen Bildern sind alle Tabellen auf ein Tabellenblatt gelegt worden, um eine Übersicht zu verschaffen. Eigentlich ist auf Tabellenblatt 1 die Tabelle mit den Versuchswerten, auf Tabellenblatt 2 die Formel und auf Tabellenblatt 3 die Tabelle mit der Ergebnistabelle.
-----------------------------------------------------------------------

Die groben Überlegungen:

Code:

Sub sortieren()

Dim Rngx As Range, Rngy As Range
Dim loletzte As Integer

With Sheets("Tabelle1")
loletzte = .Cells(.Rows.Count, 1).End(xlUp).Row 'Letzte Zeile der Spalte 1 (A)-->Alle Spalten haben so viele Zeilen wie A
End With

Set Rngx = Range(Cells(2, 1), Cells(loletzte + 1, 1)) 'Legt den Bereich fest, in der die zu kopierenden Werte liegen.
Set Rngy = Range(Cells(2, 2), Cells(loletzte + 1, 2))

Range("A1").CurrentRegion.Sort key1:=Range("x"), order1:=xlDescending, key2:=Range("y"), order2:=xlAscending, Header:=xlYes 'Absteigendes Sortieren der Spalten A und aufsteigendes Sortieren der Spalte B

'Hier käme jetzt die Erstellung der dynamischen Tabellen.
'Ich hab das schon mit Worksheetfunction.large probiert, was bei einzelnen Werte ziemlich gut funktioniert hat, da aber der größte Wert mindestens zwei mal vorkommt, funktioniert es nicht mehr.

'Und jetzt mittels Arrays die entsprechenden Werte sortieren, kopieren und einfügen.

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist aber bestimmt viel zu umständlich, oder?*tongue.gif*

Würde mich freuen, wenn mich dabei jemand unterstützen könnte. *Smilie

Mit freundlichen Grüßen
Dorian

:)

Hajo_Zi · 16. Januar 2018

Hallo Dorian,

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

DDorian · 17. Januar 2018

Hallo Hajo,

ja, das war unklug von mir. T'schuldigung dafür :P

Anbei befindet sich die Excel-Tabelle. Ich hab mich darin schonmal ein bisschen ausgetobt, aber es fehlt noch einiges, was ich nicht lösen kann. Man entschuldige die Anfängerfehler *grins

1. Problem: Das Erstellen der Beschriftung der Tabelle funktioniert nicht so wie ich will. Ich hab es mittels Worksheeftfunction.large versucht zu lösen. Das funktioniert aber so nicht, da es immer unterschiedliche Anzahl an gleichen Zahlen sein können. Z.b in der Spalte A können mal 7x9000 auftreten, mal 5x9000. Das variiert von Versuch zu Versuch.

http://www.herber.de/forum/archiv/188to192/t190387.htm
hat mir nur bedingt weitergeholfen

2. Problem: Die Einsortierung der richtige Werte an die richtige Stelle. Die Daten müssen immer genau an der richtigen Stelle in der Tabelle einsortiert werden. Man müsste also die Tabellenbeschriftung miteinaner vergleich und dann einsortieren.

3. Probem: Kann man Arrays auf ein anderes Tabellenblatt übertragen? Oder sind diese an ein Tabellenblatt gebunden?

Ist bestimmt nicht einfach eine Lösung dafür zu finden *biggrin.gif* Und ich bin nun auch nicht der talentierteste VBA-Kenner.

Aber dennoch hoffe ich, dass mir jemand helfen kann *Smilie

Der aktuelle Code:

Code:

Sub sortieren()
Dim Rngx As Range, Rngy As Range
Dim i As Long, j As Long
Dim loletzte As Integer
Dim zeile As Integer
Dim spalte As Integer
Dim z As Long

With Sheets("Tabelle1")
loletzte = .Cells(.Rows.count, 1).End(xlUp).Row 'Letzte Zeile der Spalte 1 (A)
End With

Set Rngx = Range(Cells(2, 1), Cells(loletzte, 1))
Set Rngy = Range(Cells(2, 2), Cells(loletzte, 2))

Names.Add _
Name:="x", _
RefersTo:=Rngx 'Benennung im Namensmanager (für Sortierung)

Names.Add _
Name:="y", _
RefersTo:=Rngy

Range("A1").CurrentRegion.Sort key1:=Range("x"), order1:=xlDescending, key2:=Range("y"), order2:=xlAscending, Header:=xlYes 'Sortierung

For z = 1 To 8

Cells(27 + z, 16).Value = WorksheetFunction.Large(Rngx, z)

Next z

zeile = 27
zaehler = 0

For i = 0 To 23

Dim MyArray()
Dim ErgArray()

MyArray = Range(Cells(i + 2, 1), Cells(i + 2, 7))

Dim ArryMy As Variant
ArryMy = Application.Transpose(MyArray)

Range(Cells(25, 12), Cells(31, 12)).Value = ArryMy
Range(Cells(54, 10 + i), Cells(60, 10 + i)).Value = ArryMy

ErgArray = Range(Cells(34, 12), Cells(34, 13)).Value

Arryerg = Application.Transpose(ErgArray)
Range(Cells(61, 10 + i), Cells(62, 10 + i)).Value = Arryerg

j = i Mod 3 'Rest Operator

If j = 0 Then

zaehler = 0
zeile = zeile + 1
End If

Range(Cells(zeile, 17 + zaehler), Cells(zeile, 1 + 17 + zaehler)).Value = ErgArray

zaehler = zaehler + 2

Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit freundlichen Grüßen
Dorian

Hajo_Zi · 17. Januar 2018

Gruß Hajo

DDorian · 17. Januar 2018

Guten Morgen Hajo,

ich glaub du hast mich da etwas missverstanden. Das hier ist bisher das erste Forum, welches ich zur Hilfe ziehe.

Den Link, den ich hier gepostet habe, war ein Thread von jemand anderem, der das ähnliche Problem hatte . Darin geht es um das Problem mit den mehrfach vorkommenden Werten und der Funktion "Worksheetfunction.Large". Das hilft mir aber nur bedingt weiter.

Ansonsten wüsste ich nicht, wo ich dieses Thema sonst noch geopstet habe*boah

Mit freundlichen Grüßen
Dorian

DDorian · 30. Januar 2018

Mahlzeit,

ich denke mal, dass dieser Thread geschlossen werden kann. Glaube kaum, dass außer Kritik und Anschuldigungen, keine Hilfe/Vorschläge kommen werden.

Wer doch noch Ideen hat, kann mich gerne Anschreiben.

Gruß Dorian

Office: Werte sortieren, bearbeiten, einfügen

Werte sortieren, bearbeiten, einfügen

Werte sortieren, bearbeiten, einfügen

Werte sortieren, bearbeiten, einfügen

Werte sortieren, bearbeiten, einfügen - Similar Threads - Werte sortieren einfügen

Gleiche Werte in separate Spalte sortieren

Mehrere Spalten für eindeutige Werte und Duplikate sortieren

Mit Zufallszahl Werte sortieren

Werte sortieren

Zeilen aus Tabelle mit bestimmten Wert in verschiedene Tabellenblätter sortieren

Kopieren von Zellen wenn Bedingung erfüllt + sortieren der kopierten Werte

Excel Vba Mehrere Werte aus mehreren Dateien in eine Tabelle sortieren