Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Neukunden automatisch in eine neues Tabellenblatt einfügen





Frage

Guten Abend, ich benötige bitte Eure Hilfe, ich bekomme mtl. eine Liste mit Kundendaten. Ich benötige die Information der neu dazugekommenen Kunden in einem separaten Tabellenblatt, komme ich da mit sverweis aus, wer könnte mir bitte weiterhelfen. Danke Magret

Antwort 1 von Saarbauer

hallo,

leider ist mit deinen Angaben, diese Frage nicht zu beantworten.

Wir kennen weder den aufbau deiner Tabelle, noch woran man erkennen kann was Neukunden sind.

Eine Beispieldatei wäre vielleicht nicht schlecht

http://www.netupload.de/

und den Link zur Datei hier hinterlegen


Gruß

Helmut

Antwort 2 von Magret

Hallo Helmut
vielen Dank für Deine schnelle Antwort. Ich hoffe das die Beispieldatei zu öffnen geht, ich habe noch nie mit netupload
gearbeitet, aber feine Sache.

http://www.netupload.de/detail.php?img=376b8d672a583f10d6505cbb9dc5ca08.xls

danke für Deine Hilfe
Gruß Magret

Antwort 3 von Saarbauer

Hallo,

meine erste Frage woher weis ich, das Programm was Neukunden sind?

ist so aus der Liste nicht drekt erkennbar.

Gruß

Helmut

Antwort 4 von Magret

Hallo Helmut
ich gebe die Daten ein, sie kommen als Ausdruck per Post zu mir, ist es das was Du wissen wolltest?
Gruß Magret

Antwort 5 von Saarbauer

Hallo,

Jein. Warum ausgerechnet die Nummern 6022 bis 6799, ist meine Frage, da diese nicht als erste oder Letzte in der Liste stehen.

Es gibt doch bestimmt ein Kriterium woram die Neukunden erkannt werden

Gruß

Helmut

Antwort 6 von Magret

Guten Morgen Helmut
das ist das Kriterium, im nächsten Jahr geht es mit der 7000 Nr. weiter.
Gruß Magret

Antwort 7 von Saarbauer

Hallo,

also sind es dieses Jahr 6xxx-Nummern und nächstes Jahr 7xxx-Nummern.

Wenn es so ist kommen wir weiter, wobei ich persönlich für dieses Jahr 7xxx genommen hätte, da so eine Verbindung zu 2007 herzustellen wäre. ist aber deine Sache. Sollen die Nummern immer mit der Jahreszahl - 1 beginnen?

Gruß

Helmut

Antwort 8 von Magret

Hallo
auf die Zahlenvergabe habe ich keinen Einfluß.
Die Zahlen bekommen keine Jahreszahl davor, schlicht nur
6xxx bis 7xxx.
Gruß
Magret

Antwort 9 von Saarbauer

hallo,

versuch es mal mit dem Makro

Sub Neukunden()
Sheets("Hauptdaten").Select
Cells.Select
Selection.Copy
Sheets("Neukunden").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
neu = InputBox("Liste Neukunden erstellen", , "bitte Datenbereich eineben z.B. 2")
Range("A2").Select
While IsEmpty(ActiveCell) = False
If Left(ActiveCell.Value, 1) <> neu Then
Rows(ActiveCell.Row).Select
Selection.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Rows("1:1").Select
Selection.AutoFilter
End Sub


Gruß


Helmut

Antwort 10 von Magret

Hallo Helmut
danke für die viele Mühe die Du Dir gemacht hast, aber von Makros habe ich noch keinen Ahnung, ich hatte gedacht das man mit Formeln die Arbeit erledigen kann.
Ist das vielleicht möglich?

Antwort 11 von coros

Hallo Magret,

um eine VBA-Programmierung wird man meines Erachtens nicht drum herum kommen. Allerdings wäre interessant zu wissen, ob Du die Listen, die Du erhältst händisch eingibst oder ob diese in Excel importiert werden. Das geht leider aus Deiner Aufgabenstellung nicht ganz hervor. Du hast zwar in der Beispieldatei geschrieben, dass Du die Daten eingibst, aber das ist leider nicht ganz klar.
Auch müsste man wissen, ob Deine Beispieldatei der Originaldatei gleicht. Was ich speziell meine ist der Bereich, in dem die Daten in der Haupttabelle stehen. Wenn das anders ist in Deiner Originaldatei, warum sieht Deine Beispieldatei anders aus?
Wenn Du die Daten per Hand eingibst, könnte man das gleich während der Eingabe prüfen. Das geht z.B. mit nachfolgendem VBA-Code, der in das VBA-Projekt des Tabellenblattes "Hauptdaten" in Deiner Beispieldatei gehört.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Abfrage As Variant
Application.ScreenUpdating = False
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then
    If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 2) <> "" _
    And Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" Then
        Abfrage = MsgBox("Handelt es sich bei der Eingabe um einen Neukunden?", vbQuestion + vbYesNo, "Neukunde?")
        If Abfrage = 7 Then Exit Sub
        Rows(Target.Row).Copy
        Sheets("Neukunden").Range("A" & Sheets("Neukunden").Range("A65536").End(xlUp).Offset(1, 0).Row).PasteSpecial
        Application.CutCopyMode = False
    End If
End If
End Sub


Mit diesem Code wird während der Eingabe abgefragt, ob es sich bei der Eingabe um einen Neukunden handelt. Wenn "Ja" angeklickt wird, wird die Zeile in das andere Tabellenblatt übertragen. Die Abfrage erscheint erst, wenn in Spalte A, B, C und D etwas eingetragen wurde.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich. Allerdings solltest Du dann etwas ausführlicher beschreiben, was wie sein soll. Das Ganze möglichst genau. Denn nur eine Gute Aufgabenstellung bring das erhoffte Ergebnis.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 12 von Magret

Hallo Oliver
es hat geklappt, TOOOOOOOOOLLLLLLLLL
recht herzlichen Dank, einfach super
Gruß Magret

Antwort 13 von Magret

Hallo Helmut
vielen Dank nochmal für Deine Mühe, so wie Oliver es erstellt hat klappt es. Ich werde mich verstärkt mit VBA beschäftigen da kann man ja eine Menge Arbeitserleichterung schaffen.
Also vielen Dank ich kann Dich nur weiter empfehlen.
Gruß Magret

Antwort 14 von Saarbauer

Hallo,

meine Lösung hätte etwas anders funktioniert, kannst das Makrro vielleicht auch mal testen, da es auch noch andere Möglichkeiten Bietet.

Denke an die Bewertung der Lösung für @coros

Gruß

Helmut

Antwort 15 von Magret

Hallo Helmut
wie geht das bitte??
Ich möchte das auch für Dich machen.
Gruß Magret