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
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
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
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
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
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
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
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
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
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?
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.
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.
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
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
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
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
wie geht das bitte??
Ich möchte das auch für Dich machen.
Gruß Magret