Zelle finden, Zeile kopieren in neue Tabelle

Frank · 2018-11-06T14:40:17+00:00

Hallo VBA-Experten, Das erste Mal, dass ich hier um Hilfe bitte und ich hoffe sehr, Ihr könnt mir helfen: Mein Problem: Wenn in einer Tabelle Sheets"MasterList-Neu", Reihe B, eine Zelle ungleich empty ist, dann diese Reihe, Range H bis L kopieren und in Tabelle Sheets "ENG - IPL", Range B bis F einfügen. Wobei die "MasterList-Neu", Reihe B, mehrere Zellen mit Wert haben kann und ich keine doppelten Daten in "ENG - IPL" kopieren möchte und ... die neuen Kopien sollen sich immer unter den letzten Eintrag der Tabelle "ENG - IPL" einfügen. Ich verzweifele und bitte Euch um Hilfe! Vielen Dank für Euer Feedback Frank aus Hamburg

Danke !!!
Sonne scheint hier auch heute ... das schlägt gleich auf die Stimmung :-)
Werner, ich verzweifle schon wieder: Versuche Dein mit meinem Makro zu verknüpfen, ich meine ... eines daraus zu machen - und ich beiße gleich in die Tischkante :-)
Deine Idee, doppelte Einträge zu vermeiden durch Prüfen der P/N ist so gut, dass ich das auch gern für meine Page("MasterList-Neu") integriert hätte - das würde absoluten Sinn machen.
Es klappt nicht :-(
Darf ich noch einmal um Hilfe bitten?
Mein bisheriges Makro überträgt die Daten in die "Master List" ohne Prüfung auf "schon vorhanden". Das ist nicht gut! Jedoch das Gute an diesem Makro, so finde ich, das automatische Zufügen der "Laufenden Nummer" ... daran hab ich lange gefummelt (diese wird in den anderen Tabellen nicht gefordert).
-->


Sub Weiterzaehlen()
If Sheets("MAT-Anfo (AB)").Range("C5") = "" And Sheets("MAT-Anfo (AB)").Range("D5") = "" And  _
Sheets("MAT-Anfo (AB)").Range("E5") = "" And Sheets("MAT-Anfo (AB)").Range("F5") = "" And Sheets("MAT-Anfo (AB)").Range("G5") = "" And Sheets("MAT-Anfo (AB)").Range("H5") = "" And Sheets("MAT-Anfo (AB)").Range("I5") = "" And Sheets("MAT-Anfo (AB)").Range("J5") = "" And Sheets("MAT-Anfo (AB)").Range("K5") = "" And Sheets("MAT-Anfo (AB)").Range("L5") = "" And Sheets("MAT-Anfo (AB)").Range("M5") = "" And Sheets("MAT-Anfo (AB)").Range("N5") = "" And Sheets("MAT-Anfo (AB)").Range("O5") = "" Then
MsgBox "No Data entered"
Exit Sub
Else
Application.ScreenUpdating = False
Dim KundenNummer As Long
Dim Zeile As Long
Sheets("MasterList-Neu").Select
With ActiveSheet        'Verweis auf das Tabellenblatt, auf dem alles stattfindet
'erste freie Zeile suchen:
Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
'In Spalte A die größte Nummer suchen und 1 addieren
KundenNummer = Application.WorksheetFunction.Max(.Columns(1)) + 1
'zur Zelle springen und neue Kundennummer eintragen:
.Cells(Zeile, 1).Value = KundenNummer
Application.Goto .Cells(Zeile, 1)
End With
Sheets("MAT-Anfo (AB)").Range("C5:O5").Copy
Sheets("MasterList-Neu").Select
Dim str1 As String
Dim str2 As String
Range("A65536").End(xlUp).Activate
ActiveCell.Offset(0, 1).PasteSpecial
Range("A1").Select
Sheets("MAT-Anfo (AB)").Range("C5:O5").ClearContents
Sheets("MAT-Anfo (AB)").Select
Range("A1").Select
MsgBox "Data successfully transferred to the Master List"
End If
End Sub

Siehst Du eine Möglichkeit, Deines mit meinem zu "verbinden" und nur ein gut funktionierendes, auf doppelte P/N prüfendes Makro zu basteln?
schau bitte mal drüber - vielen Dank
Frank :-)

