Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen sortieren mit VBA nach Wert

Zeilen sortieren mit VBA nach Wert
16.09.2015 22:08:01
Lukas
Hallo liebe Gemeinde,
folgendes Problem hindert mich an der Fertigstellung meines Projekts.
Ich habe eine Eingabemaske (http://abload.de/img/bildschirmfoto2015-095psja.png) und eine Datenbank (http://abload.de/img/bildschirmfoto2015-0970so1.png), sämtliche Daten werden beim klick auf "Speichern" in das Tabellenblatt Datenbank in die nächste freie Zeile Horizontal übertragen.
In der Eingabemaske (Erstellen) befindet sich ein Dropdown das sich auf die Nummern (Spalte A in Datenbank) bezieht und beim klick auf "Laden" wird die Zeile 2 der Datenbank (blau markiert) in die Eingabemaske zurück übertragen, um die Daten zu bearbeiten etc.
Wie kann ich die Datenbank so sortieren, das die ausgewählte Nummer in der Eingabemaske (Dropdown) auf Zeile 2 hochspringt, sodass ich die Daten dann rüber kopieren kann?
Mit dem Filter klappts nicht, da die Zeilen nur ausgeblendet werden. Es muss also ein VBA Code her, der bsp. die Zeile mit der Nummer 50 auf Zeile 2 raufschiebt. (die Nummer muss von der Eingabemaske geholt werden.
Leider konnte ich dazu nach Stundenlanger Suche nichts finden, ich hoffe ihr könnt mir weiterhelfen.
Viele Grüße Lukas

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispieldatei?
16.09.2015 22:26:16
Michael
Hallo Lukas,
von irgendeinem Server hole ich mir keine Beispieldatein, und mit PNGs kann sowieso keiner was testen, geschweige denn sehen, was Du etwa bereits programmiert hast.
Also: bitte lade ne Beispieldatei hoch.
Ich sehe keinen grundsätzlichen Grund, weshalb eine Eingabemaske ausschließlich Daten aus der 2. Zeile verwenden können sollte. Soll heißen: anstatt wie auch immer zu sortieren, würde ich den Code der Maske so anpassen, daß er mit jeder beliebigen Zeile arbeitet.
Schöne Grüße,
Michael

AW: Beispieldatei?
16.09.2015 22:36:41
Lukas
Hallo Michael,
der Upload hier mit der Board Software klappt leider nicht, warum auch immer. Daher ein Link zu meiner Dropbox: https://www.dropbox.com/s/ewxzzaep3vlq9si/Beispiel.xlsm?dl=0
Grüße

Anzeige
AW: Beispieldatei?
16.09.2015 22:48:27
Michael
Hi Lukas,
geht nicht, und ich mag jetzt auch nicht sonstwas im Browser aktivieren, damit es geht.
Wenn Deine Datei zu groß ist, lösche halt was raus, Du solltest eh keine "echten" Daten veröffentlichen, ein paar Zeilen Spieldaten tun's schon.
Gruß,
M.

AW: Beispieldatei?
16.09.2015 22:53:23
Lukas
Ich kann leider nur rtf und txt Dateien hochladen. Weiß nicht an was das liegt.

AW: Beispieldatei?
16.09.2015 23:04:34
Michael
hast Du nen Mac?
Standardmäßig geht im Forum JPG, GIF, TXT, XLS, XLSM usw.
Ach so, isses das?
Userbild
Klicke von "benutzerdefiniert" auf alle

Anzeige
Beispieldatei ok, aber - Grundsätzliches
16.09.2015 23:51:53
Michael
Hi Lukas,
hm, hm, die Formatierung sieht auf Win irgendwie seltsam aus.
Insbesondere sehe ich kein DropDown-Feld, wo soll das sein? Weder in M3 noch M11 dropdownt sich was.
Es ist mir heute zu spät, mich da reinzuvertiefen, nur so viel:
a) das datensatz_laden läßt sich deutlich optimieren und
b) es ist keine vernünftige Datenstruktur vorhanden. Stichworte: Normalisierung, eindeutige Schlüssel, Vermeidung von Redundanzen usw.
Alles weiter morgen.
Baba,
M.

Anzeige
AW: Beispieldatei ok, aber - Grundsätzliches
17.09.2015 00:00:56
Lukas
Ich möchte wirklich nur ein VBA Code der mir eine Zeile die ich benötige in Zeile 2 hochschiebt. Alles andere Funktioniert genau so wie ich das möchte und entspricht genau meinen Ansprüchen :)
Das Dropdown befindet sich im Feld M11, wie das unter Windows aussieht weiß ich nicht, ich arbeite ausschließlich unter OSX.
Schönen Abend
Lukas

AW: Beispieldatei ok, aber - Grundsätzliches
17.09.2015 00:21:01
Michael
Da fällt mir doch noch ne Minimal-Lösung ein. Du könntest evtl. in der betreffenden Zeile ein X in einer bislang unbenutzten Spalte anbringen und dann danach sortieren.
Die Suchfunktion beherrschst Du ja offensichtlich, also in einzelnen Schritten:
suche Nr. in Spalte A
schreibe in Spalte ZZ ein x
markiere A2 bis ZZ(untersteZeile)
sortiere nach Spalte ZZ (absteigend)
Dann hast Du die Zeile da, wo Du sie haben willst und kannst sie kopieren - und gleich das x entfernen.
Hinterher kannst Du wieder nach A sortieren.
Schönen Abend auch,
Michael

Anzeige
AW: Beispieldatei ok, aber - Grundsätzliches
17.09.2015 15:53:19
Lukas
Okay jup das ist eine sehr gute Idee, der folgende Code sucht nun den Wert der im Dropdown (M11) ausgewählt wurde in Spalte A vom Blatt Datenbank.
Wie bringe ich ihm jetzt bei, dass er mir dann auch z.B. in die letzte Spalte vom Datensatz den er gefunden hat in "DZ" ein x reinschreibt?
Dann muss ich nur noch das Sortieren auslösen und die Daten aus Zeile 2 kopieren (was ja schon klappt)
Sub datensatz_laden()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object
Set Wks1 = Sheets("Erstellen")
Set Wks2 = Sheets("Datenbank")
If Not IsEmpty(Wks1.Range("M11")) Then
Set Found = Wks2.Columns(1).Find(Wks1.Range("M11"), LookIn:=xlValues,  _
lookat:=xlWhole)
If Found Is Nothing Then
MsgBox "Datensatz nicht vorhanden."
Else
'CODE HIER ?!
MsgBox "Datensatz wurde geladen."
End If
End If
Bitte um Hilfe
Danke Lukas

Anzeige
AW: Beispieldatei ok, aber - Grundsätzliches
17.09.2015 17:42:33
Werner
Hallo Lukas,
Versuch mal
Sub datensatz_laden()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Range
Set Wks1 = Sheets("Erstellen")
Set Wks2 = Sheets("Datenbank")
If Not IsEmpty(Wks1.Range("M11")) Then
Set Found = Wks2.Columns(1).Find(Wks1.Range("M11"), LookIn:=xlValues,  _
lookat:=xlWhole)
If Found Is Nothing Then
MsgBox "Datensatz nicht vorhanden."
Else
'CODE HIER ?!
With Wks2
.Cells(Found.Row, 130) = "x"
End With
MsgBox "Datensatz wurde geladen."
End If
End If
Ungetestet.
Gruß Werner

325 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Anzeige

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
8
5
4
2
4
4
2
5
20
7
3
10
3
1
4
6
6
12
11
2
3
6
4
5
4