Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1320to1324
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
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen verschieben wenn Bedingungen erfüllt

VBA Zeilen verschieben wenn Bedingungen erfüllt
05.07.2013 08:50:01
Jochen
Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Prohektnummern, in Spalte C die Anzahl an Zeilen für dieses Projekt und in Spalte D den Projektstatus.
Wenn nun bei einem Projekt alle Zeilen z.B. Projekt 1 Zeilen 1-4 den Status 6 erreicht haben, so soll dieses Projket von Tabelle 1 nach Tabelle 2 verschoben werden.
Kann mir hier einer einen Tipp geben wie ich dies am Besten realisiere?
Mein bisheriger Versuch scheitert immer daran die Werte für ein gesamtes Projekt zu vergleichen, einzelne Zeilen in welchen die Bedingung Status 6 erfüllt sind zu verschieben funktioniert.
Dank im voraus,
Gruß
Jochen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen verschieben wenn Bedingungen erfüllt
05.07.2013 09:28:38
JACKD
Hallo Jochen, dann lad doch bitte mal deine (eine Mustermappe) hoch
Grüße

Logischer Bruch
05.07.2013 09:56:20
JACKD
Hallo Jochen
Ich versteh das Problem noch nicht so ganz.
Also was ich verstehe:
Du hast Projekte (Spalte B) die du in Teilprojekte (Spalte A) Zerlegt hast
Wenn ein Teilprojekt den Status "6" bekommt ist es als Fertig definiert und wird ins "Archiv" verschoben.
Soweit so gut, und das Funktioniert ja auch mit deinem Code.
Was ich nicht verstehe:
1.)
Die Spalte C (Ist zwar für das "Problem" unerheblich, aber seltsam)
In deinem Muster steht in C2 "1" ind C3 "2" und in C4 "3" und das, obowhl es alles Projekt 1 ist und ja eigentlich dann immer die 3 stehen Müsste?
2.)Wie und wann Rufst du die Verschieben Routine denn auf?
.. und hier ist jetzt mein logischer Bruch.
Option A.) alle Teilprojekte haben den Status 6 und werden ins Archiv geschoben (Funktioniert ja)
Option B.) nur manche Teilprojekte haben den Status 6 diese werden ins Archiv geschoben der Rest bleibt stehen. Wenn dann die restlichen "fertig" sind, rücken die ja über deine Routine nach
Vielleicht kannst du etwas Licht in mein Dunkel bringen.
Grüße

Anzeige
AW: Logischer Bruch
05.07.2013 10:12:24
Jochen
Hallo nochmals,
in der Spalte C stehen die einzelnen Zeilennummern des Projektes, also Zeile 1 in C2, Zeile 2 in C3 usw. .
Das Problem liegt nun daran, dass die Zeilen eines Projektes nur dann verschoben werden sollen, wenn das gesamte Projekt abgeschlossen ist, und nicht bereits einzelne Zeilen des Projektes.
Also erst wenn ein Projekt mit den Zeilen 1-3 (oder je nachdem wie viele es in dem Projekt sind) alle auf Status 6 stehen, sollen diese Komplett verschoben werden, nicht bereits einzelne Projektzeilen.
Ich hoffe ich konnte es halbwegs verständlich erklären.
Gruß
Jochen
Anzeige

392 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 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
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9