Guten Morgen Werner,
Bitte entschuldige meine späte Antwort - ich sprang gestern noch von Meeting zu Meeting und hatte kaum noch Zeit für das "kleine Tool" und um Dir zu antworten - und heute früh ging's mit den Meetings gleich weiter. Sorry ...
Also, zu Deiner Erklärung (in wenigen Worten):
Wir modifizieren Flugzeuge oder bauen diese komplett um - nach den Wünschen unterschiedlichster Airlines. Dazu erarbeitet das Ingenieurs-Team, wozu ich gehöre, u.a. einen Material-Plan, welcher das für die Modifikation benötigte Material aufzeigt. Bestellt und organisiert wird das MAT dann durch unseren Bereich Logistik.
Bisher wurden diese MAT-Anforderungen immer telefonisch an die Logistik weitergegeben ... war nicht der beste Weg, aus unterschiedlichsten Gründen. Darum möchte ich nun ein kleines Tool schaffen, welches von beiden Seiten einzusehen ist, also auf einem gemeinsamen Laufwerk liegt, welches unsere Anforderung mit entsprechender Reaktion der Logistik widerspiegelt und welches das Ganze auch irgendwie festhält - sprich, in Form einer "Bestell-Tabelle".
Da wir oft zur gleichen Zeit mehrere Flugzeuge bearbeiten, wäre dieses Tool jeweils für ein "Projekt" gedacht - es wird also so sein, dass zwei/drei dieser "Tools" zur gleichen Zeit aktiv genutzt werden.
Reiter "Deckblatt":
Soll immer als Startseite öffnen (Makro nötig) und Symbolleisten, Bearbeitungsleisten und Gitternetzlinien sollen beim Öffnen verschwinden - um eigenständige Änderungen zu vermeiden (nur wieder herzustellen durch den Administrator, gesichert durch ein Passwort)
Reiter "MAT-Anfo (AB)":
Verdeckt, nur über Klick auf Button aufrufbar. Hier gibt der Ingenieur oder Designer seine MAT-Anforderung ein
Reiter "MasterList-Neu":
Sichtbar für alle (Reiter bleibt auch sichtbar). Hier kann der Ingenieur seine Bestellungen noch einmal überprüfen, diese wieder löschen und/oder durchstreichen (über Makro). Das gesamte Sheet soll gesperrt werden, bis auf die letzten drei Reihen. In denen gibt der Logistik-Mann seine MAT-Infos (ist das MAT als "Gefährliche Güter" zu klassifizieren, wann ist es zu erwarten und wurde es überprüft.
Die folgenden 6 Reiter:
Hier wird die MAT-Order dem Flugzeugbereich zugeordnet, z.B. Floor oder Sitze. Diese Reiter sollen auch verdeckt und nur durch Makro aufrufbar sein.
Es ist gut möglich, dass hier noch einige Reiter (Tabellen) zugefügt werden.
Die letzten zwei Reiter "MAT-LLI" und "Fragen":
werden nach Fertigstellung gelöscht - sind nur für die Diskussion.
Ich möchte das Tool demnächst vorstellen und erklären, im Beisein von einigen Ingenieuren und auch einem Logistik-Team. Ich rechne damit, dass es dann noch Wünsche oder Vorschläge gibt, welche mich noch einmal "fordern werden" :-) ...
Deine Frage nach dem Speichern der Datensätze ist berechtigt gut. Aber nein, das ist nicht nötig, da die einzelnen Tabellen bei Fertigstellung des Flugzeuges ausgedruckt und den offiziellen Papieren zugeordnet werden (als PDF).
Ich hoffe, lieber Werner, ich konnte Dir das Ganze nun etwas erklären und noch einmal: Ich muss mich schon jetzt unheimlich bei Dir bedanken !!! In unserem Team gibt es keine VBA-Erfahrungen. Nur ich hab damit schon in vergangener Zeit Einiges für die Firma "gebastelt" ... aber halt auf kleinem Niveau, darum bin ich der einzige "VBA-Azubi" :-) Und ohne Deine Hilfe hätte ich keine Chance, das Tool rechtzeitig fertig zu stellen.
DANKE !!!!
Gestern bastelte ich noch etwas am Design und setzte noch ein paar Makros ein. Als Anhang die neueste Version.
Wenn Du Zeit und Lust hast, schaue es Dir an - und vielleicht kannst Du mir noch etwas helfen beim Einbeziehen aller Tabellen nach Löschen/Durchstreichen von Daten in der MasterList.
P/S: Bei der Präsentation werde ich Dich erwähnen, sofern Du Nichts dagegen hast :-)
https://www.herber.de/bbs/user/125281.xlsm

Zelle finden, Zeile kopieren in neue Tabelle

Forumthread: Zelle finden, Zeile kopieren in neue Tabelle

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zelle finden, Zeile kopieren in neue Tabelle

Forumthread: Zelle finden, Zeile kopieren in neue Tabelle

30 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread